Теперь по подробнее про функцию
Serial = Text1.Text
If Text2.Text = Fix(Val(Serial) * 5 + 85907684536543# / 3) Then
Она берет ваш id ( на каждом компе разный а в текстбоксе его нельзя редактировать!! ) и суммирует его! (* 5 + 85907684536543# / 3) 85907684536543 - эти цифры вы поставите свои!!!!! любые можно больше можно меньше !! какие захотите (главное чтоб в кейгене они были такие же!!!)
Далее напишем кейген !!!! по такому же принципу
Создаем новый проект на него кидаем 2 label (первый напишите id второй key ) 2 textbox (оба пустые) и одну кнопку с названием Crack и начинайте кодить!
Code
Private Sub Command1_Click()
Text2.Text = Fix(Val(Text1.Text) * 5 + 85907684536543# / 3)
End Sub
Как вы видите в программе и в кейгене цифры одинаковые ( * 5 + 85907684536543# / 3 ) !!!! Это очень важно так как кряк будет только у вас а цифры вы напишите не такие как у меня а любые другие НО и в проге и в кряке они должны быть ОДИНАКОВЫЕ!!!!!
Как работает прога
Человек запускает прогу и ему пишут его id !!! далее он связывается с автором проги( С ВАМИ ) говорит вам свой id . Вы запускаете кряк,вписываете id и жмете кнопку Crack , после вам во втором окне генератора выйдет код ( этот код подойдет только тому чей id вы вписали) !!!!!!
Вот и все !!! строго не судите я только начинаю с бейсиком работать))) Если что не понятно то спрашивайте !!!!
А если понравилось то плюсоните
А вот исходники и готовый проект
http://narod.ru/disk/6938165001/login.rar.html
