MD5 与 SHA 在 Delphi 中函数实现。为了加密密码，必须使用一种算法，查询资料，比较好的方法是使用：MD5等算法，参考：Delphi XE8 支持MD5第一种方式是：引用 System.Hash 中的 THashMD5， （或者 THashSHA1，THashSHA2） 参考 官方文档。 http://docwiki.embarcadero.com/Libraries/Tokyo/en/System.Hash 简单用法： hashmd5 := THashMD5.Create.GetHashString(‘abc‘); ‘abc’ 是你想加...
MD5需要引入system.Hash，BASE64需要引入System.NetEncoding，这两个单元应该只有高版本的DELPHI IDE才有（貌似XE5以上版本才有）。如果是D7的话，找第三方的库。 procedure TForm19.Button8Click(Sender: TObject); //md5加密beginEdit3.Clear;Edit3.Text := THashMD5.GetHashString(Edit2.Text); end;procedure TForm19.Button9Click(Sender: TObject); // base64加密varbase64: TBase64Encoding; beginbase64 := TBase64Encodi...
function BlowFish_DN(PT: int64): int64;function BlowFish_EN(PT: int64): int64; function BlowFish_Func(PT: LongWord): LongWord;const pBOX: array[1..18] of LongWord = ($243f6a88, $85a308d3, $13198a2e, $03707344, $a4093822, $299f31d0, $082efa98, $ec4e6c89, $452821e6, $38d01377, $be5466cf, $34e90c6c, $c0ac29b7, $c97c50dd, $3f84d5b5, $b5470917, $9216d5d9, $8979fb1b); sBox: array[1..4, 1..256]...
function encrypt($string,$operation,$key=) { $key=md5($key); $key_length=strlen($key); $string=$operation==D?base64_decode($string):substr(md5($string.$key),0,8).$string; $string_length=strlen($string); $rndkey=$box=array(); $result=; for($i=0;$i<=255;$i++) { $rndkey[$i]=ord($key[$i%$key_length]); $box[$i]=$i; ...
我在使用lockbox3和PHP mcrypt时遇到麻烦.我无法将IV传递给PHP. Delphi code：varCodec: TCodec;CL: TCryptographicLibrary;PlainStream: TStringStream;CipherStream: TMemoryStream; beginPlainStream := TStringStream.Create(Edit1.Text);CipherStream := TMemoryStream.Create;CL := TCryptographicLibrary.Create(nil);Codec := TCodec.Create(nil);Codec.CryptoLibrary := CL;Codec.ChainModeId := uTPLb_Constants.CBC_Pro...
我使用rijndael密码解密从PHP发送到Delphi的字符串时遇到问题.我在PHP端使用mcrypt,在Delphi端使用DCP_rijndael. 目前我有以下代码. PHP：function encRJ($key, $iv, $data) {$r = mcrypt_encrypt(MCRYPT_RIJNDAEL_256, $key, $data, MCRYPT_MODE_CBC, $iv);$r = base64_encode($r);return $r; }在德尔福：function decRJ(Data: string; Key: string; IV: string): string; var ciph: TDCP_rijndael; beginData := Base64DecodeStr...