Hacking  
  Wrzesień 26 2017 11:07:52  
 
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: 5

. Użytkowników online: 0

. Łącznie użytkowników: 153,722
. Najnowszy użytkownik: ThomasRek
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ść.

05-09-2017 00:59
https://www.youtub
e.com/watch?v=fS0l
FNzl5uE

05-09-2017 00:58
https://www.youtub
e.com/watch?v=fS0l
FNzl5uE ZARABIANIE NA NECIE GRUBA FORSE BEZ INWESTYCIJ

30-08-2017 03:38
online payday loans direct lenders <a href="http://cashad
vances2017.com"
Chytry guaranteed payday loans</a> &lt;a href=&quot;http://c
ashadvances2017.co
m&quot;&gt; payda

07-08-2017 13:23

05-08-2017 00:33
forex trading online now blogspot search images http://anicinag.7m
.pl/qifyly/forex-m
ix-repinox-wikiped
ia-dictionary.html
forex omsk bird polandball philippines http://dandireli.7
m.pl/pylalyga

Licznik
30,422,087 unikalne wizyty