I finally got time to learn coding. started with C++ and Perl 2 days ago. Today I wrote a little script which I always googled for, but never found.
It filters IPs out of a file and writes it back to a new file. Needs some improvement. Just an example but working well (also it doesn't validate the ip).

feel free to show me a better way with perl:

#!/usr/bin/perl -w

$words = ("");
open(INPUT, "<input.txt") || "input.txt not found\n";
open(OUTPUT, ">output.txt") || "Error creating file\n";
chomp(@input = <INPUT>);
$count = 0;

foreach(<@input>)
{
push(@Lines, $_);
}
close(INPUT);

print "\nSearching for IPs: \n\n";
foreach(@Lines)

{
$words++;

if(/^([12]?\d?\d\.){3}[12]?\d?\d$/)

{
print OUTPUT "$_\n";
print "$_\n";
$count++
}

}

if ($count ne '0') {
print "\nFound $count IPs: \n\n";
}
else {
print "\nNo IPs found or file too big: \n\n";
}
print "File has $words words\n" if ($words > 0);

close(OUTPUT);

Looks good to me but I dont need it atm, good job though.

hy i cant make it to exe?
By me it failes the p2x561.dll???
Explained me.

u dont compile to an exe
u save it as a PL script and run it in command line

buz

Well I made a tool like that but there's a 'long' time and I have 'lost' the source (but if I a have, let's say, 2 or 3 hours of free time I will try to find it...erf)

It's a very simple console tool (4.65 Ko), the only one option is the full path name of the text file, and it display all valid IP founded in the file. You can of course redirect the output to an other text file like that

IPretr text.txt > results.txt

If you can find it usefull...

Starsky32

** Edited: Well not found the source yet, but I found a second version, after searching a bit I found what it was (lol). I remember I found a bug and sometimes some ip were missed. I corrected this little bug in the second version. So I replaced the attachment with the corrected one, sorry for the inconvenient, this version is 100% ok.

Nice app, simple and effective

Thx, makes simpler some things.

Whieeee works like a charm

greetz

Nice work thanks dude I have looked for something like this before with no luck.

Nice work Killaloop. Must be helpful to many friends here, Thanks a lot.

Manu

did it all for learning and its really useful.
here is an updated version for bigger logfiles (tested 20mb text file which filtered in 2secs). For bigger files holding everything in one aray is to much so I splitted the filtering process. works nice and speedy on any big files.

#!/usr/bin/perl -w

open(INPUT, "<input.txt") || "input.txt not found\n";
open(OUTPUT, ">output.txt") || "Error creating file\n";
$count = 0;
@input = <INPUT>;

print "\nSearching for IPs: \n\n";
foreach(@input)
{
if(/\b[0-9][0-9]?[0-9]?\.[0-9][0-9]?[0-9]?\.[0-9][0-9]?[0-9]?\.[0-9][0-9]?[0-9]?\b/)

{
push(@Lines, $_);
}
}
foreach(<@Lines>)
{
if(/\b[0-9][0-9]?[0-9]?\.[0-9][0-9]?[0-9]?\.[0-9][0-9]?[0-9]?\.[0-9][0-9]?[0-9]?\b/)

{
$count++;
print OUTPUT "$_\n";
print "$_\n";
}
}
close(INPUT);
if ($count ne '0')
{
print "\nFound $count IPs \n\n";
}
else {
print "\nNo IP found \n\n";
}
close(OUTPUT);

oh and for those of you not knowing .. no need to make an exe with it. install active perl copy the code into a pl file in run it from commandline.
on windows you should get two warning because of constants which are needed for *nix only.
ps: it filters big files much faster than grep

find "192.168" c:\scan.txt>>result.txt

FIND [/V] [/C] [/N] [/I] [/OFF[LINE]] "string" [[drive:][path]filename[ ...]]

/V Displays all lines NOT containing the specified string.
/C Displays only the count of lines containing the string.
/N Displays line numbers with the displayed lines.
/I Ignores the case of characters when searching for the string.
/OFF[LINE] Do not skip files with offline attribute set.
"string" Specifies the text string to find.
[drive:][path]filename


No broken balls

