MD5中文加密的方法

cxlater

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

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

post的不要哦

急用  谢谢

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

3mile

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

#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

3mile

先上编译好的.

cxlater

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

itljl

回复 3# cxlater


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

abc...

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

cxlater

回复  cxlater


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

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

cxlater

十分感谢

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

zysanjing1

这个有意思,顶!

gmzlmxm

我只是路过，不发表意见




























用醋洗脸可以美白吗

yorker0503

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

tsmirs

路过顶一下

jamer

这个，学习一下。。

夜猫猫

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

smooth

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

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