ANTICHAT — форум по информационной безопасности, OSINT и технологиям

$p01nt, значит так...если ты хочешь сделать без использования лишних модулей, пример работы с SOCKS5 на перле(это сокс чекер, в нем есть примеры коннектов через сокс4\сокс5 к гуглу, думаю поймешь): http://phreak.org.ru/sc.txt

Привет всем как мне тут изменить строчки эти

..........................
print $ sock "GET / fm.php? vittima =". $ Vitt. "&tuam=" .$tuam. "& Tuam =". $ Tuam. "&sogg=" .$obj. "& sogg =". $ obj. "&mess=$mess HTTP/1.1\n";
------------------------------------------------------------------

на эти возможно ли это сделать?
id=" .&password=. "&rid=".$&ver= html HTTP /1.1\n";
####################################
а вот сам скрипт
,,,,,,,,,,,,,,,,,,,,,,,,,
#!/usr/bin/perl
#Powered By
# .___ .__.__
# __| _/_______ _|__| | _____ __ _________ ____ ____
# / __ |/ __ \ \/ / | | \__ \ | | \_ __ \/ _ \ / \
# / /_/ \ ___/\ /| | |__ / __ \| | /| | \( <_> ) | \
# \____ |\___ >\_/ |__|____/ (____ /____/ |__| \____/|___| /
# \/ \/ \/ \/
#
# www.devilsnight.altervista.org
#


use Tk;
use IO::Socket::INET;
$mw=MainWindow->new(-background=>"black");
$mw->minsize(230,130);
$mw->Label(-text=>"FakeMailer Powered By DevilAuron:",
-background=>"black",
-foreground=>"white")
->pack(-anchor=>"n");
$mw->Label(-text=>"Inserisci Mail Vittima",
-background=>"black",
-foreground=>"orange")
->pack(-anchor=>"s");

$mw->Entry(-textvariable=>\$vitt)
->pack(-anchor=>"s");

$mw->Label(-text=>"Inserisci Mittente Falso:",
-background=>"black",
-foreground=>"orange")
->pack(-anchor=>"s");

$mw->Entry(-textvariable=>\$tuam)
->pack(-anchor=>"s");


$mw->Label(-text=>"Inserisci Oggetto:",
-background=>"black",
-foreground=>"orange")
->pack(-anchor=>"s");

$mw->Entry(-textvariable=>\$obj)
->pack(-anchor=>"s");


$mw->Label(-text=>"Inserisci Messaggio:",
-background=>"black",
-foreground=>"orange")
->pack(-anchor=>"s");

$mw->Entry(-textvariable=>\$mess)
->pack(-anchor=>"s");

$mw->Button(-text=>"Invia",
-background=>"black",
-foreground=>"orange",
-activebackground=>"orange",
-activeforeground=>"black",
-command=>sub{
$sock = IO::Socket::INET->new(
PeerAddr => 'www.eliakwu.altervista.org',
PeerPort => '80',
PeerProt => 'tcp',
Timeout => '1'
) || die "\n=>Error: Retry\n";

print $sock "GET /fm.php?vittima=" .$vitt. "&tuam=" .$tuam. "&sogg=" .$obj. "&mess=$mess HTTP/1.1\n";
print $sock "Host: www.eliakwu.altervista.org\n";
print $sock "User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.12) Gecko/20070508 Firefox/1.5.0.12\n\n";
print $sock "Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5";
print $sock "Accept-Language: en-us,en;q=0.5\n\n";
print $sock "Accept-Encoding: gzip,deflate\n\n";
print $sock "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7\n\n";
print $sock "Keep-Alive: 300\n\n";
print $sock "Connection: keep-alive\n\n";

@res = <$sock>;
close($sock);


$sw=MainWindow->new(-background=>"black");

$sw -> Label(-text=>"Mail Inviata!\n Powered By DevilAuron - http://devilsnight.altervista.org",
-background=>"black",
-foreground=>"orange")->pack;

})->pack(-anchor=>"s");

MainLoop;

#Bye..

А в чем проблема? Просто вставь их! Или тебе надо значения этих параметров вводить из формы?

когда я встовляю их ,пишет ошибкa линия 86 т.е. и показывает типо oшибка где -то в кавычках "."
-------------------------------------------------------------------------
вот эту строку хотел заменить

room.php?id=&password=&ver=html

Если ты будешь вставлять это: id=" .&password=. "&rid=".$&ver= html HTTP /1.1\n";
то конечно получишь ошибку в кавычках.
Вся строка будет выглядеть вот так:
"GET /fm.php?vittima=" .$vitt. "&tuam=" .$tuam. "&sogg=" .$obj. "&mess=".$mess ."id=".$id."&password=".$passwd."&rid=".$rid."&ver =".$ver."HTTP /1.1\n";
если нужны переменные
и так:
"GET /fm.php?vittima=" .$vitt. "&tuam=" .$tuam. "&sogg=" .$obj. "&mess=".$mess ."id=&password=&rid="&ver=html HTTP /1.1\n";
без переменных

print $sock "GET /room.php?id=&password=&ver=html HTTP /1.1\n\n";
Вот это надо получить? Отправка get-ом на страницу room.php параметров id пустым, password пустым и ver значение html?

да так .

Ребят, подскажите функцию которая строку переводит из такого вида:
13 в 0x3133 (hex если не ошибаюсь).

------------------------------------------------------------------
а вот хотел тебя еще раз спросить ,конечно в том случае если ты конечно запускал этот скрипт
что за слова эти тебе они не знакомы?
вроде как не на русском и не англиском
inicirisci Mail Viltima
inicirisc Mitento Falso
inicirisc Messaggio