Hacking  
  Listopad 24 2017 08:30:41  
 
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 » Kodowanie tekstu
Kodowanie tekstu

Kodowanie tekstu na podstawie 3 roznych procedur




Chcialem wam przedstawic kody do kodowania tekstu. Uwazam ze sa one dosyc fajne i moga sie przydac :) a wiec do dziela :)

Pierwsza metoda to kodowanie za pomoca ASCII

procedure TForm1.Button1Click(Sender: TObject);
var
n:integer; //do pętli
ascii:integer; //zmianna kodu ASCII
z : char; //pojedynczy znak
x : integer; // nasza liczba kodujaca
wynik : integer;// wynik mnozenia naszej liczby
begin
x := strtoint(edit1.Text); // Przypisz zmienna do // edit1
wynik := x * 6; // wymnoz liczbe kodujaca przez 6
for n:=1 to length(Memo1.text) do //początek //pętli
begin
z:=Memo1.Text[n]; //wyciągamy po kolei każdy //znak z tekstu
ascii:=ord(z); // wyciągamy jego kod ASCII
ascii:= ascii + wynik; //do ASCII //dodajemu/odejmujemy jakąś liczbę
z := chr(ascii); //odkodowujemy ASCII - mamy //nowy znak
Memo2.Text:=Memo2.Text + z; //zapisujemy do pliku pojedyńczo każdy znak
end;

to koder :) podajemy liczbe w edit1 i na podstawie jej zostaje zakodowany tekst.

A teraz dekoder :)


procedure TForm1.Button2Click(Sender: TObject);
var
n:integer; //do pętli
ascii:integer; //zmianna kodu ASCII
z : char; //pojedynczy znak
x : integer; // nasza liczba kodujaca
wynik : integer; // wynik mnozenia naszej //liczby kodujacej
begin
x := strtoint(edit1.Text); // Przypisz zmienna do //edit1
wynik := x * 6;// wymnoz liczbe kodujaca przez 6
for n:=1 to length(Memo2.text) do //początek pętli
begin
z:=Memo2.Text[n]; //wyciągamy po kolei //każdy znak z tekstu
ascii:=ord(z); // wyciągamy jego kod ASCII
ascii:= ascii - wynik; //do ASCII //dodajemu/odejmujemy jakąś liczbę
z := chr(ascii); //odkodowujemy ASCII - mamy //nowy znak
Memo1.Text:=Memo1.Text + z; //zapisujemy do pliku pojedyńczo każdy znak
end;
end;

dziala to w odwrotna strone jak koder :)

A teraz przedstawie inna metode kodowania :)


procedure TForm1.Button3Click(Sender: TObject);
var
tekst: String; //zmienna przechowująca //kodowany tekst
i, j: Integer;
liter: Integer; //ilość znaków w linii
klucz: integer; //klucz
kod: Integer; //kod
x: Integer; //ilość linii
begin
klucz := strtoint(edit2.Text); // przypisz klucz //do edit2
Memo2.Clear; //kasowanie zawartości Memo2
x:=Memo1.Lines.Count; //iloścć wierszy w Memo1
for i:=0 to x-1 do
begin
liter:=Length(Memo1.Lines[i]); //ilość znaków w //danej linii
SetLength(tekst, liter); //ustalenie długości //zmiennej tekst
if liter>49 then kod:=49 //ustalenie //wartości zmiennej kod
else kod:=liter;
for j:=1 to liter do tekst[j]:=chr(ord(Memo1.Lines[i][j])+klucz-kod); //kodowanie
Memo2.Lines.Add(tekst); //dodanie do //Memo2 zakodowanej linii
end;

wazna jest tu petla:

for j:=1 to liter do tekst[j]:=chr(ord(Memo1.Lines[i][j])+klucz-kod);

aby to odkodowac zamien ta petle na ta:

for j:=1 to liter do tekst[j]:=chr(ord(Memo2.Lines[i][j])-klucz+kod);


Widzimy tutaj inne znaki przy zmiennej "klucz" i "kod".


No i przedstawie jeszcze metode xorowania na podstawie podane tekstu w memo :)


function Szyfruj(sString, Password : String) : String;
var
I : Integer;
x : Integer;
begin
x := 0;
Result := sString; // przypisz wartosc poczatkowa
for I := 1 to Length(sString) do // wykonuj dla kazdej litery osobno
begin
{
Dla kazdego osobnego znaku zamieniaj na wartosc liczbowa, a nastepnie
xoruj z kazda litera hasla - powstaje wowczas unikalna kombinacja.
}
Result[i] := Chr(Ord(sString[i]) xor Ord(Password[x]));
Inc(x); // wieksz licznik - kolejne slowo hasla
{ Jezeli licznik przekroczy dlugosc hasla - wyzeruj }
if x > Length(Password) then x := 0;
end;
end;

jest to funkcja ktora koduje tekst a teraz pokaze ja te funkcje wykorzystac :)

procedure TForm1.Button5Click(Sender: TObject);
var
x:string;
z : integer;
begin
z := strtoint(edit3.Text);
x:=szyfruj(memo1.text,edit3.text); { funkcja szyfruj
koduje tekst znajdujacy sie w memo1 za pomoca kodu wpisanego w
edit3}

memo2.Lines.Add(x)

end;

Podany tekst w memo jest kodowany na podstawie klucza podanego w edit :)

I to wszystko :) Licze na komentarze co sie podobalo a co nie? :) pozdrawiam :)
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,489 unikalne wizyty