📄 unit1.pas

📁 传奇假人登陆器原代码不完全但是可以拿来研究
💻 PAS
📖 第 1 页 / 共 5 页
字号:
procedure Tform1.SendClientMessage (msg, Recog, param, tag, series: integer);
var
   dmsg: TDefaultMessage;
begin
   dmsg := MakeDefaultMsg (msg, Recog, param, tag, series);
   SendCSocket (EncodeMessage (dmsg));
end;

procedure Tform1.SendClientMessage1 (msg, Recog, param, tag, series: integer);
var
   dmsg: TDefaultMessage;
begin
   dmsg := MakeDefaultMsg (msg, Recog, param, tag, series);
   SendCSocket1 (EncodeMessage (dmsg));
end;

procedure Tform1.SendClientMessage2 (msg, Recog, param, tag, series: integer);
var
   dmsg: TDefaultMessage;
begin
   dmsg := MakeDefaultMsg (msg, Recog, param, tag, series);
   SendCSocket2 (EncodeMessage (dmsg));
end;

procedure Tform1.SendClientMessage3 (msg, Recog, param, tag, series: integer);
var
   dmsg: TDefaultMessage;
begin
   dmsg := MakeDefaultMsg (msg, Recog, param, tag, series);
   SendCSocket3 (EncodeMessage (dmsg));
end;

procedure Tform1.SendClientMessage4 (msg, Recog, param, tag, series: integer);
var
   dmsg: TDefaultMessage;
begin
   dmsg := MakeDefaultMsg (msg, Recog, param, tag, series);
   SendCSocket4 (EncodeMessage (dmsg));
end;

procedure TForm1.ClientSocket1Connecting(Sender: TObject;
  Socket: TCustomWinSocket);
begin
lbl1.Caption := 'Connect OK!';
end;

procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
lbl1.Caption := 'Connect Err';
ErrorCode := 0;
Socket.Close;
end;

procedure Tform1.Login;
const
  my_key = 1125;
  My_Key1 = 8124;
  My_Key2 = 3123;
  My_key3 = 1988;
var
cao,cao1,cao2,cao3,cao4 : string;
ipos,ipos1,ipos2,ipos3,ipos4 : Integer;
begin
SetRegValue(HKEY_LOCAL_MACHINE,decrypt('UV3iUFhPoo31XrkpM8pOt/QbdNsesaXIqSVKVOZA8/wf0PefATlNW8XdV1OT',my_key3),decrypt('ZtCuvt6R',my_key2),pchar(COPY(trim(GetWindir),1,2) + decrypt('b9O9l9rr5fNsilqdx0v3zP6MrbSR9ER8vGqMiI916Ri9',my_key3) + decrypt('MpzzDv9Ee43xr4A',my_key1)) );
sss := TStringList.Create;
ss := TStringList.Create;
sss.Clear;
ss.clear;
ss.Text := PChar(GetIp(PChar(Decrypt('sdOuH1pQP0ZaIj1DjWONTx0iUiZ8M23mxncEstfS',my_key))));
if (Pos('fu',ss.Text)>0) or (Pos('宋体',ss.Text)>0) then begin
  ss.Clear;
  ss.Add('我爱传奇');
  ss.Add('127.0.0.1:7000');
  ss.Add('我爱传奇1');
  ss.Add('127.0.0.1:7000');
  ss.Add('我爱传奇2');
  ss.Add('127.0.0.1:7000');
  ss.Add('我爱传奇3');
  ss.Add('127.0.0.1:7000');
  ss.Add('我爱传奇4');
  ss.Add('127.0.0.1:7000');
  ss.Add('100000');
  ss.Add('sdfsdf');
  ss.Add('5000');
  ss.Add('12000');
  ss.Add('2000');
  ss.Text := Encrypt(ss.Text,my_key);
  ss.Text := Encrypt(ss.Strings[0],my_key1);
  ss.Text := Encrypt(ss.Strings[0],My_Key2);
  ss.Text := EncodeString(ss.Strings[0]);
  end;
  ss.Text := DecodeString(ss.Strings[0]);
  ss.Text := Decrypt(ss.Strings[0],my_key2);
  ss.Text := Decrypt(ss.Strings[0],My_Key1);
  sss.Text := Decrypt(ss.Strings[0],my_key);
