DELPHI .NET MD5 东东 一个简单软件的算法

ww-jack

.NET 程序破解目前比较容易(扰码不深的话)
Reflector 载入 自己看吧!~
.NET MD5 算法!~
以下是注册机部分源码!~
function TWinForm.GetMD5String(origin: string): string;
var
      num1: Byte;
      provider1:MD5CryptoServiceProvider;
      buffer1:array of Byte;
      builder1 :StringBuilder;
begin
      provider1 := MD5CryptoServiceProvider.Create;
      buffer1 := Encoding.UTF8.GetBytes(origin);
      buffer1 := provider1.ComputeHash(buffer1);
      builder1 := StringBuilder.Create;

      for num1 in buffer1 do
      begin
            builder1.Append(num1.ToString('x2').ToUpper)
      end;
      begin
            Result := builder1.ToString;
            exit
      end

end;
procedure TWinForm.Button1_Click(sender: System.Object; e: System.EventArgs);
var
Text1:string;
begin
text1 := GetMD5String(TextBox1.Text+ '1001JINHU');
TextBox2.Text:=  text1;
end;


我喜欢DELPHI 但是非常不愿意用DELPHI .NET 写程序 怕怕 ~

[ 本帖最后由 ww-jack 于 2006-11-18 17:34 编辑 ]

sjclch

主要是要介绍找这个地方方法与思路，谢谢