Как сделать генератор серийных номеров, чтобы они .....

[Daniil]

Как сделать генератор серийных номеров, чтобы они потом ВСЕ ключиподходили. То есть нужет принцип создания серийного номера, и конечно как потом распознать что это именно тот ключ......

Ну вы наверное понядли, если нет то объясню...

[A.A.Z.]

Чтобы сделать генератор ключей, надо откуда-либо знать принцип генерации, лучше всего узнать самому (что сложнее), ну а остальное - дело техники.
Например, если ты узнал, что прога XXX использует метод #####-##-XY-###, при этом первые пять чисел - от 4 до 7, потом два числа - либо 0 либо 1, и последние три числа - либо "666", либо "999", то генерируешь соответствующий код, т.е.

Код: Выделить всё

Sub CrackXXX()
Randomize
Dim Str$, X&, I&
For I = 1 To 5
X = Round(4 + Rnd * 3)
Str = Str & X
Next
Str = Str & "-"
For I = 1 To 2
X = Round(Rnd)
Str = Str & X
Next
Str = Str & "-XY-"
X = Round(Rnd)
If X = 0 Then Str = Str & "666" Else Str = Str & "999"
MsgBox "ThE CrAcK iS """ & Str & """" & vbCrLf & "-=EnJoY=-", vbInformation, "My Crack Rulezzz 4ever!!!"
End Sub

Пример, конечно, примитивный, но может это что-то даст...