[Pytanie] znaki

[Bum662]

Siemka

 

Jak podmienić znaki hmm.

Chcę zrobić program który szyfruje jak i może odszyfrować kody.

 

np:

 

znak "a" = "4", "b" = "y"

 

i tak szyfruje. Jak to zrobić?

[Sopelek997]

stringreplace()

[Phoenix_PL]

dwuwymiarowa tablica, w pierwszym wymiarze znaki 'oryginalne', w drugim te na które mają być zamienione, no i tak jak sopelek, stringreplace

[Bum662]

A jakaś porada?

Nigdy się tym nie bawiłem ;d

[Phoenix_PL]

Tablice masz w moim tucie, ale taki example ci dam:

Global $znaki[2][10] = [['q', 'w', 'e', 'r', 't', 'y', 'u', 'i', 'o', 'p'], ['a', 's', 'd', 'f', 'g', 'h', 'j', 'k', 'l', 'z']]

;tak dla przykładu 10 znaków

 

$tekst = "testowa wiadomość"

Local $nowy_tekst = "", $bufor = ""

 

;zagniezdzone pętle

For $i = 1 to StringLen($tekst) ;przelatuje przez tekst

$bufor = StringMid($tekst, $i, 1)

 

For $a = 0 to 9 ;przelatuje przez tablicę

If $bufor == $znaki[0][$a] Then $bufor = $znaki[1][$a]

Next

 

$nowy_tekst &= $bufor

Next

 

MsgBox(0, "Nowy tekst", $nowy_tekst)

Woot, widać da się i bez stringreplace...