Metoda Xorowania







Metoda Xorowania

Metoda Xorowania służy do szyfrowania danych, aby zaszyfrować tą metodą dane musi
być także hasło i gdy później chcemy odkodować nasze dane które zakodowaliśmy
musimy mieć hasło przez które zakodowaliśmy nasze dane, gdyż jeśli hasło nie
będzie takie same przez które zakodowaliśmy dane to te dane znowu zostaną zakodowane i
tak w kółko. Teraz może mały przykładzik, deklarujemy 3 zmienne a, b i c. Zmienna a
będzie przechowywać zakodowane dane, zmienna b dane które chcemy zakodować i zmienna c
hasło przez które szyfrujemy nasze dane. Na początku zajmiemy się szyfrowaniem liczb,
przykładzik masz niżej.

Dim a, b, c ' deklaracja zmiennych
b = 10 'dane do zaszyfrowania
c = 2 'hasło przez które szyfrujemy dane
a = b Xor c ' szyfrowanie danych przez hasło
MsgBox a ' wyświetlenie zakodowanych danych

Przypisaliśmy zmiennej b wartość 10 i zmiennej c wartość 2, zmienna c  jest
hasłem przez które szyfrujemy nasze dane. Teraz uruchamiamy nasz program, powinien się
wyświetlić komunikat z liczbą 8 ponieważ 10 xor 2 = 8. Aby teraz to odszyfrować
trzeba zaszyfrowane dane xorować przez hasło czyli a xor c, najlepiej może
prze4dstawię to na przykładzie.

Dim a, b, c 'deklaracja zmiennych
a = 8 ' zakodowane dane
c = 2 'hasło przez które kodowaliśmy nasz dane
b = a Xor c 'szyfrowanie zakodowanych danych przez hasło, czyli odszyfrowanie
MsgBox b 'wyświetleni danych, które szyfrowaliśmy

Teraz zajmiemy się szyfrowaniem  danych tekstowych, aby zaszyfrować dane
tekstowe trzeba pozamieniać litery na liczby, myślę że najlepszym sposobem jest
zamienić je na odpowiadający im znak kodu ASCII, a później żeby odszyfrować
zamienić kod ASCII na odpowiadający im znaki. Aby zmienić znak na kod ASCII trzeba
użyć funkcji Asc (jest ona opisana w w tym numerze VbMaga w tekście Instrukcje) czyli
teraz może jakiś mały przykładzik.

Dim x ' deklaracja zmiennej x
x = Asc("V") ' przypisanie zmiennej x kodu ASCII znaku V
MsgBox x ' wyświetlenie kodu ASCII

Teraz żeby zmienić kod ASCII na odpowiadający mu znak należy użyć funkcji Chr
(jest ona także opisana w tekście Instrukcje).

Dim x ' deklaracja zmiennej x
x = Chr(86) 'przypisanie zmiennej x znaku odpowiadającemu kodowi ASCII
MsgBox x ' wyświetlenie znaku

Teraz przykład który będzie zmieniał znak na kod ASCII i go szyfrował przez drugi
znak zamieniony także na kod ASCII. Dane w tym przykładzie będą miały tylko 1 znak i
hasło również jeden, jeżeli będziesz to chciał zrobić dla większej liczby znaków
to użyj do tego jakieś pętli, najlepiej For i=1 to x, zrób tak aby wcześniej do
zmiennej x została przypisana długość danych, i xoruj pokoleji każdy znak przez
każdy albo jak tam chcesz, dobra teraz może ten przykładzik.

Dim a, b, c ' deklaracja zmiennych a, b i c
a = "V" 'przypisanie zmiennej a znaku V
b = "B" 'przypisanie zmiennej b znaku B
c = (Asc(a)) Xor (Asc(b))
'przypisanie zmiennej c kodu ASCII, który powstał w wyniku zmiany znaku V na kod i
'został xornięty przez drugi kod, czyli kod znaku B
MsgBox c ' wyświetlenie xorniętych danych w postaci kodu ASCII
 

Jeśli bchcesz odszyfrować teraz te dane to zrób to w podobny sposób jak na
poprzednich przykładach, czyli dane_zaszyfrowane Xor hasło, a póżniej zamień
spowrotem na znak za pomocą Chr.

Grzegorz Sarwa
[e-mail]