Sprawdź:
Witam. Z racji tego, że nie mam co robić chciałbym opisać Wam krok po korku jak zrobić własnego keygena w
Lazarusie (Delphi to praktycznie ten sam kompilator). Wszyscy programują w VB, a ja wole Lazarusa

Wszystkie linki będą skrócone w adf.ly. Więc jeśli się nie podoba, nie klikaj i szukaj po necie wszystkiego co potrzebne
Zacznijmy.
Najpierw ściągamy Lazarusa
[CLICK] dla swojego windowsa. Po otwarciu zobaczymy coś takiego :
Komponent - np. przycisk, etykieta itd...
1.
Edytor źródeł - tutaj będziemy wpisywać kod źródłowy, który pozwoli wykonywać operacje programowi po naciśnięciu na dany komponent.
2.
Forma - inaczej program. Tak będzie wyglądał nasz program po skompilowaniu. Tutaj będziemy nanosić komponenty.
3.
Inspektor obiektów - tutaj będziemy ustawiać wartości/właściwości dla komponentów...
4.
Panel programu - umieszczone wszystkie opcje programu oraz komponenty.
Dobra, robimy keygena.
1. Będzie potrzebne nam jakieś zdjęcie jako tło. Dajmy, że robimy keygena do The Sims 3. Więc ściągamy obrazek np. z google grafika.
Następnie wchodzimy do Lazarusa, przechodzimy na komponenty
Additional i dodajemy komponent TImage (klikamy na niego, a potem na formę). Będzie to wyglądało tak:
Komponent rozciągamy na cały obszar formy no chyba że chcemy zrobić logo czy coś i zostawić obszar pusty. To chyba każdy potrafi zrobić...
Co dalej... Dalej przechodzimy na
Inspektor Obiektów mając zaznaczony cały czas komponent
Image1: TImage. W Inspektorze Obiektów klikamy na
Picture, a następnie na kwadracik, który jest oznaczony strzałeczką. Wyskakuje nam okno dialogowe, na którym klikamy
Wczytaj. No i szukamy naszego zdjęcia, które ma być tłem. Zatwierdzamy OK'ejem no i mamy tło.
Przechodzimy w komponenty
Standard i dodajemy :
-
TButton
-
TEdit
Będzie to wyglądało tak :
Teraz zajmiemy się zmianą napisu Button1 oraz Edit1. Jeżeli ma być to keygen to wiadomo, na przycisku powinno być Generate, a Edit powinien być pusty. Robimy następująco :
Klikamy na komponent
Button1 przechodzimy na
Inspektor Obiektów i klikamy na
Caption. Następnie wprowadzamy nasz napis, który ma się pojawić na przycisku czyli w tym wypadku Generate :
![[Obrazek: cta3.png]](http://img560.imageshack.us/img560/1909/cta3.png)
I zatwierdzamy Enterem.
Podobnie robimy z Edit1, w tym wypadku nie Caption, a
Text. No więc klikamy na komponent
Edit1 i zmieniamy wartość w polu Text. Będzie to pole puste, no chyba, że ktoś chce tam umieścić napis np. "Here will be a key" czy coś w tym stylu.
![[Obrazek: vc51.png]](http://img707.imageshack.us/img707/1455/vc51.png)
I zatwierdzamy Enterem.
Button oraz Edit można dowolnie rozciągać (Edit tylko w szerz).
Dobra, połowa roboty za nami. Dodamy jeszcze tylko jeden komponent, o którym zapomniałem wcześniej... Będzie to
TProgressBar z komponentów
Common Controls
![[Obrazek: fko7.png]](http://img16.imageshack.us/img16/1303/fko7.png)
Można go dowolnie rozciągnąć według swojego uznania.
Teraz zajmiemy się troche mniej przyjemną rzeczą czyli
kodem źródłowym. Postaram się wszystko objaśnić żeby nie było żadnych problemów.
Przechodzimy do
Edytor źródeł czyli tam gdzie wpisujemy kod źródłowy. Szukamy tłustego napisu
var czyli sekcji deklaracji zmiennych/stałych. Dopisujemy tam coś takiego :
http://adf.ly/TsN8E
Teraz klikamy 2 razy lewym przyciskiem myszy na komponent
Button (nasz Generate). Automatycznie przeniesie nas do
Edytor źródeł w miejsce gdzie będziemy przypisywać komendy do Button. W tym miejscu wpisujemy to:
http://adf.ly/TsNV9
FOR .. TO .. DO
Pętla, która ładuje ProgressBar do 100, a następnie wykonuje dalsze operacje.
Gdybyśmy chcieli aby ładowanie ProgressBaru było w odstępach czasowych np. 0,5 sekundy musimy zastosować pętlę
repeat - until, która będzie wyglądać tak :
http://adf.ly/TsMwx
Zastosujcie obydwie pętle w programie to zobaczycie na czym polega chociaż i tak opisałem wszystko szczegółowo.
Mamy już załatwiony ProgressBar. Teraz musimy zająć się napisem w Edit no i jakimś oknem, które powiadamia, że klucz został wygenerowany.
Po tym kodzie, który wkleiłeś do Button wpisujemy :
http://adf.ly/TsNhc
Application.Title oznacza nazwę okna czyli np. Success!.
ShowMessage to wiadomość, która pojawi się w oknie.
Na końcu coś czego zapomniałem napisać na początku lecz to nie ma znaczenia. Klikamy na Formę czyli :
![[Obrazek: 491i.png]](http://img9.imageshack.us/img9/1884/491i.png)
I robimy tak jak w przypadku Button'a. Zmieniamy nazwę w Caption. Będzie to nazwa programu czyli w tym wypadku The Sims 3 Keygen.
Tak wygląda nasz keygen.
1. Od razu po otwarciu.
2. Po naciśnięciu Generate i załadowaniu ProgressBara
3. Po naciśnięciu OK w oknie dialogowym
Można także zmienić ikone programu wchodząc w
Projekt - Opcje projektu... - Wczytaj ikonę - OK.
Następnie zapisujemy czyli
Plik - Zapisz jako - Zapisz - Zapisz
Jeszcze musimy skompilować program bu utworzyć plik .exe. Czyli klikamy F9 po zapisaniu no i mamy naszego keygena pod nazwą
project(exe).
Jak widzicie nic trudnego. W 2 min zrobiłem coś takiego
Jeśli macie szacunek do czyjeś pracy proszę o nie wrzucanie tego nigdzie. Poradnik napisany w 100% od początku do końca przeze mnie. Gdyby ktoś wyhaczył jakieś błędy w pisowni czy w programie(w co wątpie) to pisać w komentarzach.
Tak, wiem, jestem okrutny bo skróciłem linki w adf.ly, wybaczcie 