以下为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算法是一样。[已确认是一样的]。
解决方案 »
- 我的窗体在XP上的标题,边框都变成了难看的蓝色,有解决办法吗
- BDE 和 ADO 能一起使用吗?紧急!
- 各位大虾救命啊!!!关于ADOdataset CatchUpdate的问题!
- 如何把我的程序的一些提示信息写在WINDOWS2000的事件日志中去?
- 下面的VB代码如何改成DELPHI代码?100分!!!
- 调用dll文件,执行成功后,报错'invalid pointer operation'高手帮忙!在线等
- 有谁有相关的资料。
- sql語句中怎麼插系統日期的問題????
- 无分来问一个非专业的问题。
- 求救求救!!!!!!!!!!!!!!!!!!!! 关于2000和98的字体的问题。
- 1.sql2000 的连接属于tcp? 2.如何测试本机SocketServer可以建立多少tcp连接?(用clientsocket和socketserver写的网络通讯程序)
- DELPHI日期时间格式的一个问题
c := 'fdjf, jkgfkl';
多加了点空格。汗。。低级错误..