Генерация номеров вида "4E7A9129-A289-4B79-A71C-6883C016A0FE"

← →
GreatMaster (2004-04-01 08:54) [0]

Как делается сабж? Говорят есть какаято функция...

← →
Defunct © (2004-04-01 09:08) [1]

Посмотрите, может подойдет:
Написана на TP, так что делайте выводы отностилено типов.
LongInt будет Integer, String будет ShortString.

Procedure TSecurity.GenerateID;
Var S:String;
B:Byte;
I:Integer;
Ch:Char;
L,TK:LongInt;
P:^LongInt;
F:Text;
Begin
Randomize;
LoadSystemID; // На этом месте ваша процедура
GenerateSubSys; // На этом месте ваша процедура

TK:= 0 - (SystemID + SubSysID); // TK - Tek Key

// Если нет привязки, то TK = 0

S:="";

{ Генерируем строку мусора }
For I:=1 To 40 Do
Begin
B:=Random(10+26);
If B<10 Then Ch:=Chr($30+B)
Else Ch:=Chr(Byte("A")+B-10);
S:=S+Ch;
End;

{ Рассчитываем ключ из мусора }
L:=0;
For I:=0 To 9 Do
Begin
P:=@S[i*4+1];
L:=P^+L;
End;

{ Мусор + ключ + инф. о системе = 0 }
L:=TK - L;

Assign(F,FileName);
ReWrite(F);
WriteLn(F,S);
WriteLn(F,L);
Close(F);
End;

← →
GreatMaster (2004-04-01 09:10) [2]

Спасибо, я уже нашёл
function CreateClassID: string; возвращает сабж.
А ручками то каждый может :)

← →
Defunct © (2004-04-01 09:20) [3]

Ну уж, надо было сказать, что нужно зарегистрировать класс. А то я ж не телепат, мало ли для каких целей такие номера генерировать можно. :)

Не надо ручками - зря что ли дядя билли старался. А ручками можно такого нагенерить - не возрадуешся.

ctrl+shift+g
:)

Генерация номеров вида "4E7A9129-A289-4B79-A71C-6883C016A0FE" Найти похожие ветки