欢迎来到 黑吧安全网 聚焦网络安全前沿资讯,精华内容,交流技术心得!

Delphi黑客编程-字符串加密解密

来源:本站整理 作者:佚名 时间:2014-07-15 TAG: 我要投稿

TDynByteArray = array of byte;
const
  SeedA             = 5678;   ///  常量 ,你可以修改 
  SeedB             = 5432;   ///  常量 ,你可以修改 
///  对数组
加密 
function Crypt(const s: TDynByteArray; Key: Word; const bEncrypt: boolean = true): TDynByteArray; overload;
var
  i                 : integer;
begin
  SetLength(Result, Length(s));
  for i := Low(s) to High(s) do
  begin
    Result[i] := s[i] xor (key shr 8);
    if bEncrypt then
      Key := (Result[i] + key) * SeedA + SeedB
    else
      Key := (s[i] + Key) * SeedA + SeedB;
  end;
end;
///  字符串 
function Crypt(const s: string; Key: Word; const bEncrypt: boolean = True): string; overload;
var
  i                 : integer;
  ps, pr            : ^byte;
begin
  SetLength(Result, Length(s));
  ps := @s[1];
  pr := @Result[1];
  for i := 1 to length(s) do
  begin
    pr^ := ps^ xor (Key shr 8);
    if bEncrypt then
      Key := (pr^ + Key) * SeedA + SeedB
    else
      Key := (ps^ + Key) * SeedA + SeedB;
    pr := pointer(integer(pr) + 1);
    ps := pointer(integer(ps) + 1);
  end
end;
///  也可以对记录进行
加密 ,只要把 TResultData 改成你的记录类型即可!!!!!! 
function Crypt(const s: TResultData; Key: Word; const bEncrypt: boolean = True): TResultData; overload;
var
  i                 : integer;
  ps, pr            : ^byte;
begin
  ps := @s;
  pr := @Result;
  for i := 1 to SizeOf(s) do
  begin
    pr^ := ps^ xor (Key shr 8);
    if bEncrypt then
      Key := (pr^ + Key) * SeedA + SeedB
    else
      Key := (ps^ + Key) * SeedA + SeedB;
    pr := pointer(integer(pr) + 1);
    ps := pointer(integer(ps) + 1);
  end;
end;
***************************
function cryptstr(const s:string; stype: dword):string;
var
  i: integer;
  fkey: integer;
begin
  result:=’’;
  case stype of
  0:
    begin
      randomize;
      fkey := random($ff);
      for i:=1 to length(s) do
       result := result+chr( ord(s[i]) xor i xor fkey);
      result := result + char(fkey);
    end;

[1] [2]  下一页

【声明】:黑吧安全网(http://www.myhack58.com)登载此文出于传递更多信息之目的,并不代表本站赞同其观点和对其真实性负责,仅适于网络安全技术爱好者学习研究使用,学习中请遵循国家相关法律法规。如有问题请联系我们,联系邮箱admin@myhack58.com,我们会在最短的时间内进行处理。
  • 最新更新
    • 相关阅读
      • 本类热门
        • 最近下载