|
发表于 2011-6-8 11:24:26
|
显示全部楼层
没想过要收钱.
没上源码的原因是因为我认为网站加密的方法有点搞.既然楼主需要源码,双手奉上
- #include <ButtonConstants.au3>
- #include <EditConstants.au3>
- #include <GUIConstantsEx.au3>
- #include <ListViewConstants.au3>
- #include <StaticConstants.au3>
- #include <WindowsConstants.au3>
- #include <Crypt.au3>
- #include <GuiConstantsEx.au3>
- #include <GuiListView.au3>
- #Region ### START Koda GUI section ### Form=
- $Form1 = GUICreate("MD5加密 by-3mile", 580, 422, 192, 132)
- $input = GUICtrlCreateInput("测试", 208, 16, 185, 24)
- $Label1 = GUICtrlCreateLabel("要加密的字符串", 16, 16, 185, 24)
- $Button1 = GUICtrlCreateButton("Button1", 416, 16, 73, 25)
- $ListView1 = GUICtrlCreateListView("", 16, 48, 500, 345)
- _GUICtrlListView_AddColumn($ListView1, "项目1", 150)
- _GUICtrlListView_AddColumn($ListView1, "项目2", 350)
- GUISetState(@SW_SHOW)
- #EndRegion ### END Koda GUI section ###
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE
- Exit
- Case $Button1
- _GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView1))
- local $array[5][2],$sPassword=GUICtrlRead($input)
- $array[0][0]="字符串"
- $array[0][1]=$sPassword
- $temp=StringToBinary($sPassword,4)
- $temp=_Crypt_HashData($temp, $CALG_MD5)
- $array[4][0]="MD5 32位 大写"
- $array[4][1]=StringTrimLeft($temp,2)
- $array[3][0]="MD5 32位 小写"
- $array[3][1]=StringLower($array[4][1])
- $array[2][0]="MD5 16位 大写"
- $array[2][1]=StringMid($array[4][1],9,16)
- $array[1][0]="MD5 16位 小写"
- $array[1][1]=StringMid($array[3][1],9,16)
- _GUICtrlListView_AddArray($ListView1,$array)
- EndSwitch
- WEnd
复制代码 |
|