27.12.2006, 16:06
|
|
Крёстный отец :)
Регистрация: 22.06.2005
Сообщений: 1,330
С нами:
10991846
Репутация:
2054
|
|
PHP код:
<?php
if (isset($HTTP_GET_VARS["dictgen"]))
{
if (!isset( $HTTP_GET_VARS["listfile"] )) exit( "listfile not specified\r\n" );
if (!isset( $HTTP_GET_VARS["from"] )) exit( "from not specified\r\n" );
if (!isset( $HTTP_GET_VARS["to"] )) exit( "to not specified\r\n" );
if (!isset( $HTTP_GET_VARS["pass"] )) exit( "pass not specified\r\n" );
if (!isset( $HTTP_GET_VARS["mode"] )) exit( "mode not specified\r\n" );
$fname = $HTTP_GET_VARS["listfile"];
$min = $HTTP_GET_VARS["from"];
$max = $HTTP_GET_VARS["to"];
$pass = $HTTP_GET_VARS["pass"];
$mode = $HTTP_GET_VARS["mode"];
switch ($mode) :
case "a" :
$f = fopen( $fname, "a" );
break;
case "w" :
$f = fopen( $fname, "w" );
break;
default :
{
print "What about mode ? a (append) or w (rewrite) ?\r\n";
}
endswitch;
$f_pass = fopen( $pass, "r" );
while ($l = fgets( $f_pass, 50 )) :
$l = str_replace( "\r\n", "", $l );
for ($i = $min; $i <= $max; $i += 1):
fputs( $f, $i.";".$l."\r\n" );
endfor;
endwhile;
fclose( $f );
fclose( $f_pass );
if ($mode == "w")
print "Rewrite: ".$fname." with UINS from ".$min." to ".$max." and passes from ".$pass;
else
print "Append: ".$fname." with UINS from ".$min." to ".$max." and passes from ".$pass;
exit;
}
else
if (isset($HTTP_GET_VARS["singlegen"]))
{
if (!isset( $HTTP_GET_VARS["listfile"]) ) exit( "listfile not specified\r\n" );
if (!isset( $HTTP_GET_VARS["from"]) ) exit( "from not specified\r\n" );
if (!isset( $HTTP_GET_VARS["to"]) ) exit( "to not specified\r\n" );
if (!isset( $HTTP_GET_VARS["pass"]) ) exit( "pass not specified\r\n" );
if (!isset( $HTTP_GET_VARS["mode"]) ) exit( "mode not specified\r\n" );
$fname = $HTTP_GET_VARS["listfile"];
$min = $HTTP_GET_VARS["from"];
$max = $HTTP_GET_VARS["to"];
$pass = $HTTP_GET_VARS["pass"];
$mode = $HTTP_GET_VARS["mode"];
switch ($mode) :
case "a" :
$f = fopen( $fname, "a" );
break;
case "w" :
$f = fopen( $fname, "w" );
break;
default :
{
print "What about mode ? a (append) or w (rewrite) ?\r\n";
}
endswitch;
for ($i = $min; $i <= $max; $i += 1):
fputs( $f, $i.";".$pass."\r\n" );
endfor;
fclose( $f );
if ($mode == "w")
print "Rewrite: ".$fname." with UINS from ".$min." to ".$max." and pass ".$pass;
else
print "Append: ".$fname." with UINS from ".$min." to ".$max." and pass ".$pass;
exit;
}
?>
Генератор UIN:PASS листа, автор KEZ если не ошибаюсь..
__________________
Лучший способ защиты - это нападение!!!
|
|
|