怎样解Delphi的密文

先知新手

大家好，Delphi加密的密文用易语言怎样可以解密，密文（9961BC47C257BD82DF7C）原文（songxz110），密文（64F9401F3F1822）原文（123456），Delphi的加解密方法如下：
function EncrypKey(Src: string; Key: string): string;
var // 加密函数
  idx: Integer;
  KeyLen: Integer;
  KeyPos: Integer;
  offset: Integer;
  dest: string;
  SrcPos: Integer;
  SrcAsc: Integer;
  TmpSrcAsc: Integer;
  Range: Integer;
begin
  KeyLen := Length(Key);
  if KeyLen = 0 then
    Key := 'CaiChen';
  KeyPos := 0;
  SrcPos := 0;
  SrcAsc := 0;
  Range := 256;
  Randomize;
  offset := Random(Range);
  dest := format('%1.2x', [offset]);
  for SrcPos := 1 to Length(Src) do
  begin
    SrcAsc := (Ord(Src[SrcPos]) + offset) mod 255;
    if KeyPos < KeyLen then
      KeyPos := KeyPos + 1
    else
      KeyPos := 1;
    SrcAsc := SrcAsc xor Ord(Key[KeyPos]);
    dest := dest + format('%1.2x', [SrcAsc]);
    offset := SrcAsc;
  end;
  Result := dest;
end;

function UncrypKey(Src: string; Key: string): string;
var // 解密函数
  idx: Integer;
  KeyLen: Integer;
  KeyPos: Integer;
  offset: Integer;
  dest: string;
  SrcPos: Integer;
  SrcAsc: Integer;
  TmpSrcAsc: Integer;
  Range: Integer;
begin
  KeyLen := Length(Key);
  if KeyLen = 0 then
    Key := 'CaiChen';
  KeyPos := 0;
  SrcPos := 0;
  SrcAsc := 0;
  Range := 256;
  offset := StrToInt('$' + copy(Src, 1, 2));
  SrcPos := 3;
  repeat
    SrcAsc := StrToInt('$' + copy(Src, SrcPos, 2));
    if KeyPos < KeyLen then
      KeyPos := KeyPos + 1
    else
      KeyPos := 1;
    TmpSrcAsc := SrcAsc xor Ord(Key[KeyPos]);
    if TmpSrcAsc <= offset then
      TmpSrcAsc := 255 + TmpSrcAsc - offset
    else
      TmpSrcAsc := TmpSrcAsc - offset;
    dest := dest + chr(TmpSrcAsc);
    offset := SrcAsc;
    SrcPos := SrcPos + 2;
  until SrcPos >= Length(Src);
  Result := dest;
end;

番茄吧

  

子程序名	返回值类型	公开	备 注
EncrypKey	文本型
参数名	类 型	参考	可空	数组	备 注
Src	文本型
key	文本型

变量名	类 型	静态	数组	备 注
idx
KeyLen
KeyPos
offset
dest	文本型
SrcPos
SrcAsc
TmpSrcAsc
Range

KeyLen ＝ 取文本长度 (key)
如果真 (KeyLen ＝ 0)
key ＝ “CaiChen”
KeyPos ＝ 0
SrcPos ＝ 0
SrcAsc ＝ 0
Range ＝ 256
置随机数种子 ()
offset ＝ 取随机数 (1, Range)
dest ＝ 取文本右边 (“00” ＋ 进制_十到十六 (offset), 2)
计次循环首 (取文本长度 (Src), SrcPos)
SrcAsc ＝ (取代码 (Src, SrcPos) ＋ offset) ％ 255
如果 (KeyPos ＜ KeyLen)
KeyPos ＝ KeyPos ＋ 1
KeyPos ＝ 1
SrcAsc ＝ 位异或 (SrcAsc, 取代码 (key, KeyPos))
dest ＝ dest ＋ 取文本右边 (“00” ＋ 进制_十到十六 (SrcAsc), 2)  ' ’ format('%1.2x', [SrcAsc]);
offset ＝ SrcAsc
计次循环尾 ()
返回 (dest)

子程序名	返回值类型	公开	备 注
UncrypKey	文本型
参数名	类 型	参考	可空	数组	备 注
Src	文本型
Key	文本型

变量名	类 型	静态	数组	备 注
idx
KeyLen
KeyPos
offset
dest	文本型
SrcPos
SrcAsc
TmpSrcAsc

