| wvins
36292
|
2008/12/5 17:22:20 |
代码挺好的，谢谢分享
Delphi7下面测试通过。
目前在尝试修改让他能够通过ISA的NTLM认证。 |
| maltel
36277
|
2008/12/2 18:15:05 |
| 测试了一下，还不错，就是发现联系人列表有些可以列出来，有些列不出来，不知道是什么问题？ |
| xyxia
36092
|
2008/11/7 18:41:37 |
| 我的是纯字母的密码也不行,而且我也按照你22号的方式修改了hash_password方法,不知什么原因? |
| dk13love
35933
|
2008/10/27 16:59:52 |
[Error] UnitMain.pas(383): Undeclared identifier: 'Connecttimeout'
出现这个错误，怎么解决呢 |
| jack_zh
35920
|
2008/10/26 17:11:11 |
为什么我的不能编译，总是报错：
[DCC Error] UnitMain.pas(271): E2003 Undeclared identifier: 'ReadString'
[DCC Error] UnitMain.pas(851): E2003 Undeclared identifier: 'ReadLn'
[DCC Error] UnitMain.pas(856): E2003 Undeclared identifier: 'Write'
[DCC Warning] UnitMain.pas(80): H2219 Private symbol 'FPhoneNum' declared but never used
[DCC Error] GreenFetion.dpr(14): F2063 Could not compile used unit 'UnitMain.pas'
我的系统是：Win2003 sp2+Delphi 2007 |
| onecool
35880
|
2008/10/23 22:33:40 |
完整源代码：http://download.csdn.net/user/zt_tju
//onecool 2008年10月22日修改
function TFormMain.hash_password(pwd: string): string;
var
SHA1Context: TSHA1Context;
SHA1Digest: TSHA1Digest;
tmpStr: string;
p, r: array[0..256] of char;
//type
sss:array[0..3] of byte;
zt:array[0..23] of byte;
xxx:string;
i:Integer;
begin
FillMemory(@p[0], 257, 0);
FillMemory(@r[0], 257, 0);
zt[0]:=210;
zt[1]:=180;
zt[2]:=98;
zt[3]:=8;
SHA1Init(SHA1Context);
SHA1Update(SHA1Context, PChar(pwd), Length(pwd));
SHA1Final(SHA1Context, SHA1Digest);
//上面是SHA1，SHA1Digest 为经过SHA1后的结果。
for i:=4 to 23 do
begin
zt[i]:=SHA1Digest[i-4];
end ;
SHA1Init(SHA1Context);
SHA1Update(SHA1Context, @zt[0], 24);
SHA1Final(SHA1Context, SHA1Digest);
for i:=4 to 23 do
begin
zt[i]:=SHA1Digest[i-4];
end ;
tmpStr := PChar(@zt);
BinToHex(PChar(tmpStr), r, Length(tmpStr));
Result := UpperCase(r);
end; |
| wmyunfei
35870
|
2008/10/23 13:12:34 |
to onecool
那个这个算法，怎么改？？？ |
| onecool
35863
|
2008/10/22 18:17:32 |
终于找到有些登录不了的原因了。
问题就出在hash_password中下面这两句上。
tmpStr := SALT + PChar(@SHA1Digest);
StrCopy(p, PChar(tmpStr)); |
| fywsky
35845
|
2008/10/21 13:25:56 |
| 我想问一下，这PHP版的飞信怎么用？有例子吗？有的话请给我发一份：fywsky#126.com(#替换为@)，先谢谢了。 |
| ghs_79
35837
|
2008/10/21 8:22:59 |
| 我改了一个纯字母的密码是可以的。 |
| onecool
35835
|
2008/10/20 20:55:33 |
to ghs_79:我发现有些密码是识别不了的，你改一下密码就可以了。
那个SHA1算法我和C#中的结果对比了一下，结果是一样的。SHA1后面那些做什么的没有看明白，谁来说说。
tmpStr := SALT + PChar(@SHA1Digest);
StrCopy(p, PChar(tmpStr)); |
| ghs_79
35834
|
2008/10/20 20:14:30 |
| 密码是数字为什么不行，用飞信客户端程序就可以登录的。 |
| wmyunfei
35794
|
2008/10/17 18:12:09 |
| 飞信登陆地址好像改了哟。请LZ看看。 |
