MD5中文加密的方法

cxlater

au3的各种md5的加密udf得到的结果跟其他软件得到的都不一样

求能获得中文加密字串结果与 http://www.51240.com/md5jiami/ 站点结果相同的方法

post的不要哦

急用  谢谢

刚刚发了两个帖子发错了  麻烦版主帮删一下

3mile

没想过要收钱.
没上源码的原因是因为我认为网站加密的方法有点搞.既然楼主需要源码,双手奉上

1. #include <ButtonConstants.au3>
   
2. #include <EditConstants.au3>
   
3. #include <GUIConstantsEx.au3>
   
4. #include <ListViewConstants.au3>
   
5. #include <StaticConstants.au3>
   
6. #include <WindowsConstants.au3>
   
7. #include <Crypt.au3>
   
8. #include <GuiConstantsEx.au3>
   
9. #include <GuiListView.au3>
   
10. 
    
11. #Region ### START Koda GUI section ### Form=
    
12. $Form1 = GUICreate("MD5加密  by-3mile", 580, 422, 192, 132)
    
13. $input = GUICtrlCreateInput("测试", 208, 16, 185, 24)
    
14. $Label1 = GUICtrlCreateLabel("要加密的字符串", 16, 16, 185, 24)
    
15. $Button1 = GUICtrlCreateButton("Button1", 416, 16, 73, 25)
    
16. $ListView1 = GUICtrlCreateListView("", 16, 48, 500, 345)
    
17. _GUICtrlListView_AddColumn($ListView1, "项目1", 150)
    
18. _GUICtrlListView_AddColumn($ListView1, "项目2", 350)
    
19. 
    
20. GUISetState(@SW_SHOW)
    
21. #EndRegion ### END Koda GUI section ###
    
22. 
    
23. While 1
    
24.         $nMsg = GUIGetMsg()
    
25.         Switch $nMsg
    
26.                 Case $GUI_EVENT_CLOSE
    
27.                         Exit
    
28.                 Case $Button1
    
29.                         _GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView1))
    
30.                         local $array[5][2],$sPassword=GUICtrlRead($input)
    
31.                         $array[0][0]="字符串"
    
32.                         $array[0][1]=$sPassword
    
33.                         $temp=StringToBinary($sPassword,4)
    
34.                         $temp=_Crypt_HashData($temp, $CALG_MD5)
    
35.                         $array[4][0]="MD5 32位 大写"
    
36.                         $array[4][1]=StringTrimLeft($temp,2)
    
37.                         $array[3][0]="MD5 32位 小写"
    
38.                         $array[3][1]=StringLower($array[4][1])
    
39.                         $array[2][0]="MD5 16位 大写"
    
40.                         $array[2][1]=StringMid($array[4][1],9,16)
    
41.                         $array[1][0]="MD5 16位 小写"
    
42.                         $array[1][1]=StringMid($array[3][1],9,16)
    
43.                         _GUICtrlListView_AddArray($ListView1,$array)
    
44.         EndSwitch
    
45. WEnd
    

复制代码

3mile

先上编译好的.

cxlater

楼上可以给出源码吗   因为这个问题我手上的事情暂停两天了
昨天用的站长之家post查询的结果返回   但是现在每组好几百个字符串需要处理 post力不从心
谢谢了

itljl

回复 3# cxlater


给钱，自然给源码了。你发的是100元脚本交易贴

abc...

哈哈，二L的不差这点钱。。。。

cxlater

回复  cxlater


给钱，自然给源码了。你发的是100元脚本交易贴
itljl 发表于 2011-6-8 18:46

我发的是悬赏帖   谁给了答案  金钱我自然会给

cxlater

十分感谢

1. 
   
2. StringTrimLeft(_Crypt_HashData(StringToBinary($test,4), $CALG_MD5),2)
   

复制代码

zysanjing1

这个有意思,顶!

gmzlmxm

我只是路过，不发表意见




























用醋洗脸可以美白吗

yorker0503

给钱，就给源码，真理啊~~

tsmirs

路过顶一下

jamer

这个，学习一下。。

夜猫猫

学习...........

smooth

没想过要收钱.
没上源码的原因是因为我认为网站加密的方法有点搞.既然楼主需要源码,双手奉上
3mile 发表于 2011-6-8 11:24

好东西，今天我都找了一天了，在百度里搜索才转到论坛里。谢谢！