生活随笔
收集整理的這篇文章主要介紹了
使用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;? ?
轉載于:https://blog.51cto.com/adadream/785140
總結
以上是生活随笔為你收集整理的使用Delphi7构建工商银行电子口令密码查找助手的全部內容，希望文章能夠幫你解決所遇到的問題。
如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。
