Ergebnis 1 bis 4 von 4
  1. #1

    Standard Perl Columnprinter

    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

    Code:
    #!/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");}
    Geändert von fred777 (28.08.2009 um 11:14 Uhr)
    _n0p3_

  2. #2
    if(1x<>)!~/^(11+)\1+$/
    Registriert seit
    13.08.2007
    Beiträge
    524

    Standard

    Der Shebang fehlt


  3. #3

    Standard

    hrmpf - edited
    Hab ihn weggelassen da ich unter Windows geschrieben habe und er da nichts bringt, kann ja jeder selbst einfügen
    _n0p3_

  4. #4
    DateMake Dialer
    Registriert seit
    12.08.2007
    Beiträge
    100

    Standard

    Und wenn mans kurz und schnell haben will, als Einzeiler:
    Code:
    perl -e 'for(1..10){print "$_,"}'

Stichworte

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •