unit1.pas

QQ防盗登陆器 初学者 这个没有什么技术含量 请大家见谅啊

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,IdHashMessageDigest, ActiveX, ComObj,shlobj,registry, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
 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[i] := Ord(Current[i]);
    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[i] + 1];
  end;
  if ModLen >= 1 then
    result[Length(result)] := '=';
  if ModLen = 1 then
    result[Length(result) - 1] := '=';
end;

function getbase64md5pw(QQpw:string):string;
type
  TempChar = array[0..15] of char;
var
  md5: TIdHashMessageDigest5;
begin
  md5 := TIdHashMessageDigest5.Create;
  result := Base64(TempChar(md5.HashValue(QQPw)));
  md5.free;
end;

function GetCommandLine(QQPath, QQNum, QQPw: string; QQState: integer): string;
type
  TempChar = array[0..15] of char;
var
  md5: TIdHashMessageDigest5;
begin
  md5 := TIdHashMessageDigest5.Create;
  result := QQPath + 'qq.exe /START QQUIN:' + QQNum + ' PWDHASH:' + Base64(TempChar(md5.HashValue(QQPw))) + ' /STAT:' + IntToStr(QQState);
  md5.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
 var
 reg:Tregistry;
 Str:string;
 QQState: integer;
 QQPath,QQnum,QQPw: string;
 final : pchar;

 tmpObject : IUnknown; 
tmpSLink : IShellLink; 
tmpPFile : IPersistFile; 
PIDL : PItemIDList; 
StartupDirectory : array[0..MAX_PATH] of Char; 
StartupFilename : String; 
LinkFilename : WideString;
begin
  if length(edit1.Text) < 5 then
  exit;
   QQnum :=edit1.Text;
   QQpw :=edit2.Text;


   reg :=TRegistry.Create;
       with reg do
       begin
            RootKey:=HKEY_LOCAL_MACHINE;
            if openkey('SOFTWARE\TENCENT\QQ',true) then
            QQpath :=  readstring('Install') ;
            //QQ:=qqpath;
            free;
       end;

   winexec(pchar(GetCommandLine(QQpath,QQnum,QQpw,QQstate)),SW_MAXIMIZE);

end;

end.