原创文学网站建设,商品展示网站模板,济南网站搜索排名,中国企业500强榜单2021工商银行通过网银结账的时候#xff0c;会给出一个类似于B5G7的字符串#xff0c;让你在自己的口令卡上找到对应的口令码。因为口令卡上的数字挺多的#xff0c;而且有水印#xff0c;找起来挺麻烦的#xff0c;我就花了几十分钟的时间#xff0c;写了一个快速查找口令卡… 工商银行通过网银结账的时候会给出一个类似于B5G7的字符串让你在自己的口令卡上找到对应的口令码。因为口令卡上的数字挺多的而且有水印找起来挺麻烦的我就花了几十分钟的时间写了一个快速查找口令卡密码的小软件。 实现原理 模拟人查找电子口令密码的方法通过FindComponent 方法快速定位和获取电子口令码 实现方法 1.在一个窗体上放下8*10个Edit然后依照你的电子口令卡依次给他们赋上B1B2...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; 转载于:https://blog.51cto.com/adadream/785140
