Mam pytanie jak zrobić program, który podczas przykłaowo uruchaminia pokaże okno, w którym, aby skorzystać z wszystkich funkcji programu, trzeba będzie podać np. Name&Serial.
Serdeczne dzięki!
Podaj swoj mail to ci wysle program (Kod źródłowy) do delphi ofkorz :)
ZIOMBER napisał:
Podaj swoj mail to ci wysle program (Kod źródłowy) do delphi ofkorz :)
Mój mail to: [email protected]
Z tego co pamiętam to w dziale kody źródłowe był jakiś program shareware, ale nie wiem czy o taki Ci chodzi
Chodzi mi o zabezpieczenie takie jak np. w WinZipie, aby mieć pełną wersję trzeba wpisać [name&serial].
takie logowanie polega na utworzeniu algorytmu, no powiedzmy szyfrowania,
czyli jakiś tekst (name), będzie odpowiadał jakiemuś dokładnemu szyfrowy (key)
i teraz, jerzeli podanuy przez urzytkownika key = orginal_key, czyli takiemu jak ma wyjść to wszystko będzie oki, teraz na forme rzuć dwa komponęty Edit, i jeden button, i napisz coś takiego:
function TForm1.serial_check ( var name : string; var key : string ) : boolean;
var
x : integer;
orginal_key : integer;
num : integer;
znak : char;
begin
x := 0;
repeat
x := x + 1;
znak := name [ x ];
num := 0;
repeat
num := num + 1;
until char ( num ) = znak;
num := num * 234 - 324; *przykladowa metoda szyfrowania
orginal_key := orginal_key + num;
until x > length ( name );
if IntToStr ( orginal_key ) = key then result := true; *sprawdza czy są identyczne
end;
procedure TForm1.Button1Click(Sender: TObject);
var
name1 : string;
key1 : string;
begin
name1 := Edit1.Text;
key1 := Edit2.Text;
if serial_check( name1, key1 ) = true then ShowMessage ( 'Podałeś dobry klucz');
end;
ale uwaga!!!!!!!!!!!!!!!!!
istnieją takie programy jak keyloggery, które same stosują ten algorytm i tłumaczą nazwę na klucz, a więc uwarzaj!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
--Blue_Hat_Programist
Są już gotowe komponenty. Bardzo proste w użyciu. Polecam poszukać w dziale shareware protection na http://delphi.icm.edu.p
l--Pozdrawiam!
RockY
Delphi 5
[email protected]
GG: 3615957