qq加密算法.txt

QQ加密算法

第一块 Base64加密复制内容到剪贴板代码:
function Base64(Src: string): string;
const
  DataSet = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';
var
  i, ModLen: integer;
  Current: string;
  Buf: array[1..3] of Byte;
  NewBuf: array[1..4] of Byte;
begin
  result := '';
  if Src = '' then
    exit;
  ModLen := Length(Src) mod 3;
  while Length(Src) > 0 do
  begin
    FillChar(Buf, 3, #0);
    Current := Copy(Src, 1, 3);
    Src := Copy(Src, 4, Length(Src) - 3);
    for i := 1 to 3 do
      Buf := Ord(Current);
    NewBuf[1] := Buf[1] shr 2;
    NewBuf[2] := (Buf[1] shl 6 shr 2 or Buf[2] shr 4) and $3F;
    NewBuf[3] := (Buf[2] shl 4 shr 2 or Buf[3] shr 6) and $3F;
    NewBuf[4] := Buf[3] and $3F;
    for i := 1 to 4 do
      result := result + DataSet[NewBuf + 1];
  end;
  if ModLen >= 1 then
    result[Length(result)] := '=';
  if ModLen = 1 then
    result[Length(result) - 1] := '=';
end;PWDHASH加密 （包括md5）复制内容到剪贴板代码:
function GetCommandLine(QQNum, QQPw, zt: string): string;
type
TempChar = array[0..15] of char;
var
   md5: TIdHashMessageDigest5;
begin
   md5 := TIdHashMessageDigest5.Create;
   result := {'"'+QQState+'"'+}' /START QQUIN:' + QQNum + ' PWDHASH:' + Base64(TempChar(md5.HashValue(QQPw))) + ' /STAT:'+zt;
   md5.Free;
end;QQ安装路径 （大家可以改为遍历目录 我这用了opendialog控件）复制内容到剪贴板代码:

procedure TForm1.Button2Click(Sender: TObject);
begin
if opendialog1.Execute
then
edit3.Text:=opendialog1.FileName;
end;

最后登入部分代码：
[code]procedure TForm1.Button1Click(Sender: TObject);
var
qq, mima,lujing,zt,dddd: string;

begin
qq:= edit1.Text;
mima:= edit2.Text;
lujing:= edit3.Text;
if checkbox1.Checked then zt:='40' else zt:='10';//checkbox1 是否勾选隐身
dddd:=GetCommandLine(qq, mima, zt);
ShellExecute(handle, 'open',PChar(lujing), PChar(dddd), nil, SW_SHOW);
end;引用单元如下复制内容到剪贴板代码:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,
  shellapi, StdCtrls, IdHashMessageDigest;在xp sp3  delphi7下编译通过