|
|
|||||||
| Üye Ol | SSS | Sxe indir | Sosyal Gruplar | Takvim | Resim Galerisi | Etiketler | Bütün Forumları okunmuş kabul et |
Programlama bölümünde Perl-CGI Örnek Programlar konusu , Perl ile Port Scanner Code: # Port Scanner # Coded bY Celil uNuVER # Adres kismina adresi taratmak istediginiz adresi yazacaksiniz! # Sayi kismina 1.porttan kaca kadar tarayacaginizi yazacaksiniz # Ornek: perl portscanner.pl 127.0.0.1 500 # 127.0.0.1`i 1. porttan baslayarak ...
 |
|
|
LinkBack | Konu Seçenekleri |
02-04-2007, 01:36
|
#1 (permalink) | |
 
E-Güven: (4/100)
|
Perl-CGI Örnek Programlar
Perl ile Port Scanner Code:
# Port Scanner
# Coded bY Celil uNuVER
# Adres kismina adresi taratmak istediginiz adresi yazacaksiniz!
# Sayi kismina 1.porttan kaca kadar tarayacaginizi yazacaksiniz
# Ornek: perl portscanner.pl 127.0.0.1 500
# 127.0.0.1`i 1. porttan baslayarak 500e kadar tarar.
$adres = $ARGV[0];
$sayi = $ARGV[1];
if(!$ARGV[0]){
print "Kullanimi:nt$0 #perl portscanner.pl [adres] [sayi]n";
exit();
}
$port=0;
do {
$port++;
use IO::Socket;
$socket = new IO::Socket::INET( PeerAddr => $adres,
PeerPort => $port,
Proto => 'tcp');
if ($socket){
print "$port ---> acikn";
close($socket);
}
if (!$socket){
print "$port ---> kapalin";
close($socket);
}
} while ($port < $sayi);
print "Kodlayan: Celil Unuvern";
print "Her zaman Tesekkurler Hurbyn"
exit();
__________________
Alıntı:
|
|
|
    
|
|
02-04-2007, 01:37
|
#2 (permalink) | |
|
E-Güven: (4/100)
|
Ce: Perl-CGI Örnek Programlar
CGI ile isim Sorma Code:
#!/usr/bin/Perl
#################################################
# form2.pl
print "Content-type: text/html", "nn";
$veri=$ENV{'QUERY_STRING'};
($kutuismi, $isim)=split(/=/, $veri);
if(!$veri)
{
print <HTML;
<html>
<head><title>Form ornegi</title></head>
<body>
<H2>Form ornegi</H2>
<form action="cgi-bin/form2.pl" method="GET">
Isim: <input type="text" name="isim" size=20>
<p>
<input type="submit" value="GONDER">
<input type="reset" value="SIL" SIZE>
</form>
<HR>
</body>
</html>
HTML
}
else
{
if($isim)
{
print "Merhaba $isim. MaxiAsp'ye hosgeldin!!";
}
else
{
print "Giris Icin Tiklayin";
}
}
exit(0);
##################################################
__________________
Alıntı:
|
|
|
|
|
|
02-04-2007, 01:37
|
#3 (permalink) | |
|
E-Güven: (4/100)
|
Ce: Perl-CGI Örnek Programlar
CGI ile Sayfa Koruması Code:
$AYAR{siteler} = ['siteniz.com', 'www.siteniz.com'];
#Yukardaki site isimlerini cogaltabilirsiniz.
foreach (@{$AYAR{siteler}}){
if($ENV{'HTTP_REFERER'} =~ /$_/i){
print (" Dogru siteden geldiniz. ");
exit;
}
else
{
print ("Location: hata.htmnn"); exit;
}
}
__________________
Alıntı:
|
|
|
|
|
