Hacking  
  Listopad 24 2017 08:30:32  
 
Nawigacja
folder Portal
. Artykuły
. Download
. Forum
. Szukaj
. FAQ
. Regulamin
folder Hacking
. Gry Hakerskie
. Filmy
folder Delphi
. Kursy
. Faq
. Źródła
. Komponenty
. Artykuły
folderWebmaster
. JavaScripts
. Skrypty PHP
folderRóżne
. Kontakt
. Zlokalizuj ip
Aktualnie online
. Gości online: 3

. Użytkowników online: 0

. Łącznie użytkowników: 153,906
. Najnowszy użytkownik: Robertknows
Ostatnie artykuły
. Metoda ataku symlin...
. Asembler x86 w pigułce
. Binder plików z komp...
. [Asembler/MASM] Pobi...
. Braifuck 4 fun
Nawigacja
Artykuły » Delphi artykuły » Prosty Szyfrator w Delphi 7
Prosty Szyfrator w Delphi 7
[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 :

i,dlu,kod,zakres,k:integer;
znak:char;
tekst,wynik,w:string;

Za begin 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.



Logowanie
Nazwa użytkownika

Hasło



Nie masz jeszcze konta?
Zarejestruj się

Nie możesz się zalogować?
Poproś o nowe hasło
Shoutbox
Musisz zalogować się, aby móc dodać wiadomość.

22-11-2017 05:27
guest test post bbcode <a href="http://gdhyue
i23kol.com/" Chytryhtml</a> http://gdhyuei23ko
l.com/ simple

19-11-2017 23:03
<a href="https://www.a
vissoft.de/damensa
ndaletten/pleaseru
sa-plateau-kniesti
efel-electra-2020-
mattweiss.php" ChytryPleaserUSA Plateau Kniestiefel Electra 2020 mattweiss</a> <a href

18-11-2017 18:28
Dzien dobry Potrzebna kasa? Zaden problem! https://goo.gl/eaN
BmN

17-11-2017 09:45

17-11-2017 08:02

Licznik
31,055,485 unikalne wizyty