yeah

[Replies] [Reply] [View by Thread] [Help]
[Back To CyberArmy Public Forum]

Maj Goldfish

By God, they were awesome programmers in those days...

Phishy

On 2005-10-11 18:52:41, CyberTNT wrote
>denyip.pl
>
>


>unless ($ip =~ /(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/) {
>
># That regex *should* match all decimal IPs :]
>
>print "That sure didn't look like an IP to me, buddy...\n<BR><BR>\n";
>
>&ourFORM();
>
>} 
>
>
>
>unless((0 <= int($1)) && (int($1) <= 255) && (0 <= int($2)) && (int($2) <= 255)
> && (0 <= int($3)) && (int($3) <= 255) && (0 <= int($4)) && (int($4) <= 255)) {
>
># The IP is out of range...
>
>print "I never saw an IP element over 255 or under 0 before... \n<BR><BR>\n";
>
>&ourFORM();
>
>} 
>

Phishy/Goldfish [at] TheBowl.net

-Dinah Coder & Development Staff

Replies:

2002 source code now also released - Ret. Founder Pengo 2005-10-11 13:16:44
- groovy [nt] - 2nd Lt TanMonkey 2005-10-12 18:32:39
- some funny perl code: - Cpt CyberTNT 2005-10-11 18:52:41
  - >yeah - Maj Goldfish 2005-10-11 20:16:46 <
  - RE: $ grep -r "#$% ./ -nt- - LtKer RadEvil 2005-10-11 18:58:25
- RE: 2002 source code now also released - Maj Goldfish 2005-10-11 16:09:09

Guest:
Subject:
Message:	On 2005-10-11 20:16:46, Goldfish wrote >By God, they were awesome programmers in those days... > >Phishy > >On 2005-10-11 18:52:41, CyberTNT wrote >>[b]denyip.pl[/b] >> >>[code] >>unless ($ip =~ /(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/) { >> >># That regex should match all decimal IPs :] >> >>print "That sure didn't look like an IP to me, buddy...\n<BR><BR>\n"; >> >>&ourFORM(); >> >>} >> >> >> >>unless((0 <= int($1)) && (int($1) <= 255) && (0 <= int($2)) && (int($2) <= 255) >> && (0 <= int($3)) && (int($3) <= 255) && (0 <= int($4)) && (int($4) <= 255)) { >> >># The IP is out of range... >> >>print "I never saw an IP element over 255 or under 0 before... \n<BR><BR>\n"; >> >>&ourFORM(); >> >>} >>[/code]
Signature:
Optional Image Link:
http://

CyberArmy::Forum v0.6
Generated In 0.02205 seconds