Shareware_!

0

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!

0

Podaj swoj mail to ci wysle program (Kod źródłowy) do delphi ofkorz :)

0

ZIOMBER napisał:
Podaj swoj mail to ci wysle program (Kod źródłowy) do delphi ofkorz :)

Mój mail to: [email protected]

0

Z tego co pamiętam to w dziale kody źródłowe był jakiś program shareware, ale nie wiem czy o taki Ci chodzi

0

Chodzi mi o zabezpieczenie takie jak np. w WinZipie, aby mieć pełną wersję trzeba wpisać [name&serial].

0

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 &gt 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

0

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

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0