Помогите сделать регистратор

[Fainder]

Буду весьма признателен, если кто подскажет, как сделать (или где скачать с исходниками) нормальный генератор кодов, сделанный на дельфе. Регистрационный ключ должен генерироваться исходя из компьютерного кода, который, в свою очередь, основываться на параметрах основного железа. Я кое - что пытался написать, но программа глючит. Далее я даю свою процедуру, а во вложенном файле полный исходник:
procedure TForm1.Button1Click(Sender: TObject);
var
lpMemoryStatus : TMemoryStatus;Ram : int64;
VolumeName,
FileSystemName : array [0..MAX_PATH-1] of Char;
VolumeSerialNo : DWord;
MaxComponentLength,
FileSystemFlags : DWord;
Compcode, Regcode : extended;
temp : real;
begin
Edit2.Clear;
if Edit11.Text <> '1234567'Then begin
Showmessage('Неверный пароль');Edit1.Clear;
Edit11.SetFocus;
end else begin
GetVolumeInformation('C:\',VolumeNa me,MAX_PATH,@VolumeSerialNo,
MaxComponentLength,FileSystemFlags,
FileSystemName,MAX_PATH);
lpMemoryStatus.dwLength := SizeOf(lpMemoryStatus);
GlobalMemoryStatus(lpMemoryStatus);
with lpMemoryStatus do
ram :=strtoint(Format('%0.0f',[dwTotalPhys div 1/1 ]));
ramm := ram;
Edit1.Text :=floatToStr(Round(DiskSize(3)/10737841824*ram/19781881100*VolumeSerialNo));
Compcode := strtofloat(Edit1.Text);
temp :=strtofloat(Edit1.Text[1])+strtoint(Edit1.Text[2])+strtoint(Edit1.Text[3]);
Regcode := Round(sqrt(Compcode)/temp);
Regcode := sqr(Regcode)*ramm/4750;
Regcode:=round(Regcode*6);
Regcode :=Regcode+strtoint(Edit1.Text[5])*strtoint(Edit1.Text[4]);
Edit2.Text:=floattostr(regcode);
end;
end;

[Alar]

А зачем тебе нужен такой генератор?

[zetrix]

Защита ShareWare.

[Alar]

Так это нужно проверять на удалённом сервере. Чтобы программа подключилась к инету, и ей разрешили работать на этом компе под этим серейником. - вот это более менее надёжно...

[Virtson]

> Edit1.Text :=floatToStr(Round(DiskSize(3)/10737841824*ram/19781881100*VolumeSerialNo));

вообще жуть

[Alar]

Virtson, и что это было?

[mihali4]

Virtson, и что это было?

Это он ужаснулся одной из строк оригинала (см. 1-й пост)...

А если серьезно, то единственно неповторяющимся является данный момент отсчета времени. Дабы исключить влияние несинхронности часов на разных компьютерах (гипотетически ведь можно допустить, что несколько юзеров будут регистрироваться, а разнобой у них в системном времени таков, что получится одно и то же время), любым образом накладывается параметр, к примеру, VolumeSerialNo и получается некое "страшное" число. Теперь это число путем приведения к целому (вернее, простым убиранием плавающей запятой) и перестановкой цифирок по определенному алгоритму с последующей вставкой дефисов и т.д.
В результате, вуа-ля - имеем нечто вроде ABCD-1726-4937-9432...