生活随笔
收集整理的這篇文章主要介紹了
使用Delphi7构建工商银行电子口令密码查找助手
小編覺(jué)得挺不錯(cuò)的,現(xiàn)在分享給大家,幫大家做個(gè)參考.
工商銀行通過(guò)網(wǎng)銀結(jié)賬的時(shí)候，會(huì)給出一個(gè)類(lèi)似于B5G7的字符串，讓你在自己的口令卡上找到對(duì)應(yīng)的口令碼。因?yàn)榭诹羁ㄉ系臄?shù)字挺多的，而且有水印，找起來(lái)挺麻煩的，我就花了幾十分鐘的時(shí)間，寫(xiě)了一個(gè)快速查找口令卡密碼的小軟件。
實(shí)現(xiàn)原理
模擬人查找電子口令密碼的方法，通過(guò)FindComponent 方法，快速定位和獲取電子口令碼
實(shí)現(xiàn)方法
1.在一個(gè)窗體上放下8*10個(gè)Edit，然后依照你的電子口令卡，依次給他們賦上B1，B2...B8,X1,X2..X2的名字，并依次在Text屬性上賦予相應(yīng)的值。（第一次輸入比較麻煩，沒(méi)辦法呀，電子口令是很私密的東東，網(wǎng)上找不出一個(gè)現(xiàn)成的可以供選擇）
2.依次添加一個(gè)命名為edtSearch的Edit控件，供用戶輸入要查找的電子口令代碼，一個(gè)命名為edtResult的Edit控件用來(lái)顯示查找到的電子口令密碼和一個(gè)命名為btnSerach的按鈕供用戶點(diǎn)擊，查找電子口令卡密碼
3.點(diǎn)擊查找按鈕，通過(guò)FindCompont 定位到相應(yīng)的電子口令格，并將他們的值取回，顯示到界面
實(shí)現(xiàn)代碼
?
//類(lèi)型定義 ?type ???ValidLiterSet?=?set?of?'A'..'B'; ???ValidDigitalSet?=?set?of?'1'..'8'; ?... ?end???{???過(guò)程名:????TForm1.GetIDPassword ???作者:??????Administrator ???日期:??????2012.02.20 ???參數(shù):??????Code:?string ?????Code參數(shù)是一個(gè)長(zhǎng)度為4為的字符串，第一位和第三位是字母， ?????第二位和第四位為1..8的某一數(shù)字 ???返回值:????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; ???//調(diào)用代碼 ?{???過(guò)程名:????TForm1.btnSearchClick ???作者:??????Administrator ???日期:??????2012.02.20 ???參數(shù):??????Sender:?TObject ???返回值:????無(wú) ??procedure?TForm1.btnSearchClick(Sender:?TObject); ?begin???edtResult.Text?:=?GetIDPassword(UpperCase(edtSearch.Text)); ?end;? ?
轉(zhuǎn)載于:https://blog.51cto.com/adadream/785140
總結(jié)
以上是生活随笔為你收集整理的使用Delphi7构建工商银行电子口令密码查找助手的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。
如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。
