使用Delphi7构建工商银行电子口令密码查找助手

工商银行通过网银结账的时候，会给出一个类似于B5G7的字符串，让你在自己的口令卡上找到对应的口令码。因为口令卡上的数字挺多的，而且有水印，找起来挺麻烦的，我就花了几十分钟的时间，写了一个快速查找口令卡密码的小软件。

实现原理

模拟人查找电子口令密码的方法，通过FindComponent 方法，快速定位和获取电子口令码

实现方法

1.在一个窗体上放下8*10个Edit，然后依照你的电子口令卡，依次给他们赋上B1，B2...B8,X1,X2..X2的名字，并依次在Text属性上赋予相应的值。（第一次输入比较麻烦，没办法呀，电子口令是很私密的东东，网上找不出一个现成的可以供选择）

2.依次添加一个命名为edtSearch的Edit控件，供用户输入要查找的电子口令代码，一个命名为edtResult的Edit控件用来显示查找到的电子口令密码和一个命名为btnSerach的按钮供用户点击，查找电子口令卡密码

3.点击查找按钮，通过FindCompont 定位到相应的电子口令格，并将他们的值取回，显示到界面

实现代码

//类型定义
type
ValidLiterSet = set of 'A'..'B';
ValidDigitalSet = set of '1'..'8';
...
end
{-------------------------------------------------------------------------------
过程名: TForm1.GetIDPassword
作者: Administrator
日期: 2012.02.20
参数: Code: string
Code参数是一个长度为4为的字符串，第一位和第三位是字母，
第二位和第四位为1..8的某一数字
返回值: String
-------------------------------------------------------------------------------}
function TForm1.GetIDPassword(Code: string): String;
var
c1,c2 : string;
set1 : ValidLiterSet;
set2 : ValidDigitalSet;
begin
c1 := Copy(Code,1,2);
c2 := Copy(Code,3,2);
set1 := ['B','D','G','K','M','N','Q','S','T','Y'];
if not (c1[1] in set1) then
begin
result := 'Invalid Pass Code！';
edit3.SelectAll;
end;
if not (c2[1] in set1) then
begin
result := 'Invalid Pass Code！';
edit3.SelectAll;
end;
if not (c1[2] in set2) then
begin
result := 'Invalid Pass Code！';
edit3.SelectAll;
end;
if not (c2[2] in set2) then
begin
result := 'Invalid Pass Code！';
edit3.SelectAll;
end;
result := TEdit(self.FindComponent(c1)).Text +
TEdit(self.FindComponent(c2)).Text;
end;
//调用代码
{-------------------------------------------------------------------------------
过程名: TForm1.btnSearchClick
作者: Administrator
日期: 2012.02.20
参数: Sender: TObject
返回值: 无
-------------------------------------------------------------------------------}
procedure TForm1.btnSearchClick(Sender: TObject);
begin
edtResult.Text := GetIDPassword(UpperCase(edtSearch.Text));
end;