摘要： 引用三个单元，分别是：IdHashMessageDigest,IdGlobal, IdHash; 1 uses IdHashMessageDigest,IdGlobal, IdHash; 2 3 vars:string; 4 MyMD5: TIdHashMessageDigest5; 5 Digest: T4x4LongWordRecord; 6 begin 7 s:='123456'; 8 MyMD5 := TIdHashMessageDigest5.Create; 9 Digest := MyMD5.HashValue(s);10 s:=MyMD5.AsHex(Digest 阅读全文

摘要： 测试环境：VS2008+VB.net 1 Public Shared Function GetWebContent(ByVal sURL As String) As String 2 Try 3 Dim request As Net.WebRequest 4 Dim response As Net.WebResponse 5 request = Net.WebRequest.Create(sURL) 6 response = request.GetResponse() 7 ... 阅读全文