KeyLen ＝ 取文本长度 (Key)
如果真 (KeyLen ＝ 0)
key ＝ “CaiChen”
KeyPos ＝ 0
SrcPos ＝ 0
SrcAsc ＝ 0
offset ＝ 进制_十六到十 (取文本左边 (Src, 2))
SrcPos ＝ 3
循环判断首 ()
SrcAsc ＝ 进制_十六到十 (取文本中间 (Src, SrcPos, 2))
如果 (KeyPos ＜ KeyLen)
KeyPos ＝ KeyPos ＋ 1
KeyPos ＝ 1
TmpSrcAsc ＝ 位异或 (SrcAsc, 取代码 (Key, KeyPos))
如果 (TmpSrcAsc ≤ offset)
TmpSrcAsc ＝ 255 ＋ TmpSrcAsc － offset
TmpSrcAsc ＝ TmpSrcAsc － offset
dest ＝ dest ＋ 字符 (TmpSrcAsc)
offset ＝ SrcAsc
SrcPos ＝ SrcPos ＋ 2
循环判断尾 (SrcPos ≤ 取文本长度 (Src))
返回 (dest)

.版本 2<br /> <br /> .子程序 EncrypKey, 文本型<br /> .参数 Src, 文本型<br /> .参数 key, 文本型, 可空<br /> .局部变量 idx<br /> .局部变量 KeyLen<br /> .局部变量 KeyPos<br /> .局部变量 offset<br /> .局部变量 dest, 文本型<br /> .局部变量 SrcPos<br /> .局部变量 SrcAsc<br /> .局部变量 TmpSrcAsc<br /> .局部变量 Range<br /> <br /> KeyLen ＝ 取文本长度 (key)<br /> .如果真 (KeyLen ＝ 0)<br />     key ＝ “CaiChen”<br /> .如果真结束<br /> KeyPos ＝ 0<br /> SrcPos ＝ 0<br /> SrcAsc ＝ 0<br /> Range ＝ 256<br /> 置随机数种子 ()<br /> offset ＝ 取随机数 (1, Range)<br /> dest ＝ 取文本右边 (“00” ＋ 进制_十到十六 (offset), 2)<br /> .计次循环首 (取文本长度 (Src), SrcPos)<br />     SrcAsc ＝ (取代码 (Src, SrcPos) ＋ offset) ％ 255<br />     .如果 (KeyPos ＜ KeyLen)<br />         KeyPos ＝ KeyPos ＋ 1<br />     .否则<br />         KeyPos ＝ 1<br />     .如果结束<br />     SrcAsc ＝ 位异或 (SrcAsc, 取代码 (key, KeyPos))<br />     dest ＝ dest ＋ 取文本右边 (“00” ＋ 进制_十到十六 (SrcAsc), 2)  ' ’ format('%1.2x', [SrcAsc]);<br />     offset ＝ SrcAsc<br /> <br /> .计次循环尾 ()<br /> 返回 (dest)<br /> <br /> .子程序 UncrypKey, 文本型<br /> .参数 Src, 文本型<br /> .参数 Key, 文本型, 可空<br /> .局部变量 idx<br /> .局部变量 KeyLen<br /> .局部变量 KeyPos<br /> .局部变量 offset<br /> .局部变量 dest, 文本型<br /> .局部变量 SrcPos<br /> .局部变量 SrcAsc<br /> .局部变量 TmpSrcAsc<br /> <br /> KeyLen ＝ 取文本长度 (Key)<br /> .如果真 (KeyLen ＝ 0)<br />     key ＝ “CaiChen”<br /> .如果真结束<br /> KeyPos ＝ 0<br /> SrcPos ＝ 0<br /> SrcAsc ＝ 0<br /> offset ＝ 进制_十六到十 (取文本左边 (Src, 2))<br /> SrcPos ＝ 3<br /> .循环判断首 ()<br />     SrcAsc ＝ 进制_十六到十 (取文本中间 (Src, SrcPos, 2))<br />     .如果 (KeyPos ＜ KeyLen)<br />         KeyPos ＝ KeyPos ＋ 1<br />     .否则<br />         KeyPos ＝ 1<br />     .如果结束<br />     TmpSrcAsc ＝ 位异或 (SrcAsc, 取代码 (Key, KeyPos))<br />     .如果 (TmpSrcAsc ≤ offset)<br />         TmpSrcAsc ＝ 255 ＋ TmpSrcAsc － offset<br />     .否则<br />         TmpSrcAsc ＝ TmpSrcAsc － offset<br />     .如果结束<br />     dest ＝ dest ＋ 字符 (TmpSrcAsc)<br />     offset ＝ SrcAsc<br />     SrcPos ＝ SrcPos ＋ 2<br /> .循环判断尾 (SrcPos ≤ 取文本长度 (Src))<br /> 返回 (dest)

* A6598BBA619A56C4B6A5
* songxz110
被调试易程序运行完毕

番茄吧

你的key 不是默认的吧？？我翻译完解不开你的密文，我用默认的key 加密完是可以解开的

番茄吧

朋友，来看看啊，没问题记得结贴哦~~