could somebody of you also make a script/exe filtering
ip:port
and
ip port
out of a file?
this would be great, cause there are a few lists in this format in the proxy listings.

but the current tools sure aren't bad if you have scan results with extra data you dotn need

with ipretr i have a few problems, often gives me something like 0.0.x.x!
the other i haven't tried until now...
and at my one list with 102 entries it seems somehow to stop i think...

for Miserly hope this is what you want.
filters a list with IP:PORT or IP PORT into IP:PORT format.
usage: port.pl <textfile to filter>


#!/usr/bin/perl -w
#
# portfilter.pl
#
# Filters IP/PORT list from IP:PORT or IP PORT
# into IP:PORT format.
# usage: portfilter.pl <inputfile>

die "Usage: $0 List" if (@ARGV!=1);
open( INPUT, $ARGV[0] ) || die "Can't open file : $!\n";
open(OUTPUT, ">output.txt" );
chomp (@input = <INPUT>);

foreach(@input)
{

if(/\b[0-9][0-9]?[0-9]?\.[0-9][0-9]?[0-9]?\.[0-9][0-9]?[0-9]?\.[0-9][0-9]?[0-9][ ][0-9]/)

{
push(@form1, $_);
}

elsif(/\b[0-9][0-9]?[0-9]?\.[0-9][0-9]?[0-9]?\.[0-9][0-9]?[0-9]?\.[0-9][0-9]?[0-9][:][0-9]/)
{
push(@form2, $_);
}
}


close( INPUT );

foreach $form1( @form1 ) {
@parts = split( " ", $form1 );
print OUTPUT "$parts[0]:$parts[1]\n";
}

foreach $form2( @form2 ) {
@partsForm2 = split( ":", $form2 );
print OUTPUT "$partsForm2[0]:$partsForm2[1]\n";
}
close (OUTPUT);

@daguilar01:
yes, you missunderstood me

@Killaloop:
thx for your script, i'll give it a try later this day!

----
edit:
@killaloop:
installed active perl, started it like described with portlist.pl file.txt
so far it works fine, no errors, also gives me output.txt, but here's the problem:

source

I can do this without problem...with one needed condition. it will only work for IP:PORT or IP, but not for IP PORT. because I have to remove the spaces in order to make it work...
if you need the IP PORT format I have to filter complete lines (like I did now) or make a more exact match for the type of input file which wont work for anyother fileformat then.
hope you understood:

source:
501 216.20.117.82:8000 Anonymous 26/7/2003
502 212.7.178.94:8080 Anonymous 26/7/2003
503 212.244.219.21 Anonymous 26/7/2003
504 212.244.219.21:80 Anonymous 26/7/2003
505 proxy-server.711.net:81 Anonymous 26/7/2003

output:
216.20.117.82:8000
212.7.178.94:8080
212.244.219.21
212.244.219.21:80
proxy-server.711.net:81

if your source looks like this:

501 216.20.117.82 8000 Anonymous 26/7/2003
502 212.7.178.94 8080 Anonymous 26/7/2003
it will fail btw I would have to output it in the same format meaning IP PORT and couldn't output IP:PORT

if you could one script that does

for the first part I'm almost done.
one question what the default port with that proxy scanning tool
I mean if you have IP without port whats the port where the proxy listens? so I can add it to the output

ok
there you go. I made the script the way that you can add a default port into it for those IPs where no port is specified so you don't need to write a php script.
test it if it is working right.

#!/usr/bin/perl -w
# ProxyList filter

die "Usage: $0 List" if (@ARGV!=1);
open( INPUT, $ARGV[0] ) || die "Can't open file : $!\n";
open(OUTPUT, ">output.txt" );
chomp (@input = <INPUT>);
$DefaultPort = 8080; #edit this to your needs


foreach(<@input>)
{

if(/^[a-zA-Z0-9_\.\-]+\.[a-zA-Z0-9\-\.]+:[0-9]/)

{
print OUTPUT "$_\n";
}

elsif(/^[a-zA-Z0-9_\.\-]+\.[a-zA-Z0-9\-\.]+$/)
{
print OUTPUT "$_:$DefaultPort\n";
}


}

close( INPUT );
close (OUTPUT);