[center][h1]Prosty Szyfrator w Delphi 7[/h1][/center]
To jest moj pierwszy art , a wiec :
Zaczne calkiem od poczatku :D
Odpalamy Delphi 7.
Na forme dodajemy 2 memo , i wymazujemy ich zawartosc. Dla niewiedzacych : klikamy na memo , w zakladce Properties , klikamy na Lines , potem te 3 kropeczki , i wymazujemy :).
Dodajemy Edita , i tez wymazujemy zawartosc ( tutaj chyba nie musze opisywac )
Nastepnie dodajemy 2 Buttony.
W Uses dopisujemy StdCtrls.
Dwukrotnie klikamy na Button1 , przed begin piszemy var, i pod var wpisujemy to :
tekst:=Memo1.Text;
dlu:=Length(tekst);
val(Edit1.Text,zakres,k);
for i := 1 to dlu do
Naciskamy na Enter :)
dopisujemy jeszcze raz begin i wpisujemy to :
znak:=tekst[i];
kod := ord(znak);
kod := kod + zakres;
w:=char(kod);
wynik := wynik +w;
end;
memo2.Text:=wynik;
Teraz dwukrotnie klikamy na Button2 i wpisujemy to samo , tyle ze w Button1 ten odcinek wyglada troche inaczej :
W Button1 ten odcinek wyglada tak :
kod := kod + zakres;
A w Button2 tak :
kod := kod - zakres; .
I to wszystko :)
Teraz jesli chcemy cos zaszyfrowac , wpisujemy wiadomosc w Memo1 , wpisujemy jakas liczbe do Edit1 ( im wieksza tym lepsza ) i klikamy na Button1.
Jesli chcemy rozkodowac , wpisujemy zakodowana wiadomosc do Memo1 , wpisujemy do Edit1 , ta liczbe , co wpisalismy przy zakodowywaniu , i klikamy na Button2.
. Napisane przez Mafesto
dnia marzec 09 2008
6198 czytań ·
Portal
guaranteed payday loans</a> <a href="http://c