Share

HTTP hEadEr sPliTTeR [ pl ]

small ugly code to get the http header


usage  perl sec.pl hostname


Demo


sh-3.2# perl head.pl pastebin.com


pastebin.com runs nginx/0.8.52


#!/usr/bin/perl
use IO::Socket;
if(@ARGV<1)
{
print"HTTP Server Header checker\n";
print"Coded by HaCKeR-MaN\n";
print"sec4ever - 1337r1z\n";
print"usage: perl sec.pl hostname\n\n";
exit(0);
}
my $mysox = new IO::Socket::INET (
PeerAddr => $ARGV[0],
PeerPort => 80,
Proto => 'tcp',
)
or die "Couldn't connect the specified Host";
print $mysox "HEAD / HTTP/1.0\n\n";
while ($fasplt=<$mysox>)
{
if($fasplt =~/^Server/)
{
@arr=split("Server: ", $fasplt);
print"\r\n$ARGV[0] runs $arr[1]";
exit(1);
}
}
close($mysox);


./faris

10 comments:

Gabriel A.Q.W.lvl 30 said...

como q faz o dowloand??

Lagripe-Dz said...

nice one Faris :P , thnks
watch this :


a shorter & nicer :D

Lagripe-Dz said...

wtf where is the code :o
not a problem take it : http://pastie.org/2046238

The Injector said...

بطلنا نشوفك امسن ياض شو مطوله امتحاناتك مثلا!!!
هه بالتوفيق وشد الهمة واما تخلص قلي .. سييز يو

Faris said...

@lagripe-dz
هههههههههههههه
لا يعم مسبتهوش بس مفيش امكانيه للهاك هنا
فقلت العب شويه
ومشكور على الكود
دايما بتصدمنى
ههههههههههههههه

@the injector
هانت يابو علاء
ههههههههههه
باقيلى 3 مواد
لو عدت الاولى منهم يبقى خلاص بح
بعدين كل ما افتح ميل مبلاقيكش اونلاين

The Injector said...

طب يلا شد شد الهمة ان شاء الله بنلاقيك قبل لا تخلص العطله :)

Karar alShaMi said...

انت بتحاول تنافسني ف البيرل مثلا ؟
عموما استنى اما اكمل هنزل كل سكربتات البيرل الي مبرمجهن وارد على اللي سرقوا تبع الدومينات والكونفقات
سلآم

Faris said...

هههههههههههه
عيب عليك يابو كرار
انت فين وانا فين
بعدين خلاص هترد ع مين ولا مين؟؟
ههههههههههه
السكربتات اتشردت واللى كان كان
شد حيلك بس فى الامتحانات
عندى ليك معادلة عضويه بس ايه
تعجبك بجد
اما تيجى مش هقولهالك
ههههههههه
سلام

0x0 said...

معادله عضوية ايه ههههه
كيف تحصل على كربيد الكالسيوم من البانزين الحلقي ؟
يلا ياعم وريني شطارتك ههههه

Faris said...

جتك خيبه
ههههههههههههه
كربيد الكالسيوم مجرد
reagent
عباره عن كالسيوم متصل باتنين كربون
والكربونتين متصلين ببعض
ماله ومال البنزين؟؟
ههههههه
روح نام ياض
احنا بنتكلم عن معادلات فيها 5 مجموعات نيترو
:)

Post a Comment