Вниз
Скачать: CL | DM;

Генератор ключей?   Найти похожие ветки 

← →
EndDie   (2003-02-17 07:54) [0]

function HDDNum(const DrivePath:string):integer;
Доброго времени суток!
Не знает ли all, с чего начать решение проблемы:
1. Есть серийнай номер винта:
var
SerialNum:Pdword;
a,b:Dword;
buffer:array [0..255] of char;
begin
result:=0;
new(SerialNum);
if getVolumeInformation(pChar(drivePath),buffer,
sizeof(buffer),SerialNum,a,b,nil,0) then
result:=SerialNum^;
Dispose(SerialNum);
end;

2. Есть имя пользователя: user

Нужно на основе этих вводных сгенерить регистрационный номер (registration number), а уже под него - регистрационый ключ (registration key). Т.е. чел вводит свое имя, ему дается рег. номер, он его отсылает, ему в обратку - ключ для регистрации...
Вопрос: С чего начать, мож кто занимался чем подобным, приветсствуются любые предложения и куски кода (тем паче).
Спасибо.


← →
Jel ©   (2003-02-17 10:01) [1]

Таким образом ты получишь серийный номер тома, а не винта. К нему привязываться не стоит - очень легко исправить.
А для генерации серийных номеров подойдет любая обратимая криптофункция. В простейшем случае можно использовать xor. Лучше DES или MD5.



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c
7-87721
msalex
2002-12-08 15:08
2003.02.27
TP7, DOS перезагрузка


1-87487
Process Killer
2003-02-14 16:57
2003.02.27
Delphi and HTML


1-87563
maxi-mov
2003-02-16 23:14
2003.02.27
ScrollBar - как отследить изменение скрола?


3-87280
AndDem
2003-02-07 13:19
2003.02.27
Как в RunTime получить UserName из ADOConnection?


1-87427
McAndy
2003-02-18 15:03
2003.02.27
Можно ли записать в файл экземпляр объекта




   Наверх