Kokia kalba parasytas skriptas?

Skelbti atsakymą
Žinutė
Autorius
Vartotojo avataras
^Paulius^
ultra dalyvis
ultra dalyvis
Pranešimai: 718
Užsiregistravo: 2006 10 02 13:52
Miestas: Kaunas
Susisiekti:

Kokia kalba parasytas skriptas?

#1 Standartinė ^Paulius^ » 2006 11 24 15:10

Radau toki skriptuka, bet prie jo nebuvo parasyta kokia kalba jis parasytas :( . Kas galit pasakykit kokia kalba parasytas sitas skriptukas?
Stai ir kodas:

Kodas: Pasirinkti visus

 #!/usr/bin/perl
use IO::Socket;
use strict;
my ($hostname, $file, $port) = @ARGV;
$port or $port = 80;
$hostname=~s/^http:W//;
$hostname=~s/V$//;
open(FILE,"<$file") or die "File $file not found!\n";
print "[~] Scan started ($hostname:$port).\n";
while(my $bug=<FILE>){
chomp $bug;
$bug = "/".$bug unless ($bug=~/^V/);
print "$hostname$bug\n" if scan($bug);
}
close(FILE);
print "[~] Scan finished.\n";
sub scan{
my $string=shift;
my $remote = IO::Socket::INET->new (Proto => "tcp",
PeerAddr
=> $hostname, PerrPort => $port);
unless ($remote) {print "can't connect\
n"; exit 0;}
$remote->autoflush(1);
my $http = qq{HEAD $string HTTP/1.1
HOST: $hostname
};
print $remote $http;
while(<$remote>) {
return "ok" if(/HTTP.+?200\sOK/) or
return undef;
} 

rand
nuolatinis dalyvis
nuolatinis dalyvis
Pranešimai: 28
Užsiregistravo: 2006 08 13 18:06

Re: Kokia kalba parasytas skriptas?

#2 Standartinė rand » 2006 11 24 15:51

^Paulius^ rašė:Radau toki skriptuka, bet prie jo nebuvo parasyta kokia kalba jis parasytas :

Kodas: Pasirinkti visus

 #!/usr/bin/perl
<...> 
O dieve...
:roll:
Negi sies laikais zmones tokie akli? whateva..

Vartotojo avataras
^Paulius^
ultra dalyvis
ultra dalyvis
Pranešimai: 718
Užsiregistravo: 2006 10 02 13:52
Miestas: Kaunas
Susisiekti:

#3 Standartinė ^Paulius^ » 2006 11 24 15:58

Jau radau, kad tikrai perl. :D

MaksasMks
ultra dalyvis
ultra dalyvis
Pranešimai: 590
Užsiregistravo: 2005 12 30 22:20

#4 Standartinė MaksasMks » 2006 11 25 00:02

Negaliu, pzdc :lol: Sry už flooda, nu :lol: Ir dar karta :lol: :) Viskas normaliai :wink:
Get your ambition or die trying

Vartotojo avataras
Mr.47
jaunasis rašytojas
jaunasis rašytojas
Pranešimai: 51
Užsiregistravo: 2006 10 23 01:49
Susisiekti:

#5 Standartinė Mr.47 » 2006 11 25 14:51

Šeip nebūtina iš žmogaus imti juoktis, kadangi, programa gali būti perl ar koks python o parašyta pvz. php(apsauga nuo lamų 8) ), nes dažnai scriptų kūrėjai daro spc. klaidas, kad bilekas nesinaudotu.
I am not hacker, i am onli Mr.47

Skelbti atsakymą

Grįžti į

Dabar prisijungę

Vartotojai naršantys šį forumą: 1 ir 0 svečias(ių)