Скрипт

Артём

У кого есть скрипт чтобы сбрить бороду, и украсть туалетную бумагу. ХОЧУ сделать программу. 1 скрипт 75 монет и + в репу

Добавлено через 04:33 мин.
ПОМОГИТЕ

Vova Faut

фывыфвыф

D. Ernest

20 монет это не стоит.
хотябы 150

Артём

ок 75

Добавлено через 00:28 мин.
у меня сейчас мало монет :(: :(: :(:

ППС - сила

артём, ```

/ USR / бен / Perl

tnscmd - хромой инструментов, чтобы подтолкнуть процесс Oracle tnslsnr (1521/tcp)

испытан под Linux x86 и Sparc OpenBSD + perl5

Начальная хлама: jwa@jammed.com 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

ceIITiK

чарльз в помощ

Артём

Sanya Alexandroff, можно понятней :):

D. Ernest

Это что?

Артём

вот скрипт на сбор папирос

$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, чарльз уже не работает и он платный

Sergey Suhorukov

Артём

Sergey Sukhorukov, что ?

by Vlad xD

артём, Чарльз Платный ты что с дубу Рухнул Он работает и халявный!!!

СаМоГоН

Sanya Alexandroff, это не то

Hikutka

У меня есть! Давай 2=200 монет?

Kolya Chaban

продаю фейки