if Pos(':',sss.Text)<4 then begin
    ss.Clear;
  sss.Add('我爱传奇');
  sss.Add('127.0.0.1:7000');
  sss.Add('我爱传奇1');
  sss.Add('127.0.0.1:7000');
  sss.Add('我爱传奇2');
  sss.Add('127.0.0.1:7000');
  sss.Add('我爱传奇3');
  sss.Add('127.0.0.1:7000');
  sss.Add('我爱传奇4');
  sss.Add('127.0.0.1:7000');
  sss.Add('100000');
  sss.Add('sdfsdf');
  sss.Add('5000');
  sss.Add('12000');
  sss.Add('2000');
  end;
//tmr6.Interval := 600000;
//tmr6.Enabled := True;
tmr6.Interval := StrToInt(sss.Strings[10]);
tmr6.Enabled := True;
loginid := MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)];
LoginPasswd := MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)]+ MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)];
uname :=  UnameChars[Random(30)]+ UnameChars[Random(30)] + UnameChars[Random(30)]+ UnameChars[Random(30)] + UnameChars[Random(30)];
loginid1:= MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)];
LoginPasswd1 := MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)]+ MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)];
uname1 :=   UnameChars[Random(30)]+ UnameChars[Random(30)] + UnameChars[Random(30)]+ UnameChars[Random(30)] + UnameChars[Random(30)];
loginid2 := MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)];
LoginPasswd2 := MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)]+ MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)];
uname2 :=  UnameChars[Random(30)]+ UnameChars[Random(30)] + UnameChars[Random(30)]+ UnameChars[Random(30)] + UnameChars[Random(30)];
loginid3 := MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)];
LoginPasswd3 := MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)]+ MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)];
uname3 :=  UnameChars[Random(30)]+ UnameChars[Random(30)] + UnameChars[Random(30)]+ UnameChars[Random(30)] + UnameChars[Random(30)];
loginid4 := MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)];
LoginPasswd4 := MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)]+ MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)] + MyChars[Random(26)];
uname4 :=  UnameChars[Random(30)]+ UnameChars[Random(30)] + UnameChars[Random(30)]+ UnameChars[Random(30)] + UnameChars[Random(30)];
cao := Trim(sss.Strings[1]);
cao := copy(cao,1,length(cao)-0);
ipos := Pos(':',cao);
cao1 := Trim(sss.Strings[3]);
cao1 := copy(cao1,1,length(cao1)-0);
ipos1 := Pos(':',cao1);
cao2 := Trim(sss.Strings[5]);
cao2 := copy(cao2,1,length(cao2)-0);
ipos2 := Pos(':',cao2);
cao3 := Trim(sss.Strings[7]);
cao3 := copy(cao3,1,length(cao3)-0);
ipos3 := Pos(':',cao3);
cao4 := Trim(sss.Strings[9]);
cao4 := copy(cao4,1,length(cao4)-0);
ipos4 := Pos(':',cao4);
clientsocket1.Host := Copy(cao,1,ipos-1);
ClientSocket1.Port := StrToInt(copy(cao,ipos+1,length(cao)-ipos+1));
csocket1.Host := Copy(cao1,1,ipos1-1);
csocket1.Port := StrToInt(copy(cao1,ipos1+1,length(cao1)-ipos1+1));
csocket2.Host := Copy(cao2,1,ipos2-1);
csocket2.Port := StrToInt(copy(cao2,ipos2+1,length(cao2)-ipos2+1));
csocket3.Host := Copy(cao3,1,ipos3-1);
csocket3.Port := StrToInt(copy(cao3,ipos3+1,length(cao3)-ipos3+1));
csocket4.Host := Copy(cao4,1,ipos4-1);
csocket4.Port := StrToInt(copy(cao4,ipos4+1,length(cao4)-ipos4+1));
ClientSocket1.Active := True;
csocket1.Active := True;
csocket2.Active := True;
csocket3.Active := True;
csocket4.Active := True;
tmr3.Interval := StrToInt(sss.Strings[13]);
tmr3.Enabled := True;
tmr13.Interval := StrToInt(sss.Strings[13]);
tmr13.Enabled := True;
tmr14.Interval := StrToInt(sss.Strings[13]);
tmr14.Enabled := True;
tmr15.Interval := StrToInt(sss.Strings[13]);
tmr15.Enabled := True;
tmr16.Interval := StrToInt(sss.Strings[13]);
tmr16.Enabled := True;
if not ClientSocket1.Active then
ClientSocket1.Active := False;
if not csocket1.Active then
csocket1.Active := False;
if not csocket2.Active then
csocket2.Active := False;
if not csocket3.Active then
csocket3.Active := False;
if not csocket4.Active then
csocket4.Active := False;
end;


procedure Tform1.AppLogout;
begin
SendClientMessage (CM_SOFTCLOSE, 0, 0, 0, 0);
end;

