Да запросто. Сверху чутка не влезли переменные
![Debug Tools Options Mindow
oUl-fc) iüâï>
имя« (fsináiy
[I] = keygen_for_stearn.pas
a: = ;
assign<t,* keys.txt*>; rewrite<t>;
for i:= to >0 do begin for a:= to 4 do begin for v:= to do begin repeat b:=random<43 > +48; until <b>=65> or <b<=57>; c:=chr<b>; write<t,c>; end;
write<t,*—*>; end;](http://img1.reactor.cc/pics/comment/full/%D0%A5%D0%B0%D0%BB%D1%8F%D0%B2%D0%B0-pascal-keygen-%D0%BF%D0%B5%D1%81%D0%BE%D1%87%D0%BD%D0%B8%D1%86%D0%B0-1980175.png "Халява,pascal,keygen,песочница")
Эт не то(. Но спасибо все равно.
Вообще никак(((
