Delphi 解密字符串函数

• 函数类型：　自定义函数

• 函数说明：

解密字符串函数

• 代码如下：

 function DecryptString(src: String; Key: String): string;
var
  KeyLen: Integer;
  KeyPos: Integer;
  Offset: Integer;
  SrcPos: Integer;
  SrcAsc: Integer;
  TmpSrcAsc: Integer;
  IntTemp, I: Integer;
  ByteArray: TBytes;
begin
  KeyLen := Length(Key);
  if KeyLen = 0 then
    Key := 'starlin';
  KeyPos := 0;
  Offset := System.SysUtils.StrToInt('$' + Copy(src, 1, 2));
  SrcPos := 3;
  IntTemp := Length(src) div 2;
  SetLength(ByteArray, IntTemp);
  I := 0;
  repeat
    try
      SrcAsc := StrToInt('$' + Copy(src, SrcPos, 2));
    except
      SrcAsc := StrToInt('$00');
    end;

    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;
    ByteArray[I] := TmpSrcAsc;
    I := I + 1;
    Offset := SrcAsc;
    SrcPos := SrcPos + 2;
  until SrcPos >= Length(src);

  Result := StringOf(ByteArray);
end;

• 用法示例：

无　

《学习大师原创文档，请勿转载，侵权必究》