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