Perl Columnprinter

[fred777]

Da ich gestern im IRC Leute erlebt habe die tatsächlich bei SQL Injections die selektierten Columns auch wenn es 82 sind mit der Hand an die URL hängen, habe ich mal was kleines getipselt..

+ schreibt die Columns in der fertigen Schreibweise in ein Textdokument wie z.B. 1,2,3,4,5,6,7,8,9,10

Vielleicht brauchts ja jemand hier

#!/usr/bin/perl
use strict;
use warnings;
print "\n\nColumnprinter for SQL Injections by fred :>\n\n";

my $count = shift or die ("Usage: [Count] [Path]\n");
my $path = shift or die ("Usage: [Count] [Path]\n");

if($count =~ m/\d+/)
{
open(FILE, ">$path") or die("Error, its a bad path\n");
print FILE "Columns:\n";
for(my $i=0;$i<$count;$i++)
{
print FILE $i.",";
}
print FILE "\n\n";
close(FILE);
print "+ Extracting..\n";
print "+ Done\n\n";
}
else {die("Error, Count must be an integer\n");}