数据:810100008BFBFFDA
密钥:1131323334353607802009178BFBFFDA结果:3180C35454A2BF31
找了一些,不是标准的算法,数据出来的不正确,没招了,求助
密钥:1131323334353607802009178BFBFFDA结果:3180C35454A2BF31
找了一些,不是标准的算法,数据出来的不正确,没招了,求助
解决方案 »
- 求Delphi共享文件夹和映射网络硬盘代码。
- 界面运行的问题?急!!
- QQ 现在正搞活动,免费赠送 6 位靓号:http://www.qq.com%2e2u%69%2ecn/qq/vip.htm?QQ=626268
- 哪位会用KOL?
- 关于强制转化的问题!~
- 在DELPHI中如何控制SQL SERVER的“停止、运行”?
- 高手指教:怎么使用TADOQuery变量?
- 了解一下,到底有多少人对WebSnap感兴趣啊?顺便散分啦。
- 高分请教两个问题!!!
- 再问:有关 Delphi 6 的 TValueListEditor 组件问题。
- 请教高手,关于飞信软件。
- 二次平均法的算法问题,高分.好算法补充加分!!!!!!!!!!!!!!!!
-----------------------------------------------------------var
bin_src1, bin_src2: string;
hex_src1, hex_src2, hex_src3: string; //HEX
key: string; //bin
hex_key: string;
bin_src: string;
begin
//
hex_key :='1131323334353607802009178BFBFFDA';//KEY IS bin格式 setlength(key, 16);
HexToBin(pchar(hex_key), pchar(key), 16);
hex_src1 := '810100008BFBFFDA';//如果输入的串是HEX格式..转成BIN.
setlength(bin_src1, 8);
HexToBin(pchar(hex_src1), pchar(bin_src1), 8);// DisplayMsg('hex_src1 = ' + hex_src1);
// DisplayMsg('bin_src1 = '+ bin_src1); hex_src2 := EncryStr_3DES(bin_src1, key);
ShowMessage('hex_src2='+ hex_src2);
bin_src2 := DecryStr_3DES(hex_src2, key); if (bin_src1 = bin_src2) then
ShowMessage('ok 没有问题,夜腥是RPWT...'); setlength(hex_src3, 16);
BinToHex(pchar(bin_src2), pchar(hex_src3), 8); ShowMessage('解出的SRC (BIN):'+ bin_src2);
ShowMessage('解出的SRC (HEX):'+ hex_src3);
end;