Скрипт
-
артём, ```
/ USR / бен / Perl
tnscmd - хромой инструментов, чтобы подтолкнуть процесс Oracle tnslsnr (1521/tcp)
испытан под Linux x86 и Sparc OpenBSD + perl5
Начальная хлама: [email protected] 5 октября 2000
$ Id: tnscmd, версии 1.3 2001/04/26 6:45:48 JWA Exp $
см. также:
http://www.jammed.com/ ~ JWA / хаки / безопасность / tnscmd / tnscmd-док. HTML
http://cve.mitre.org/cgi-bin/cvename.cgi?name=CAN-200.. #
http://otn.oracle.com/deploy/security/alerts.htm
http:// xforce.iss.net/alerts/advise66.php
под GPL, конечно. http://www.gnu.org/copyleft/gpl.html
$ Log: tnscmd, V $
Revision 1.3 2001/04/26 6:45:48 JWA
опечатки в URL-адресе. возгласы.
версии 1.2 2001/04/26 6:42:17 JWA
полностью переписать
- использовать IO :: Socket вместо tcp_open
- избавиться от pdump ()
- положить пакет в списке @ и построить его с колодой ()
- добавлено - отступ опции
использовать IO :: гнездо ;
использовать строгие ; # сварливый интерпретатор Perl является вашим другом,выберите ( STDOUT ); $ | = 1 ;
процесс
экв "-H" );
$ Основными :: порта = сдвиг @ ARGV если ( $ Arg экв "-P" );
$ Основными :: лог = сдвиг @ ARGV если ( $ Arg экв ", - лог" );
$ основной :: fakepacketsize = сдвиг @ ARGV если ( $ Arg экв ", - PacketSize" );
$ Основными :: fakecmdsize = сдвиг @ ARGV если ( $ Arg экв ", - cmdsize" );
$ Основными :: отступ = 1 , если ( $ аг экв "- отступ" );
$ Основными :: rawcmd = сдвиг @ ARGV если ( $ Arg экв ", - rawcmd" );
$ Основными :: rawout = сдвиг @ ARGV если ( $ Arg экв ", - rawout" ) ;
}если ( $ Основными :: хоста экв "" ) {
печати « EOF ;
использования : $ 0 [ команда ] - ч хоста
, где 'команды' это что-то вроде пинга , версия , статус , и т.д. .
( по умолчанию это пинг )
[- р порт ] - альтернативный порт TCP, чтобы использовать ( по умолчанию это 1521 )
[- лог лог ] - написать сырые пакеты в указанный лог
[- отступ ] - отступ и Уменьшить отступ на скобки
[- rawcmd команды ] - создать свой собственный CONNECT_DATA строкой
[- cmdsize байт ] - поддельные команды TNS размера ( показывает пакет утечки )
EOF
выхода ( 0 );
}без команд, по умолчанию диагностики порт 1521
$ CMD = "пинг" , если ( $ CMD-экв "" );
$ основной :: порт = 1521 , если ( $ Основными :: порта экв "" ); # 1541, 1521 .. Администраторы баз данных настолько причудливыепостроить пакет, открыть сокет, послать пакет, верните
Команда $ до $ главная :: хоста: $ главная :: порта \ п " ;
если ( $ Основными :: fakecmdsize пе "" )
{
$ cmdlen = $ Основными :: fakecmdsize ;
печать "Подделка команды длиной до $ cmdlen байт \ п " ;
}
еще
{
$ cmdlen = длина ( $ команды );
}$ clenH = $ cmdlen » 8 ;
clenL $ = $ cmdlen & 0xff ;вычислить длину пакета
, если ( определен ( $ Основными :: fakepacketsize ))
{
печати " Подделка длину пакета до $ главная :: fakepacketsize байт \ п " ;
$ packetlen
rwriting . длина ( $ sendbuf ) . "байт \ п" ;если ( определен ( $ Основными :: лог ))
{
открытой ( SEND , "> $ главная :: logfile.send" ) | | умереть "не может написать $ главная :: logfile.send: $!" ;
печати послать $ sendbuf | | умирают "запись в лог не удалось:писал $ Количество байт? " ;
выход 1 ;
}печати "чтение \ п" ;
получить удовольствие данных
первые 12 байт иметь какой-то смысл которых до сих пор ускользает от меня
, если ( определен ( $ Основными :: лог ))
{
открытой ( REC , "> $ главная :: logfil -
вот скрипт на сбор папирос
$id= c("edit1")->text;' '; #Ваш id без id в начале
$auth= c("edit2")->text;' '; #Ваш auth-key/*ВКЛ/ВЫКЛ-функции бота : */ # если 'yes',то будет работать. Если 'no' то не будет работать
$nsborsig='yes';/* Сбор сиг во дворе : /
if($nsborsig=='yes')
{
$get1 = file_get_contents('http://109.234.156.253/prison/universal.php?user='.$id.'&method=office&key='.$auth);
preg_match_all("/<ideascount>(.?)</ideascount/i",$get1,$matches1);
$kolsig = $matches1[1][0];
$getfap = file_get_contents('http://109.234.156.253/prison/universal.php?user='.$id.'&key='.$auth.'&method=office&getidea='.$kolsig);
}Добавлено через 00:46 мин.
romaIIIka XDD, чарльз уже не работает и он платный -
-
артём, Чарльз Платный ты что с дубу Рухнул Он работает и халявный!!!
-
продаю фейки
-
Спс нормально