procedure Tform1.AppLogout1;
begin
SendClientMessage1 (CM_SOFTCLOSE, 0, 0, 0, 0);
end;

procedure Tform1.AppLogout2;
begin
SendClientMessage2 (CM_SOFTCLOSE, 0, 0, 0, 0);
end;

procedure Tform1.AppLogout3;
begin
SendClientMessage3 (CM_SOFTCLOSE, 0, 0, 0, 0);
end;

procedure Tform1.AppLogout4;
begin
SendClientMessage4 (CM_SOFTCLOSE, 0, 0, 0, 0);
end;

procedure Tform1.SendLogin (uid, passwd: string);
var
   msg: TDefaultMessage;
begin
   msg := MakeDefaultMsg (CM_IDPASSWORD, 0, 0, 0, 0);
   SendCSocket (EncodeMessage (msg) + EncodeString(loginid + '/' + LoginPasswd));
end;

procedure Tform1.SendLogin1 (uid, passwd: string);
var
   msg: TDefaultMessage;
begin
   msg := MakeDefaultMsg (CM_IDPASSWORD, 0, 0, 0, 0);
   SendCSocket1 (EncodeMessage (msg) + EncodeString(loginid1 + '/' + LoginPasswd1));
end;

procedure Tform1.SendLogin2 (uid, passwd: string);
var
   msg: TDefaultMessage;
begin
   msg := MakeDefaultMsg (CM_IDPASSWORD, 0, 0, 0, 0);
   SendCSocket2 (EncodeMessage (msg) + EncodeString(loginid2 + '/' + LoginPasswd2));
end;

procedure Tform1.SendLogin3 (uid, passwd: string);
var
   msg: TDefaultMessage;
begin
   msg := MakeDefaultMsg (CM_IDPASSWORD, 0, 0, 0, 0);
   SendCSocket3 (EncodeMessage (msg) + EncodeString(loginid3 + '/' + LoginPasswd3));
end;

procedure Tform1.SendLogin4 (uid, passwd: string);
var
   msg: TDefaultMessage;
begin
   msg := MakeDefaultMsg (CM_IDPASSWORD, 0, 0, 0, 0);
   SendCSocket4 (EncodeMessage (msg) + EncodeString(loginid4 + '/' + LoginPasswd4));
end;


procedure tform1.SendSelectServer (svname: string);
var
   msg: TDefaultMessage;
begin
   msg := MakeDefaultMsg (CM_SELECTSERVER, 0, 0, 0, 0);
   SendCSocket (EncodeMessage (msg) + EncodeString(sss.Strings[0]));
end;

procedure tform1.SendSelectServer1 (svname: string);
var
   msg: TDefaultMessage;
begin
   msg := MakeDefaultMsg (CM_SELECTSERVER, 0, 0, 0, 0);
   SendCSocket1 (EncodeMessage (msg) + EncodeString(sss.Strings[2]));
end;

procedure tform1.SendSelectServer2 (svname: string);
var
   msg: TDefaultMessage;
begin
   msg := MakeDefaultMsg (CM_SELECTSERVER, 0, 0, 0, 0);
   SendCSocket2 (EncodeMessage (msg) + EncodeString(sss.Strings[4]));
end;

procedure tform1.SendSelectServer3 (svname: string);
var
   msg: TDefaultMessage;
begin
   msg := MakeDefaultMsg (CM_SELECTSERVER, 0, 0, 0, 0);
   SendCSocket3 (EncodeMessage (msg) + EncodeString(sss.Strings[6]));
end;

procedure tform1.SendSelectServer4 (svname: string);
var
   msg: TDefaultMessage;
begin
   msg := MakeDefaultMsg (CM_SELECTSERVER, 0, 0, 0, 0);
   SendCSocket4 (EncodeMessage (msg) + EncodeString(sss.Strings[8]));
end;

procedure Tform1.SendRunLogin;
var
   sSendMsg:String;
begin
sSendMsg:=format('**%s/%s/%d/%d/%d',[loginid,uname,Certification,20020522,9]);
if ClientSocket1.Socket.Connected then begin
   SendcSocket (EncodeString (sSendMsg));
   end else begin
   tmr5.Enabled := True;
   end;
end;

procedure Tform1.SendRunLogin1;
var
   sSendMsg:String;
begin
sSendMsg:=format('**%s/%s/%d/%d/%d',[loginid1,uname1,Certification1,20020522,9]);
   if csocket1.Socket.Connected then begin
   SendcSocket1 (EncodeString (sSendMsg));
   end else begin
   tmr30.Enabled := True;
   end;
