Programowanie w języku Delphi » Gotowce

B. proste kodowanie tekstu II

Artykuł ten (mój pierwszy) powstał, ponieważ przykład z arta J-23 (http://4programmers.net/article.php?id=605) nie działa. A więc do dzieła.

Zasada jest taka:
1. Wyciągamy kod ASCII z danego znaku
2. do tego kodu dodajemy/odejmujemy jakąś liczbę - powstaje inny kod ASCII , więc "koduje" inny znak klawiatury.
3. Odkodowujemy spowrotem kod ASCII do normalnego znaku.
4. Zapisujemy spowrotem do pliku tekstowego.



procedure TForm1.Button1Click(Sender: TObject);
var
n:integer;            //do pętli
ascii:integer;       //zmianna kodu ASCII
pojedynczyznak : char;  //pojedynczy znak
begin
for n:=1 to length(Memo1.text) do   //początek pętli
begin
pojedynczyznak:=Memo1.Text[n];    //wyciągamy po kolei każdy znak z tekstu
ascii:=ord(pojedynczyznak);    // wyciągamy jego kod ASCII
ascii:= ascii + 11;                   //do ASCII dodajemu/odejmujemy jakąś liczbę
pojedynczyznak := chr(ascii);   //odkodowujemy ASCII - mamy nowy znak
Memo2.Text:=Memo2.Text + pojedynczyznak;  //zapisujemy do pliku pojedyńczo każdy znak
 
end;
end;


Jeżeli chcemy odkodowac - postępujemy analogicznie - tylko wstawiamy oczywiście przeciwny znak przy zmianie kodu ASCII (czyli w przyp. przykładu: ascii:= ascii -11;)

Oczywiście nie należy używać tego do ważnych tekstów itp. ponieważ jest to baardzo przymitywny sposób. Ale zawsze może się przydać :D


mam nadzieje ze wsyscy zrozumieli :)

pozdrawiam
konradcze

11 komentarzy

Smuga 2009-05-30 12:42

Mi ten gotowiec daje 6 z informatyki w 1-wszej gimnazjum xD ;)! Dziękuję!!!
Dodam jeszcze, że jestem "zwykłym, szarym użytkownikiem", ale to rozumiem ;)! Więc jest to baaaaaaaaaardzo proste xD!

Demonical Monk 2008-01-16 10:41

Wiesz... Gadu-Gadu wymyśliło to już klika lat temu. I dalej ten system stoi, każda litera ma swój realny odpowiednik w ich kodowaniu -.- To już nie wiem co jest łatwiejsze do rozkodowania twój skrypt czy pseudo implementacja zabezpieczenia w GG :P

Stereo 2007-09-28 18:03

ascii:= ascii + 11+n Wtedy bedzie "trudniejszy" do rozkodowania

TurboXT 2006-07-30 14:32

Ale nie każdy zna kod ASCII. Znają go tylko ci, którzy używają komputera nie tylko do gier i tworzenia prac w Wordzie. A takich jest niewiele... :P

mr.hex 2005-03-18 15:10

az na zbyt prosty... i nie tylko zwykly uzytkownik ale laik by sie z tym uporal, wystarczy przeciez tylko znajomosc ASCII,kartka + ołowek

konradcze 2005-03-17 17:34

pisze pzeceiz ze \"Bardzo prosty sopsób...\" więc jest baardzo prosty :D a zwykły szary użytkownik i tak tego nie rozszyfruje.

Wolverine 2005-03-17 15:28

juz mogles jakies xorowanie chociaz zrobic :/ albo z\"not\"owac :D

ŁF 2005-03-17 13:45

ale jest dział gotowce. to się na art nie nadaje.

Ludomir 2005-03-16 22:47

to raczej do wskazówek niż do artykułów

konradcze 2005-03-17 07:54

nie ma działu \'wskazówki\' :P :D

SebaZ 2005-03-18 18:01

i czasami kalkulator dla wygody :)