Zabezpieczenie prgramu przed kopiowaniem

Witam ze wzgledu na duze zaiteresowanie tematem zabezpieczenia programu przed kopiowaniem, postanowilem napisac WAM,to co ja zastosowalem w swojej aplikacji i co jak do tej pory zdalo egzamin :)

Najwazniejsze to zastanowic sie, jak by to mialo wygladac???
Ja uzylem tutaj metody, ktora porownuje serial dysku C: z serialem zapisanym w pliku. Zeby nie byc goloslownym zachecam WAS do zapoznania sie z ponizszymi instrukcjami. Wykonywanie ich krok po kroku pozwoli WAM poznac zasade dzialania i rozsadnie wykorzystac ten sposob.

Zasada dzialania jest taka :
Osobie ktora chce kupic (uzywac) twojego programu, dajesz jej swoj program do pobierania serialu z dysku C: serial ten bedzie dodatkowo zakodowany aby nie kojarzyl sie z niczym szczegolnym. Nastepnie ona przesyla ci zakodowany SERIAL. Ty zacierajac rece odkodowujesz go i zakodowujesz powiedzmy kluczem 10 i umieszczasz w pliku TEST.TXT plik ten umieszczasz na dysku C: nastepnie w programie ktory jemu wysylasz ustawiasz tez klucz na 10 i wysylasz mu APLIKACJE + PLIK (TEST.TXT) nazwy plikow oraz ich lokalizacja jest oczywiscie dowolna i zalezy od ciebie.
Osoba ktorej dlaes program otwiera GO i jesli znajduje sie plik to pobiera serial z jego kompa i porownuje z serialem z pliku jesli sie zgadza to program przechodzi w FULL VERSION jesli serial sie nie zgadza badz nie ma pliku to program przechodzi w SHAREWARE :) proba przeniesienia Twojej aplikacji razem z plikiem TEST.TXT na inny komputer nie zda egzaminu poniewaz bedzie inny serial dysku.

To cala geneza. wiem ze to dla niektorych proste zabezpieczenie, ale wierzcie zdaje egzamin. DODATKOWO mozesz wprowadzic timer badz co jakies wydarzenie w aplikacji by sprawdzal serial z oryginalem. np. przy nacisnieciu okreslonych buttonow :) itd

Program pierwszy pobiera i szyfruje serial pobrany od osoby ktora chce kupic nasz program.

wstaw
EDIT1
BUTTON1

W sekcji VAR wpisz:

  var
    dl_textu, nr, k : integer;
    zn : char;
    de, df : string;

...
...
...

implementation

{$R *.DFM}

function ID: string;
var
   VolumeSerialNumber : DWORD;
   MaximumComponentLength : DWORD;
   FileSystemFlags : DWORD;
   SerialNumber : string;
begin

  //zmien literke dysku na jaka tylko chcesz ;)

  GetVolumeInformation ( 'C:', nil, 0, @VolumeSerialNumber, MaximumComponentLength, FileSystemFlags, nil, 0 );
  SerialNumber := IntToHex( HiWord( VolumeSerialNumber ), 4 ) +  IntToHex( LoWord( VolumeSerialNumber ), 4 );
  Result := SerialNumber;
  form1.edit1.text := result;

end;


procedure TForm1.Button1Click(Sender: TObject);
begin
 
  k:=19;
  id;
  dl_textu := length( edit1.text );

  for nr := 1 to dl_textu do
  begin
    zn := edit1.text[ nr ];
    df := df + chr( ord( zn ) xor ord( k ) );
  end;

  for nr := 1 to dl_textu do
  begin
    zn := df [nr ];
    de := de + chr( ord( zn ) xor ord( k ) );
  end;

  if ( edit1.text = de ) then 
    form1.caption := 'status - OK'
  else
    df := df + '--';
    
  edit1.text := df;
  button1.Enabled := false;

end;

k:=19
to klucz wedlug ktorego przesowamy bity nazwijmy go KLUCZ KODOWANIA zazwyczaj bierz wartosci od 5 do 30 nie wieksze. Jesli zmienna 'df' po zakodowaniu i zdekodowaniu bedzie miala inne wartosci to jako serial na koncu dodane zostanie '--' czyli postac zakodowana serialu bedzie wygladala pzykladowo tak: 8I<6%379-- Dwie kreski na koncu oznaczaja blad. Przy xorowaniu podanie duzej liczby jako KLUCZA KODOWANIA w polaczeniu z niektorymi znakami moze spowodwoac blad podczas odkodowywania bledu wtedy nie mozemy uzyc takiego zabezpieczenia dlatego prosze o stosowanie wartosci z przexzialu 5..30 ;) to i tak nie ma wiekszego znaczenia dla bezpieczenstwa ktore jest w takim samym stopniu jak przy wartosci 5 jak i przy wartosci 25