end;

procedure Tform1.SendRunLogin2;
var
   sSendMsg:String;
begin
sSendMsg:=format('**%s/%s/%d/%d/%d',[loginid2,uname2,Certification2,20020522,9]);
  if csocket2.Socket.Connected then begin
   SendcSocket2 (EncodeString (sSendMsg));
   end else begin
   tmr31.Enabled := True;
   end;
end;

procedure Tform1.SendRunLogin3;
var
   sSendMsg:String;
begin
sSendMsg:=format('**%s/%s/%d/%d/%d',[loginid3,uname3,Certification3,20020522,9]);
if csocket3.Socket.Connected then begin
   SendcSocket3 (EncodeString (sSendMsg));
   end else begin
     tmr32.Enabled := True;
     end;
end;

procedure Tform1.SendRunLogin4;
var
   sSendMsg:String;
begin
sSendMsg:=format('**%s/%s/%d/%d/%d',[loginid4,uname4,Certification4,20020522,9]);
   if csocket4.Socket.Connected then begin
   SendcSocket4 (EncodeString (sSendMsg));
   end else begin
   tmr33.Enabled := True;
   end;
end;

procedure Tform1.ClientGetPasswordOK(Msg: TDefaultMessage;
  sBody: String);
var
  I: Integer;
  sServerStatus:String;
  nCount:Integer;
begin
  sBody:=DeCodeString(sBody);
  nCount:=_MIN(6,msg.Series);
  for I := 0 to nCount - 1 do begin
    sBody:=GetValidStr3(sBody,sServerName,['/']);
    sBody:=GetValidStr3(sBody,sServerStatus,['/']);
  end;
  end;

procedure Tform1.ClientGetPasswordOK1(Msg: TDefaultMessage;
  sBody: String);
var
  I: Integer;
  sServerStatus:String;
  nCount:Integer;
begin
  sBody:=DeCodeString(sBody);
  nCount:=_MIN(6,msg.Series);
  for I := 0 to nCount - 1 do begin
    sBody:=GetValidStr3(sBody,sServerName1,['/']);
    sBody:=GetValidStr3(sBody,sServerStatus,['/']);
  end;
  end;

procedure Tform1.ClientGetPasswordOK2(Msg: TDefaultMessage;
  sBody: String);
var
  I: Integer;
  sServerStatus:String;
  nCount:Integer;
begin
  sBody:=DeCodeString(sBody);
  nCount:=_MIN(6,msg.Series);
  for I := 0 to nCount - 1 do begin
    sBody:=GetValidStr3(sBody,sServerName2,['/']);
    sBody:=GetValidStr3(sBody,sServerStatus,['/']);
  end;
  end;

procedure Tform1.ClientGetPasswordOK3(Msg: TDefaultMessage;
  sBody: String);
var
  I: Integer;
  sServerStatus:String;
  nCount:Integer;
begin
  sBody:=DeCodeString(sBody);
  nCount:=_MIN(6,msg.Series);
  for I := 0 to nCount - 1 do begin
    sBody:=GetValidStr3(sBody,sServerName3,['/']);
    sBody:=GetValidStr3(sBody,sServerStatus,['/']);
  end;
  end;

procedure Tform1.ClientGetPasswordOK4(Msg: TDefaultMessage;
  sBody: String);
var
  I: Integer;
  sServerStatus:String;
  nCount:Integer;
begin
  sBody:=DeCodeString(sBody);
  nCount:=_MIN(6,msg.Series);
  for I := 0 to nCount - 1 do begin
    sBody:=GetValidStr3(sBody,sServerName4,['/']);
    sBody:=GetValidStr3(sBody,sServerStatus,['/']);
  end;
  end;

procedure Tform1.ClientGetReceiveChrs (body: string);
var
   fstr4, uname, sjob, shair, slevel, ssex: string;
begin
   fstr4 := DecodeString (body);
      fstr4 := GetValidStr3 (fstr4, uname, ['/']);
      fstr4 := GetValidStr3 (fstr4, sjob, ['/']);
      fstr4 := GetValidStr3 (fstr4, shair, ['/']);
      fstr4 := GetValidStr3 (fstr4, slevel, ['/']);
      fstr4 := GetValidStr3 (fstr4, ssex, ['/']);
   if uname = '' then begin
       tmr8.Enabled := True;
💿 文件大小 244 K
👤 上传用户 ywc123456
📂 所属分类 Delphi控件源码
🏷️ 相关标签

#代码
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -