RMS ID's Generate #C0ded by AngelOfLove#

Можно описание?
 
Сделай чтобы сохранялись с расширением .xml
 
Генерирует ID реальных пк?
 
Перебирать вручную это бред, нужен чекер
 
5-7 минут? На что тут можно столько убить? Код можно уместить в три строки.. Если бы был чекер, то наверняка бы было совсем другое отношение у меня к сие, извините, высеру.
 
5-7 минут? На что тут можно столько убить? Код можно уместить в три строки.. Если бы был чекер, то наверняка бы было совсем другое отношение у меня к сие, извините, высеру.
делай лучше, мы оценим!
 
привязка ведь к своему компу идет или нет?
 
делай лучше, мы оценим!
Код:
uses
System.SysUtils;
var s:string; i,a:Integer; t:Text;
begin
while True do  begin
write('Count = ' ); read(i);
assign (t,'result.txt'); Rewrite(t);
for a:=0 to i do begin
s:=IntToStr(Random(9))+ IntToStr(Random(9)) + IntToStr(Random(9)) + '-'+ IntToStr(Random(9))+ IntToStr(Random(9)) + IntToStr(Random(9))+ '-' + IntToStr(Random(9))+ IntToStr(Random(9)) + IntToStr(Random(9));
Append(t);  writeln(t,s);
end; Writeln('Gotovo, file result.txt'); close(t); end;
end.
Оценивай, чистый винапи. Провисания от такого сложно словить, в отличии от гуишки
 
Код:
uses
System.SysUtils;
var s:string; i,a:Integer; t:Text;
begin
while True do  begin
write('Count = ' ); read(i);
assign (t,'result.txt'); Rewrite(t);
for a:=0 to i do begin
s:=IntToStr(Random(9))+ IntToStr(Random(9)) + IntToStr(Random(9)) + '-'+ IntToStr(Random(9))+ IntToStr(Random(9)) + IntToStr(Random(9))+ '-' + IntToStr(Random(9))+ IntToStr(Random(9)) + IntToStr(Random(9));
Append(t);  writeln(t,s);
end; Writeln('Gotovo, file result.txt'); close(t); end;
end.
Оценивай, чистый винапи. Провисания от такого сложно словить, в отличии от гуишки
Чувак код писался на C# из-за этого ушло столько времени. Потом еще подключал ссылки для изменения дизайна. Там же не одна функция генерации, там еще сохранение и очищение :/
 
Назад
Сверху