Hacking  
  Październik 22 2018 14:50:30  
 
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: 6

. Użytkowników online: 0

. Łącznie użytkowników: 154,513
. Najnowszy użytkownik: Balcon
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ść.

15-10-2018 23:05
Cześć. Jest tu ktoś? Zapraszam na moją nową stronę: http://vx7.pl/

06-04-2018 22:35
http://piciu1902.c
t8.pl/

29-03-2018 00:22
1.1. Гро
мад
ськ
а орг
ані
з&#1

24-03-2018 16:26
guest test post bbcode <a href="http://guestt
esttststs.com/"
Chytryhtml</a> http://guesttestts
tsts.com/ simple

24-03-2018 14:05
potawatomi casino <a href="https://onlin
ecasinoplay24.com&q
uot Chytryfree casino slots online</a> <a href=" https://onlinecasi
noplay24

Licznik
35,573,095 unikalne wizyty