delphi 自己用的加密解密算法

// 加密方法一(通过密钥加密解密)
function EncryptString(Source, Key: string): string;
function UnEncryptString(Source, Key: string): string;
//加密方法二(通过移位加密解密)
function Encode(Str: string): string;
function Decode(Str: string): string;
//加密方法三（异或加密解密）
function Enc(str: string): string;
function Dec(str: string): string;

－－－－－－－－－－－－－－－

function TFrmRegister.EncryptString(Source, Key: string): string;
// 对字符串加密(Source:源 Key:密匙)
var
KeyLen: integer;
KeyPos: integer;
Offset: integer;
Dest: string;
SrcPos: integer;
SrcAsc: integer;
Range: integer;
begin
KeyLen := Length(Key);
if KeyLen = 0 then
Key := 'delphi';
KeyPos := 0;
Range := 256;
randomize;
Offset := random(Range);
Dest := format('%1.2x', [Offset]);
for SrcPos := 1 to Length(Source) do
begin
SrcAsc := (Ord(Source[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 TFrmRegister.UnEncryptString(Source, Key: string): string;
// 对字符串解密(Src:源 Key:密匙)
var
KeyLen: integer;
KeyPos: integer;
Offset: integer;
Dest: string;
SrcPos: integer;
SrcAsc: integer;
TmpSrcAsc: integer;
begin
KeyLen := Length(Key);
if KeyLen = 0 then
Key := 'delphi';
KeyPos := 0;
Offset := strtoint('$' + copy(Source, 1, 2));
SrcPos := 3;
repeat
SrcAsc := strtoint('$' + copy(Source, 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(Source);
result := Dest;
end;

----------------

function TFrmRegister.Decode(Str: string): string;
var
TmpChr: AnsiChar;
i, Len: Integer;
begin
Result := Str;
len := Length(Result);
TmpChr := result[len];
for i := Len downto 2 do
begin
Result[i] := result[i - 1];
Result[1] := TmpChr;
end;
end;

function TFrmRegister.Encode(Str: string): string;
var
TmpChr: AnsiChar;
i, Len: Integer;
begin
Result := Str;
len := Length(Result);
TmpChr := result[1];
for i := 1 to len - 1 do
begin
Result[i] := result[i + 1];
Result[len] := TmpChr;
end;
end;

---------

XorKey: array[0..7] of Byte = ($B2, $09, $AA, $55, $93, $6D, $84, $47);

function TFrmRegister.Enc(str: string): string;
var
i, j: Integer;
begin
Result := '';
j := 0;
for i := 1 to Length(str) do
begin
Result := Result + IntToHex(Byte(str[i]) xor XorKey[j], 2);
j := (j + 1) mod 8;
end;
end;

function TFrmRegister.Dec(str: string): string;
var
i, j: Integer;
begin
Result := '';
j := 0;
for i := 1 to Length(str) div 2 do
begin
Result := Result + Char(StrToInt('$' + Copy(str, i * 2 - 1, 2)) xor
XorKey[j]);
j := (j + 1) mod 8;
end;
end;

=====================2014-08-22整理后如下=========================

unit UMiMaApi;

interface

uses System.Classes, System.SysUtils;

/// <summary>
/// 经过测试此类的方法通常仅仅支持英文和符号,不支持中文,通常密码也只能英文无法中文
/// </summary>
type TMiMaApi = class
  const
    XorKey: array[0..7] of Byte = ($B2, $09, $AA, $55, $93, $6D, $84, $47);
  public
    /// <summary>
    /// 加密方法一(通过密钥加密解密),对字符串加密(Source:源 Key:密匙)
    /// </summary>
    function JiaMiByMiYao(ASource, AKey: string): string;
    function JieMiByMiYao(ASource, AKey: string): string;

    /// <summary>
    /// 加密方法二(通过移位加密解密)
    /// </summary>
    function JiaMiByYiWei(AStr: string): string;
    function JieMiByYiWei(AStr: string): string;

    /// <summary>
    /// 加密方法三(异或加密解密)
    /// </summary>
    function JiaMiByYiHuo(AStr: string): string;
    function JieMiByYiHuo(AStr: string): string;
end;

implementation

function TMiMaApi.JiaMiByMiYao(ASource, AKey: string): string;
var
  KeyLen: integer;
  KeyPos: integer;
  Offset: integer;
  Dest: string;
  SrcPos: integer;
  SrcAsc: integer;
  Range: integer;
begin
  KeyLen := Length(AKey);
  if KeyLen = 0 then
  begin
    AKey := 'delphi';
  end;
  KeyPos := 0;
  Range := 256;
  randomize;
  Offset := random(Range);
  Dest := format('%1.2x', [Offset]);
  for SrcPos := 1 to Length(ASource) do
  begin
    SrcAsc := (Ord(ASource[SrcPos]) + Offset) mod 255;
    if KeyPos < KeyLen then
    begin
      KeyPos := KeyPos + 1;
    end else begin
      KeyPos := 1;
    end;
    SrcAsc := SrcAsc xor Ord(AKey[KeyPos]);
    Dest := Dest + format('%1.2x', [SrcAsc]);
    Offset := SrcAsc;
  end;
  Result := Dest;
end;

function TMiMaApi.JieMiByMiYao(ASource, AKey: string): string;
var
  KeyLen: integer;
  KeyPos: integer;
  Offset: integer;
  Dest: string;
  SrcPos: integer;
  SrcAsc: integer;
  TmpSrcAsc: integer;
begin
  KeyLen := Length(AKey);
  if KeyLen = 0 then
  begin
    AKey := 'delphi';
  end;
  KeyPos := 0;
  Offset := strtoint('$' + copy(ASource, 1, 2));
  SrcPos := 3;
  repeat
    SrcAsc := strtoint('$' + copy(ASource, SrcPos, 2));
    if KeyPos < KeyLen then
    begin
      KeyPos := KeyPos + 1;
    end else begin
      KeyPos := 1;
    end;
    TmpSrcAsc := SrcAsc xor Ord(AKey[KeyPos]);
    if TmpSrcAsc <= Offset then
    begin
      TmpSrcAsc := 255 + TmpSrcAsc - Offset;
    end else begin
      TmpSrcAsc := TmpSrcAsc - Offset;
    end;
    Dest := Dest + chr(TmpSrcAsc);
    Offset := SrcAsc;
    SrcPos := SrcPos + 2;
  until SrcPos >= Length(ASource);
  Result := Dest;
end;

function TMiMaApi.JiaMiByYiWei(AStr: string): string;
var
  TmpChr: Char;
  i,Len: Integer;
begin
  Result := AStr;
  len := Length(Result);
  TmpChr := result[1];
  for i := 1 to len - 1 do
  begin
    Result[i] := result[i + 1];
    Result[len] := TmpChr;
  end;
end;

function TMiMaApi.JieMiByYiWei(AStr: string): string;
var
  TmpChr: Char;
  i,Len: Integer;
begin
  Result := AStr;
  len := Length(Result);
  TmpChr := result[len];
  for i := Len downto 2 do
  begin
    Result[i] := result[i - 1];
    Result[1] := TmpChr;
  end;
end;

function TMiMaApi.JiaMiByYiHuo(AStr: string): string;
var
  i,j: Integer;
begin
  Result := '';
  j := 0;
  for i := 1 to Length(AStr) do
  begin
    Result := Result + IntToHex(Byte(AStr[i]) xor XorKey[j], 2);
    j := (j + 1) mod 8;
  end;
end;

function TMiMaApi.JieMiByYiHuo(AStr: string): string;
var
  i,j: Integer;
begin
  Result := '';
  j := 0;
  for i := 1 to Length(AStr) div 2 do
  begin
    Result := Result + Char(StrToInt('$' + Copy(AStr, i * 2 - 1, 2)) xor
    XorKey[j]);
    j := (j + 1) mod 8;
  end;
end;

end.