PERL Examples - Revision history

PeterHarding: /* Generate HTTP Requests */

2008-12-04T03:54:41Z

Generate HTTP Requests

← Older revision		Revision as of 13:54, 4 December 2008
Line 229:		Line 229:
	</pre>		</pre>

	[[Category:~~Perl~~]]		[[Category:PERL]]

PeterHarding at 03:53, 4 December 2008

2008-12-04T03:53:53Z

@@ Line 197: / Line 197: @@
 return $counter;
+}
 </pre>
 [[Category:Perl]]

PeterHarding at 23:17, 26 June 2008

2008-06-26T23:17:23Z

← Older revision		Revision as of 09:17, 27 June 2008
Line 1:		Line 1:
	=Skeleton PERL Scripts=		=Skeleton PERL Scripts=

			==pl2py.pl==

			<pre>
			#!/usr/bin/env perl
			#
			# $Id:$
			#

			if ( $#ARGV != 0 ) {
			printf "Enter basename of file to convert (i.e. no extension!)\n";
			exit(0);
			}

			$file = $ARGV[0];

			print $file;

			$pl = $file . ".pl";
			$py = $file . ".py";

			open IN, "<$pl";
			open OUT, ">$py";

			while (<IN>) {
			chop();

			$_ =~ s'/usr/bin/perl'/usr/bin/env python'g;
			$_ =~ s/::/./g;
			$_ =~ s/\$//g;
			$_ =~ s/;//g;
			$_ =~ s/use/import/g;

			printf OUT "%s\n", $_;
			}

			close IN;
			close OUT;

			system("chmod +x $py")
			</pre>

	==Edit File==		==Edit File==

PeterHarding at 23:16, 26 June 2008

2008-06-26T23:16:26Z

@@ Line 52: / Line 52: @@
 close IN;
 close OUT;
 </pre>

PeterHarding at 23:15, 26 June 2008

2008-06-26T23:15:44Z

← Older revision		Revision as of 09:15, 27 June 2008
Line 131:		Line 131:
	</pre>		</pre>

	[[Category:~~PERL~~]]		[[Category:Perl]]

PeterHarding: New page: =Skeleton PERL Scripts= ==Edit File==

 #!/usr/bin/env perl  $file = "llheader_jar.log";  open IN, "< $file"; open OUT, "> ntlm.txt";  $typeFlg = -1;  while () {    chop();    s/...

2008-06-26T23:14:46Z

New page: =Skeleton PERL Scripts= ==Edit File== <pre> #!/usr/bin/env perl $file = "llheader_jar.log"; open IN, "< $file"; open OUT, "> ntlm.txt"; $typeFlg = -1; while (<IN>) { chop(); s/...

New page

=Skeleton PERL Scripts=

==Edit File==

<pre>
#!/usr/bin/env perl

$file = "llheader_jar.log";

open IN, "< $file";
open OUT, "> ntlm.txt";

$typeFlg = -1;

while (<IN>) {
chop();
s/
//;

/^Authorization: / && do {
if ( $typeFlg == 0 ) {
$typeFlg = 1;
s/.*Negotiate *//;
} else {
$typeFlg = 3;
s/.*Negotiate *//;
}

printf OUT "::%d:: %s\n", $typeFlg, $_;
};

/^Parameter \"WWW/ && do {
next if /Negotiate\"/;
/NTLM/ && do {
$typeFlg = 0;
s/"$//;
s/.*"//;
printf OUT "::0:: %s\n", $_;
};

/Parameter \"WWW-Authenticate\" Value \"Negotiate / && do {
$typeFlg = 2;
s/.*Negotiate *//;
s/"$//;
printf OUT "::2:: %s\n", $_;
};

#printf "%s\n", $_;
};
}

close IN;
close OUT;
</pre>

==parser.pl==

<pre>
#!/usr/bin/perl

use IO::Handle;

STDOUT->autoflush(1);
my($total, $current, $icmp);
$current=1;
$icmp=0;

init_parser();
$total=get_info();

foreach $linia (<STDIN>){
printf("\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b");
printf("Analysing line $current of $total");
$current++;

if($linia=~/^.+\s.+\s>>>>\s.+\s.+\s.+/){
my($proto, $srcip, $nic, $dstip, $date, $time)=split(' ', $linia);
$srcip=~tr/:/./;
$dstip=~tr/:/./;
if($proto eq "ICMP"){$icmp=1;}
if(($proto ne "ICMP") && $icmp==1){print PLIK "$linia";goto blah;}

open(PLIK, ">>./$proto/$srcip-$dstip")|| die "Can`t open file ./$proto/$srcip-$dstip: $!\n";
if(($proto eq "ICMP")){ print PLIK "$linia";}

blah:
}
else{
if($linia=~/--end-of-icmp-packet/){
$icmp=0;
print PLIK "\n";
}
else{

$linia=~s/^\n$//;
print PLIK "$linia";
}
}

}

printf("\n");

sub init_parser{

if(!(-d "./TCP")){
mkdir("./TCP", 0744) || die "Can`t create \"tcp\" directory: $!\n";
}
if(!(-d "./UDP")){
mkdir("./UDP", 0744) || die "Can`t create \"udp\" directory: $!\n";
}

if(!(-d "./ICMP")){
mkdir("./ICMP", 0744) || die "Can`t create \"icmp\" directory: $!\n";
}
}

sub get_info{

my($tem, $counter);
$counter=0;

foreach $tem (<STDIN>){
$counter++;
}
seek(STDIN, 0, SEEK_SET);

return $counter;
}
</pre>

[[Category:PERL]]