Просмотр полной версии : perl script
я написал брутер md5 хэшей на перле теперь вы сможете запречь расшифровкой не свой домашний комп а атакуемый сервер сливать тут http://www.genom-psixoz.narod.ru/md5.pl
также я еще написал качалку файлов -- она может прикодиться вам если недай ог вы залезли на сервак а на нем нету ни wget-a ни других качалок-- скопируете код в новый файл и заливайте шелл --качать тут http://www.genom-psixoz.narod.ru/wget.pl
еще я написал скрипт который выдирает из файлов мыла и саписывает их в файл-- пока файлы из которых нужно читать нужно прописывать-- но в ближайшем будущем я его допишу и он будет автоматически сканировать все файлы и выдирать оттуда мыла--- так взломал сервак -- порутал--сапустил скрипт и через 5 минул у тебя готовый к продаже спам лист качайте отсюда http://www.genom-psixoz.narod.ru/e-mail_cut.pl
Это ты конечно неплохо написал, проги на перле с окнами, держи плюс, но я сомневаюсь что оконный интерфейс, это то-что надо для отаки на сервер, хотя смотря что ты подразумеваешь под словом "залезли".
скопируете код в новый файл и заливайте шелл
Не проще ли скопировать шэл, вместо этой качалки ;).
А насчёт выдерания мэилов, так думаю будет проще, + повторяющиеся отсеяться.
#!/usr/bin/perl
if (@ARGV < 1) { print "Usage: script.pl source.txt destination.txt\n"; exit; }
($src, $dest) = @ARGV;
open(IN, $src) || die "Can't read $src\n";
read(IN, $buf, -s$src);
close(IN);
while($buf =~ /\b([\w\d]+\@[\w\d]+\.[\w\d\.]+)\b/g) { $list{"$1"} = ""; }
open(OUT, ">$dest") || die "Can't write $dest\n";
$, = ';';
print OUT keys %list;
close(OUT);
также я еще написал качалку файлов -- она может прикодиться вам если недай ог вы залезли на сервак а на нем нету ни wget-a ни других качалок-- скопируете код в новый файл и заливайте шелл --качать тут http://www.genom-psixoz.narod.ru/wget.pl
Если залезли на сервак, то полюбому через шелл... =) Мы залезли, качалок там нет... Придется опятьже через ШЕЛЛ писать твой скрипт, чтобы потом залить шелл... =) Смешно =)
ну не обязательно ты залез через шелл--вдруг --у них бага на команды-- а качалки нету-- че ты делать будешь??????это к бул666
лана новый релиз моего псевдо гения как и обещал автоматическая выдиралка e-mail-oв из файлов.-- в качестве параметра использует имя директории---- и проверяет все вложенные файлы и папки--- все коменты внутри скрипта http://www.genom-psixoz.narod.ru/spam-bilder.pl
zeppe1in
27.07.2006, 21:11
Я тоже против окошек.
Я тоже против окошек.
Нет я не против окошек, когда пишешь утилиту для локального использования, но когда ты зашол через шэл на удалённый сервер, мало того что эту качалку надо как-то поместить на этот сервер, но ищё и после её запуска, любовалься обошком будет только администратор этого сервера ;) :)
да фиг с ней с качалкой =)
zeppe1in
27.07.2006, 23:50
Ну я это и имел ввиду. Ещо гуёвый эксплойт от рст тоже барахло.
Не сочти за критику, но помоему, не стоит выводить результат в подпрограмме, лучше возвращать результат типа «0» или «хеш», и уже в основной части принимать решение «BCE XyeBO» или «BCE 3AEbiCb», а так спасибо я с перлом плохо знаком, никогда не доводилось рисовать формы, а теперь вот увидел на примере.
критика -- правильная --- вспринял и решил что ты прав -- так будет красивеее
люди и еще проверьте кто нить знающий перл скрипт для сбора мыл -- втрой который0---- как он поведет себя на линуксе
Не сочти за критику, но помоему, не стоит выводить результат в подпрограмме, лучше возвращать результат типа «0» или «хеш», и уже в основной части принимать решение «BCE XyeBO» или «BCE 3AEbiCb», а так спасибо я с перлом плохо знаком, никогда не доводилось рисовать формы, а теперь вот увидел на примере.
Не сочти за критику, но помоему, не стоит выводить результат в подпрограмме, лучше возвращать результат типа «0» или «хеш», и уже в основной части принимать решение «BCE XyeBO» или «BCE 3AEbiCb», а так спасибо я с перлом плохо знаком, никогда не доводилось рисовать формы, а теперь вот увидел на примере.
Дежавю ;)
вот воспринял критику правильную от tcover-а о том что как можно юзать удаленно переборщик md5 с гуи если у админа на экране появится окошко и все--- вот написал консолный брутер прямым перебором---- накрайняк можно сипользовать как досер т.к. то что он сжирает весь прац дык это точна--- качать тут http://www.genom.h10.ru/brute-md5.pl
есть одна просьба --- люди если есть какая нибудь интересная идея какой еще скрипт написать -- предлагайте не стесняйтесь-- знание перла есть а идеи уже иссякли-- так что жду предложений
есть одна просьба --- люди если есть какая нибудь интересная идея какой еще скрипт написать -- предлагайте не стесняйтесь-- знание перла есть а идеи уже иссякли-- так что жду предложений
идею?.....сделай прогу, что удаляет, например в папке ламо, файлы, которые не изменялись месяц, крч ты понял? просто считываешь дату создания и извенения и прибавляешь к дате создания месяц, крч понял? аа тока сначало чтобы выкидывал вопрос, типа да или нет, перед каждым файлом. все работай
идею?.....сделай прогу, что удаляет, например в папке ламо, файлы, которые не изменялись месяц, крч ты понял? просто считываешь дату создания и извенения и прибавляешь к дате создания месяц, крч понял? аа тока сначало чтобы выкидывал вопрос, типа да или нет, перед каждым файлом. все работай
во первых это неитересно-- а во вторых пользуйся поиском с параметром создания фалов и удаляй скока влезет =)
извращение писать на перле окна.
Для гуи есть другие средства(vb,c++,delphi,kylix).
Вы бы еще на перле пеинт наколбасили.
во первых это неитересно-- а во вторых пользуйся поиском с параметром создания фалов и удаляй скока влезет =)
ты спросил, а я ответил
k1b0rg, не обязательно делать граф окно, можно и дос режиме и т.д.
Простите меня, но Снэйк, ты уже порядком достал... Хватит тупить, начни читать.
по прозьбе товарища _toxi_ накропал прикольный скриптик -- вообщем скрипт перебирает какоелибо значение передоваемое стороннему скрипту(как гетом так и постом) по словарю/ если подумать головой то можно им и подбирать название таблиц при sql инжектах ----- вообщем абы фантазии хватило-- удачи =)
слить сие творение можете тут http://www.genom.h10.ru/get-brute.pl
а это вам в нагрузку смотреть обязатльно----- http://www.genom.h10.ru/marks.jpg
извращение писать на перле окна.
Для гуи есть другие средства(vb,c++,delphi,kylix).
Вы бы еще на перле пеинт наколбасили.
вот из-за такого мнения перл многие и считаю отсталым консольным языком--- которым ничего нельзя сделать------- а ведь на самом деле-- на нем можно делать все что угодно-- было б желание-- и чуток фантазии
если подумать головой то можно им и подбирать название таблиц при sql инжектах ----- вообщем абы фантазии хватило-- удачи =)
Был бы словарь с вариантами имен таблиц... =)
Был бы словарь с вариантами имен таблиц... =)
я думаю любой национальный словарь сойдет-- в зависимости от направления деятельности сервака =) можно даже найти по сцециальности---сайта --типа про компы или бухгалтеров-- у мну такие словари были когдато =)
>>а ведь на самом деле-- на нем можно делать все что угодно-- было б желание-- и чуток фантазии
а нужно ли это?
если сильно хочется а нельзя------то можно
я обновил скрипт который выдирает с сервака мыла и бомбит спам лист--- теперь он еще их и сортирует
качать тут http://www.genom.h10.ru/spam-bilder.pl
забацал рульный background для вашего моника----- заценивайте
http://www.genom.h10.ru/11.jpg
проапгрейдил спам билдер еще раз теперь он еще и пакует готовый спам лист в архив с помощью тара качать тут http://www.genom.h10.ru/spam.pl
такая должна быть у каждого
http://genom-psixoz.narod.ru/hottabic.jpg
итак из под моего великого пера вышла статья о том как делать сибе стильную одежду-- все кому интерестно прошу идти сюда http://www.genom.h10.ru/graf/graf.html
вообщем я заснял видео -- наглядный пример работы моего брутера--- а тот скрипт что на рапиде это не мой -- мой весит 2 килобайта и позырьте на мою скорость инета и на скорость брута =)
качать тут http://www.genom.h10.ru/mail.rar
на днях отравившись водкой и обдумав высказывания неизвестных философов- хакер хакеру друг товарищъ и братъ --- а также из соображений information must be free
вот проапгрейдженый брутер для mail.ru -- добавлено ведение логов и кое что еще переделано вообщем позырите сами кому надо
http://www.genom.h10.ru/mail-ded.rar
Геном Молодец
выучу перл
если вам нужна будит помощь в перле
даю слово
произвел расчет для брута ящиков на mail.ru
короче на 10 пасов получается ~80 килобайт входящего трафика и ~10 исходящего
привет негодяи и преступники =)
извиняюсь что так далго ничего не писал--- начал учиться стока всего наволилось что прям некуда-- тоесть есть куда-- а времени катоcтрофически нехватает --- итак суть дела написал брутер для zhuki.mail.ru --- скорость брута довольно шустрая на моем диалапе в 40 Кбит примерно 3-4 паса в секунду и ест немного трафика---
Кстати информация для размышления-- если вы знаете что чел играет в эту игру то можно поиметь его мыло -- так как в качестве инфы для входа используется логин мыла и пароль -- естественно на серве mail.ru (или list.ru или bk.ru и тд)--- так как этот брутер работает быстрее то и пасс к мылу отбрутится быстрее чем если брутить моим брутером чисто мыло
для учасников форума античат естественно все бесплатно качать тут:
http://www.genom.h10.ru/tarakaniche.rar
видео с примером применения тут:
http://www.genom.h10.ru/zhuki.rar
корочек вот накропал еще один скрипт может кому понадобится
вообщем мне тут дружбан принес электронную пожшивку журналов ну там хакер-- хулиган --- php inside и другие --- вообщем там все журналы были разбиты на много html-ок --- и что интерестно в нутри папки с журналом дофига папок по отдельным статьям-- а в них уже по 3-4 html-ки ---- а я надумал залить их себе на мобилу как книжку-- думаю в универе почитаю--- ну не руками ж мне их выдирать и впихивать в один файл
вообщем написал скрипт -- задаете ему начальную папку -- он оббегает все вложеные папки и изо всех файлов попорядку вырезает текс при этом уберая html тэги по маске <*>. И в конце концов запихивает все в файлик new.txt -- с которым можно делать что захочешь =)
качать тут http://genom.h10.ru/read-bilder.rar
это вообщем я сення копался в нете искал где купить кэпы(интересно вы хоть знаете что это такое ??? но неважно) -- дык набрел на прикольные шрифты -- вот решил выложить -- шрифты с закосом под графити =)
http://genom.h10.ru/shft.rar
http://genom.h10.ru/sql.pl
скрипт коннектится к mysql бд и выполняет заданные запросы
испытать было негде за 100% работоспособность неотвечаю
=(
геном помоги написать брутер для ФТП ... такой же как для мыла у тебя... единственное что у меня не получаеться так это что бы все запросы ходили через прокси сервер... ну Или соксы ....
ну и что бы рутинная работа выполнялась сама . такие как составления списка пользователей сервера на катором запускаеться скрипт.. ну если будет желание то моЖно попроБывать пассы считывать с удаленного сервера .. или что бы они сами грузили в процессе запуска. :) там первый прошел грузим второй ... загрузили второй начали Брут ... проБрутил ...удалил, грзуим другой и так пока не кончиться ... удобный инструмент получиться :) .... я думаю тебе по плечу такие ззадачи ... если не сможешь или не захочешь тогда отпиШись я не обиЖусь...
так епт, это 20 строк кода...
нехочу изобретать колесо --- поищи недано была тема про ftp брутер -- там был скрипт и там я еще дал линк на гуи брут
тут http://forum.antichat.ru/thread27914.html
чекер ftp -- frb хранятся в файле в виде
1:login1:pass1
2:login:pass2
код -->
#!usr/bin/perl
use Net::FTP;
$ftp = Net::FTP->new("genom.h10.ru", );
open file,'<ftp.txt'; # файл в котром хранятся твои акаунты к ftp
open goodd,'>good.txt';
while($lol=<file>)
{
$lol=~s/\n//;
($cifra,$llogin,$pass)=split(/:/,$lol); # разбираем
$ftp -> login($llogin,$pass) or goto(dava);
print goodd "$lol\n";
dava:
}
close(goodd);close(file);
да лано тогда...раз некогда и время тратить не хотите ... тогда вопрос другой ... помогите разобраться хатябы с проксеГом ... непойму как мне эти все запросы через прокси транслировать ... непойму .. помоГите ...примерный код как и что долЖно ыбть можете поДкинуть... ?
perl -MCPAN -e "install Net::Socks"
perldoc Net::Socks
пытался заделать через lwp он тоже конектится к ftp может
my $req = HTTP::Request->new(GET => "ftp://$login:$password@$host:/");
вообщем на такой зыпрос выдает bad hostname
в доках модуля у них вот так написано
$req = HTTP::Request->new(GET => 'ftp://me:пароль@ftp.some.where.com/');
хз -- уже замучался --- советуйте
попробуй protocols_allowed модифицировать в объекте
нашел сегодня пример с соксами но для бта irc-шного.
use Net::SOCKS;
$server="80.252.130.250"; # IRC сервер
$port="6667"; # IRC порт
$socks="192.168.1.2"; # socks сервер
$pport="1080"; # socks порт
my $sock = Net::SOCKS->new(socks_addr => $socks,
socks_port => $pport,
user_id => 'the_user',
user_password => 'the_password',
force_nonanonymous => 1,
protocol_version => 5);
my $f= $sock->connect(peer_addr => $server, peer_port => $port);
.......
.....
$sock->close();
---------------------------------------------------------------------
можно и с соксами забабхать ...
но и с проксей тож интересно будет посатреть.
счас сяду кодить . незнаю что получиться но думаю должно получиться вродь руки растут от туда же откуда и у всех :)!
не факт что с сокса будет конект к фтп -- хотя должен быть-- тока как передавать данные это вопрос
вот писал cgi скрипт для редактирования файлов на серваке -- получилось прикольно решил выложить --- вообщем в форме указываем имя файла и засылаем его с помощью get -- пример формы (вставлять в любой html файл =) )
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~<br>
Редактировать файл:
<form method="get" action="edit.cgi" ><input type="text" name="file" value="index.html" size="50"><br>
<input type="submit" value="Редактировать"> </form>
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~<br>
вот код самого скрипта -- получилось приколно -- что если вы указали имя файла которого нет -- то выдает пустой контент -- и если ввести данные и нажать сохранить то создастся новый файл -- таким образом решается и проблема загрузки текстовых файлов на сервер -- мона новый создать и туда вставить =)
вот код самого скрипта
#!/usr/bin/perl
use CGI;
print "Content-type: text/html\n\n<b><body text=\"darkgreen\" bgcolor=\"#000000\" link=\"green\"alink=\"green\" vlink=\"green\"><br><br>";
read(STDIN, $data, $ENV{'CONTENT_LENGTH'});
$buf=$ENV{'QUERY_STRING'};
if (length($data)==0){
$buf=~s/file=//eg;
print"<center>Редактирование файла-->$buf<br><br></center>";open fyll,"$buf";
@sors=<fyll>;close(fyll);
print"<center><form method=\"post\" action=\"\"><textarea class=\"input\" id=text cols=70 rows=12 name=\"newsors\" >@sors</textarea><br><br><input type=\"submit\" value=\"....Сохранить....\" ></form><center><br><br><br><br><br><br>если в окне содержания нет текста то либо этот файл пустой либо его не существует -- нажатие кнопки сохранить приведет к созданию нового файла";}
else{$data=~tr/+/ /;
$data=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$data=~s/newsors=//eg;
$buf=~s/file=//eg;
open fyll,">$buf";
print fyll "$data";
close(fyll);
print'<br><br>Изменения сохранены успешно<br><br><a href="index.html">Назад</a>';
}
...[a-f0-9]{2}/pack('C', hex($1))/ieg;
И зачем тут нужно use CGI ?
потомучто это cgi скрипт в веб интерфейсом
потомучто это cgi скрипт в веб интерфейсом
Но ты не юзаешь никакие функции модуля => он те не нужен. С cgi можно спокойно работать и без этого модуля.
по приколу попробовал убрать да --почти все пашет -- но ввозникает бага при сохранениия файла -- ну да х с ней -- одна строчка роли не сыграет
последний релиз новая версия брутера для mail.ru -- добавил многопоточность --скорость брута возросла =)
скачать тут http://www.genom.h10.ru/1111.rar
проксеги Юзает ?
При всей его многопоточности майл просто банит хост после несколькиз неудачных попыток ...
фига ты попробуй потом говори кто и что банит
работае там на все 100 и не надо говорить что банит. Ламье
сазу оговорюсь --- писал лично для себя так что свои претензии можете оставить себе =)
вообщем вот архивчик я там накропал gui интерфейс для john the riper -- а то иногда запаривает набивать в консоли + кинул доку для нубов что вообще надо набирать в той самой консоли --- у меня джон был под винду такчто имя его в скрипте john-386.exe если будете юзать под unix то поменяйте имя или ексешки или подправьте скрипт
всем удачи
http://www.genom.h10.ru/john.rar
vBulletin® v3.8.14, Copyright ©2000-2026, vBulletin Solutions, Inc. Перевод: zCarot