#!/usr/bin/perl print "Length: "; chop($len=<STDIN>); print "Output file: "; chop($file=<STDIN>); open(OUTPUT, '>'.$file); $nullz = ''; for($i=1;$i<=$len;$i++) { $nullz .= '0'; } for($i=0;$i<(10**$len);$i++) { print OUTPUT substr($nullz, 0, (int($len) - length($i))).$i."\n"; } close(OUTPUT); print "Generated"; <STDIN>;
<html><head><title>PASSGEN</title><body><form method="post"><table>- ОТ -</b><input type="text" name="ot" size="5"></td><td>- ДО -</b><input type="text" name="do" size="20"></td></tr></table><input type="submit" value="Генерировать"><?phpset_time_limit(0);$file=fopen("digits.txt","w");for($i=$ot;$i<$do;$i++)fwrite($file,"$i\n");fclose($file);?></center></body></head></html>