以下为JavaScript代码:
function login(txtPassword)
{
var a = txtPassword;
var b = "\xa3\xac\xa1\xa3";
var c = "fdjf,jkgfkl";
var s = a+b+c;
var r = MD5(s);
return r;
}
textPassword是密码值。
以下为delphi的代码:
function GetMDd5(const aStr: string): string;
var md: TMd5Digest; i: integer;
a: string;
b: string;
c: string;
s: string;
r: string;begin
a := aStr;
c := 'fdjf, jkgfkl';
b := Char($a3) + Char($ac) + Char($a1) + Char($a3);
s := a + b + c;
r := md.MD5(s);
result:= r;
end;这两个代码获得的值不一样。主要问题出在:
var b = "\xa3\xac\xa1\xa3";[JavaScript]b := Char($a3) + Char($ac) + Char($a1) + Char($a3);[Delphi]
请问这两个代码。在delphi该怎么写,得到的值才能一样?声名:JavaScipt与delphi的MD5算法是一样。[已确认是一样的]。
function login(txtPassword)
{
var a = txtPassword;
var b = "\xa3\xac\xa1\xa3";
var c = "fdjf,jkgfkl";
var s = a+b+c;
var r = MD5(s);
return r;
}
textPassword是密码值。
以下为delphi的代码:
function GetMDd5(const aStr: string): string;
var md: TMd5Digest; i: integer;
a: string;
b: string;
c: string;
s: string;
r: string;begin
a := aStr;
c := 'fdjf, jkgfkl';
b := Char($a3) + Char($ac) + Char($a1) + Char($a3);
s := a + b + c;
r := md.MD5(s);
result:= r;
end;这两个代码获得的值不一样。主要问题出在:
var b = "\xa3\xac\xa1\xa3";[JavaScript]b := Char($a3) + Char($ac) + Char($a1) + Char($a3);[Delphi]
请问这两个代码。在delphi该怎么写,得到的值才能一样?声名:JavaScipt与delphi的MD5算法是一样。[已确认是一样的]。
解决方案 »
- 请问ftBCD和ftCurrency 这两个类型有什么不同?
- 又要找工作了,大家先看看我的简历,觉得我值多少钱?
- 求助!
- 动态创建一个新窗体 焦点仍然留在原来的窗体上 可以实现吗?
- 问题:关于adoconnection,adoquery!
- 用了UDP控件以后为什么不关闭窗口就关不了机?
- 急! 请问有什么办法能够取得某个web目录下的所有子目录及文件????
- 请问如何在delphi中调用制作好的chm文件
- 请问下如何更新ASP网站内容
- 一个关于文件的操作
- 1.sql2000 的连接属于tcp? 2.如何测试本机SocketServer可以建立多少tcp连接?(用clientsocket和socketserver写的网络通讯程序)
- DELPHI日期时间格式的一个问题
c := 'fdjf, jkgfkl';
多加了点空格。汗。。低级错误..