Kodi:
#!/usr/bin/perl
#New Albania - Network Solutions Provider - Sherbime dhe Konsulence per rrjetet kompjuterike
#NewAlbania.com
#info@NewAlbania.com
#ETUSHA@HOTMAIL.COM
$VER="2.00";
use IO::Socket; # Moduli i TCP
use Fcntl; # Moduli i skedarve
&hyrje;
print "[+] JU LUTEM VENDOSNI HOSTIN OSE IP\n-> ";
$host= ;
chop ($host);
sysopen (DAT, "$host.log" ,O_RDWR|O_EXCL|O_CREAT, 0755); #krijo nje skedar ku te ruaj rezultatet
open(DAT,">>$host.log") || die("NUK MUD TE HAP $host.log ");
print "[+] JU LUTEM VENDOSNI NJE NUMER NGA 0 DERI NE 5 '0 1 2 3 4 5'\n-> ";
print "[+] SA ME I MADHE TE JETE NUMERI DHE ME I MADHE DO TE JET KOHA \n";
$koha= ;
chop ($koha);
if ($koha eq "0") {
$X=0;
$Y=10;
}
if ($koha eq "1") {
$X=10;
$Y=50;
}
if ($koha eq "2") {
$X=40;
$Y=360;
}
if ($koha eq "3") {
$X=300;
$Y=600;
}
if ($koha eq "4") {
$X=500;
$Y=2000;
}
if ($koha eq "5") {
$X=1500;
$Y=4500;
}
print "[+] NQS DONI TE SKANONI:\n-> ";
print "[+] PORT TEKE SHTYPNI 'T'\n-> ";
print "[+] RANG PORTESH SHTYPNI 'R'\n-> ";
print "[+] PORTA ME TE PERDORSHME SHTYPNI 'D'\n-> ";
$port= ;
chop ($port);
if ($port eq "" ) {
die &hyrje;
}
#------------------------------------SKANO TEKE--------------------------------------------------
if ($port eq "T") {
print "[+] JU LUTEM VENDOSNI PORTEN\n";
$portt= ;
chop ($portt);
if ($portt eq "") {
die &hyrje;
}
else { &skan
} # mbyllja e else 1
} # mbyllja e if 1
#------------------------------------SKANO RANG--------------------------------------------------
if ($port eq "R") {
print "[+] JU LUTEM VENDOSNI PORTEN FILLUESE\n";
$portt= ;
chop ($portt);
if ($portt eq "") {
die &hyrje;
} # mbyllja e if 2
else {
print "[+] JU LUTEM VENDOSNI PORTEN MBARUESE\n";
$portm= ;
chop ($portm);
if ($portm eq "") {
die &hyrje;
} #mbyllja e if 3
else {
if ( $portt>$portm) {
die "KUJDES PORTA FILLUESE ESHTE ME MADHE SE PORTA MBARUESE\n";
} # mbyllja e if 4
else
{
for ($portt =$portt ; $portt<=$portm ; $portt++){ &skan;
sleep &koha;
} # mbyllja e for
} # mbyllja e else 3 if 4
} # mbyllja e else 2 if 3
} # mbyllja e else 1 if 2
} #mbyllja e if 1 R
#------------------------------------SKANO ME TE PERDORSHME--------------------------------------
if ($port eq "D") {
@port = ('21','22','23','25','38','53','80','107','115','118','119','135','137','138','139','156','194','443','546','547','990','992','993','994','995','1025','1026','1112','1155','1364','1433','1434','1512','1525','1527','1987','1988','1989','1990','1991','1992','1993','1994','1995','1996','1997','1998','1999','2967','2998','3001','3005','3006','3306','3531','4333','5002','7273','7464','7597','8000','8007','8009','8080','10080','10082','10083','12345','12346','16959');
@porte=('FILE TRANSFER [CONTROL]','SECURE SHELL LOGIN','TELNET','SIMPLE MAIL TRANSFER','ROUTE ACCESS PROTOCOL','DOMAIN NAME SERVER','WORLD WIDE WEB HTTP','REMOTE TELNET','SIMPLE FILE TRANSFER PROTOCOL','SQL SERVICES','NETWORK NEWS TRANSFER PROTOCOL','MICROSOFT RPC SERVICES','NETBIOS NAME SERVICE','NETBIOS DATAGRAM SERVICE','NETBIOS SESSION SERVICE','SQL SERVICE','INTERNET RELAY CHAT','SECURE HTTP (SSL)','DHCPV6 CLIENT','DHCPV6 SERVER','FTP PROTOCOL, CONTROL, OVER TLS/SSL','TELNET PROTOCOL OVER TLS/SSL','IMAP4 PROTOCOL OVER TLS/SSL','IRC PROTOCOL OVER TLS/SSL','POP3 PROTOCOL OVER TLS/SSL','IIS, NFS, OR LISTENER RFS REMOTE_FILE_SHARING','NTERM REMOTE_LOGIN NETWORK_TERMINAL','MINI-SQL SERVER','NETWORK FILE ACCESS','NETWORK DATAMOVER SERVER','MICROSOFT-SQL-SERVER',' MICROSOFT-SQL-MONITOR','MICROSOFTS WINDOWS INTERNET NAME SERVICE','ORACLE OR PROSPERO DIRECTORY SERVICE NON-PRIV','ORACLE','CISCO RSRB PRIORITY 1 PORT','CISCO RSRB PRIORITY 2 PORT','CISCO RSRB PRIORITY 3 PORT','CISCO STUN PRIORITY 1 PORT','CISCO STUN PRIORITY 2 PORT','CISCO STUN PRIORITY 3 PORT','CISCO SNMP TCP PORT','CISCO SERIAL TUNNEL PORT','CISCO PERF PORT','CISCO REMOTE SRB PORT','CISCO GATEWAY DISCOVERY PROTOCOL','CISCO X.25 SERVICE (XOT)','CISCO IDENTIFICATION PORT','SYMANTEC ANTIVIRUS (RTVSCAN.EXE)','ISS REALSECURE IDS REMOTE CONSOLE ADMIN PORT','NESSUS SECURITY SCANNER (WWW.NESSUS.ORG) DAEMON OR CHILI!SOFT ASP','ENCRYPTED SYMMETRIC TELNET/LOGIN','ENCRYPTED SYMMETRIC TELNET/LOGIN','MYSQL','P2PNETWORKING/PEERENABLER PROTOCOL','MINI-SQL SERVER','RADIO FREE ETHERNET','DELL OPENMANAGE','PYTHON DOCUMENTATION SERVER','QUAZ TROJAN WORM',' A COMMON ALTERNATIVE HTTP ','APACHE JSERV PROTOCOL 1.X','APACHE JSERV PROTOCOL 1.3','COMMON HTTP PROXY/SECOND WEB SERVER PORT','AMANDA BACKUP UTIL','AMANDA INDEXING','AMANDA TAPE INDEXING','NETBUS BACKDOOR TROJAN OSE TREND MICRO OFFICE SCAN','NETBUS BACKDOOR TROJAN','SUBSEVEN TROJAN');
for ($po=0;$po<=$portt;$po++){
$portt=@port[$po];
$portde=@porte[$po];
&skan;
sleep &koha;
} #mbyllja e for
} #mbyllja e if 1
close(DAT);
#---------------------------------------------------------KOHA---------------------------------------------------------------
sub koha {
$ran = int( rand($X)) + $Y;
}
#---------------------------------------------------------SKAN---------------------------------------------------------------
sub skan {
$sock = IO::Socket::INET->new(PeerAddr => $host, PeerPort => $portt, Proto => 'tcp');
if ($sock) {
print "[+] $portt $portde HAPUR\n";
print DAT "[+] $portt $portde HAPUR\n";
} # mbyllja e if 3
else {
#print "[-] $portt $portde MBYLLUR\n";
#print DAT "[-] $portt $portde MBYLLUR\n";
}# mbyllja e else2 IF 3
}
#--------------------------------------------------------------HYRJE-------------------------------------------------------------------------
sub hyrje
{
print "|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|\n";
print "|*|*PORT SCAN $VER|*|*|*|*|*|*|*|*|*|*|*|\n";
print "|*|*NGA ETUSHA|*|*|*|*|*|*|*|*|*|*|*|*|*|\n";
print "|*|*9/2006|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|\n";
print "|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|\n";
print "|*|*PERDORIMI :*|*|*|*|*|*|*|*|*|*|*|*|*|\n";
print "|*|*DUHET TE PLOTESONI|*|*|*|*|*|*|*|*|*|\n";
print "|*|*ATE QE JU KERKOHET|*|*|*|*|*|*|*|*|*|\n";
print "|*|*PUNE TE MBARE*|*|*|*|*|*|*|*|*|*|*|*|\n";
print "|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|*|\n";
}
#-------------------------------------------------------------MBYLLJE----------------------------------------------------------
print "[+] SKANIMI MBAROI\n";
print "[+] EMAIL ETUSHA[AT]HOTMAIL[DOT]COM\n";
Pėrgjigju Duke Cituar
, come on man, this is Perl. lol
Postuar mė parė nga Clauss
Krijoni Kontakt