Nastepny program bedzie odkodowywal serial przeslany od klienta zainteresowanego naszym programem.

wstaw
EDIT1,EDIT2,BUTTON1

w VAR dodaj

VAR
  nr, k : integer;
  zn : char;
  de : string;

...
...
...

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin

  k := strtoint( edit1.text );

  for nr := 1 to length( edit2.text ) do
  begin
    zn := edit2.text[ nr ];
    de := de + chr( ord( zn ) xor ord( k ) );
  end;

  edit2.text := de;
  de := '';

end;

I to wszystko. Po odpaleniu programu w edit 1 wpisujemy wartosc klucza jaka dales w poprzednim programie czyli 19 bo k:=19 i w edit2 wpisz serial ktory przeslal ci klient i wciskamy dekoduj mamy teraz jego oryginalny serial.
Nastepnie zmien sobie klucz kodowania na dowolny inny np: 10 i wcisnij znowu BUTTON1 Oryginalny serial zostanie zakodowany KLUCZEM 10 i taki serial wstaw do pliku TEST.TXT i plik ten umiesc na dysku C:

Ostatni program to twoja glowna aplikacja

dla przykladu w VAR wstaw

VAR
  plik : textfile;
  znak, zn : char;
  serial, de, dysknr : string;
  k, nr : integer;

wstaw label1, label2, label3, label4

wklej ponizszy kod

implementation

{$R *.DFM}

function ID: string;
var
   VolumeSerialNumber : DWORD;
   MaximumComponentLength : DWORD;
   FileSystemFlags : DWORD;
   SerialNumber : string;

begin

   // zmien literke dysku na jaka tylko chcesz ;)

   GetVolumeInformation( 'C:', nil, 0, @VolumeSerialNumber, MaximumComponentLength, FileSystemFlags, nil, 0 );
   SerialNumber := IntToHex( HiWord( VolumeSerialNumber ), 4 ) +  IntToHex( LoWord( VolumeSerialNumber ), 4 );
   Result := SerialNumber;
   dysknr := result;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin

  id;

  try

    assignfile( plik, 'C:/test.txt' );
    reset( plik );

    repeat
    begin
      read( plik, znak );
      serial := serial + znak;
    end
    until EOF( plik ) = true;

    except on EInOutError do
    begin

      form1.text := 'brak pliku';

      { ewentualnie dajecie
         demo:=true;
         wtedy oznacza to ze program dialac bedzie w wersji demo
         to juz wasza dowolna kombinacja
      }

      exit;

    end;

  end;

  de := '';
  k := 10; // pamietaj ten klucz wpisz taki jaki zakodowales oryginal 

  // w poprzednim programie :)

  for nr := 1 to length( serial ) do
  begin

    zn := serial[ nr ];
    de := de + chr( ord( zn ) xor ord( k ));

  end;

  form1.caption := de;
  label4.caption := dysknr;
  label1.caption := de;

  if (dysknr = de) then
    form1.caption := 'OK'

    { ewentualnie dajecie tu zamoast procedury
       np.   demo=flase  wylaczacie tu opcje programu demo
    }

  else
    form1.caption:='BUUU';

    { tutaj dajecie demo=true
       i wetdy prz y wykonywaniu opcji Jesli demo=true
       to wtedy opcja.enabled := false
      itd badz kierujecie do odpowiedniej procedury
    }

end;

Najwazniejsze to zebys pamietal jaki miales klucz ten kod sprawdza czy istnieje plik TEST.TXT na dysku C: jesli NIE istnieje program ustawia sie w tryb SHAREWARE ( czy DEMO) jesli plik istnieje nastepuje odczytanie seriala z dysku 'C' zakodowanego z pliku TEST.TXT serial ten jest odkodowany i porownywany z oryginalem jesli sie zgadzaja to program jest w FULL VERSION jesli nie to SHAREWARE (DEMO)

We wszytskich aplikacjach mozesz ustawic kodowanie klucza na wartosc okreslona i potem rozsylasz pliki z zakodowanym serialme do osob ktore zapalcily ci kase. np dajesz im demo jak nie zaplaca nie moga uzywac jak zaplaca to OK a ty nic nie tracisz. Mozesz dodawac fukcje destrukcji programu, lub losowo wybierac klucze kodowania mozna sporo dodac jescze roznych algorytmow nie tylk oxorowanie.

To wsyztsko co chcialem zaprezentowac. to szkielet procedury zabezpieczenia, moze to byc jeden z elementow zabezpieczen w Twojej aplikacji.

pamietaj KLUCZ KODOWANIA w programie glownym musi byc taki sam jak w programie ktorym go zakodowales:)

gotowe kody do pobrania:
pobierz gotowe kody