ANTICHAT — форум по информационной безопасности, OSINT и технологиям

#!perl 
use strict;
use warnings;

my $res = '  <form method="post" id="iRespect" name="iRespect" action="test.php">
  <table class="editor" style="margin-left:0px" border="0" cellspacing="0">
  <input type="hidden" id="subm" name="subm" value="124ced269d3aeddf3472d9f18a3eedc6" />
  <input type="hidden" id="subm" name="subm" value="e153ad7d20bb170d22a15589c72d984d" /> 
  <input type="hidden" id="subm" name="subm" value="8ac5925741f72d5d4acca9b740218198" /> 
  <input type="hidden" id="act" name="act" value="change_resp" />';
  
my @hash = $res=~/value="([a-f0-9]{32})"/g;
while ( <@hash>)
{ 
    print $_,"\n";
}

open (FILE2," +> 1.txt ");
opendir (DIR,"MY" );
open (LIST,">> final.txt") ;
  @dir = readdir (DIR);

  $a= undef  ;
  for ($a= 2; $a <= $#dir ; $a++   ) {
  chomp($b=$dir[$a]);
  print FILE2 "$b\n" ;
  }

 while (<FILE2>) {
   $search=$_ ;
 open (SEARCH ,"<$search") ;
    while (<SEARCH>) {
     $c=$_  ;
     if ($c =~  m/User/i) {
     print LIST "$c ----- $search \n"  ;
    }
   }
  }

 close LIST ;
 close FILE2 ;
 close SEARCH ;
 closedir DIR ;

     <> ;

$ cat t.pl
#!/usr/bin/perl -w 
use strict;
use warnings;
my $s = shift;
print $s,"\n";
$ perl -w t.pl http://url.com/index.php?id1=1\&id2=2
http://url.com/index.php?id1=1&id2=2