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

Генерация номеров вида "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]

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

---

← →
TUser ©   (2004-04-01 10:18) [4]

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

---

← →
Семен Сорокин ©   (2004-04-01 10:23) [5]

ctrl+shift+g
:)

---

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

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



Память: 0.46 MB
Время: 0.021 c