Guida Creare Encoder / Decoder Personalizzato (linguaggio creato) [vb.net]

[KevinGenoves3]

Ecco un'altra utilissima guida, a mio parere, creata INTERAMENTE da me, comprese le sources.

E' tutto basato sul metodo REPLACE, e su alcune variabili che fungono da 'trasportatrici' di memoria.

Allora, inizio spiegandovi i nomi che ho dato ai componenti:

Form1 = Form1
1^ TextBox = testo
2^ Textbox = encode
Button1 = Button 1
Button2 = Button2

Ecco il sorgente che ho utilizzato e che ora vi spiego:

Public Class Form1
Dim cript As String
Dim decript As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
cript = testo.Text
'minuscole
cript = Replace(cript, "a", "•")
cript = Replace(cript, "b", "◘")
cript = Replace(cript, "c", "@")
cript = Replace(cript, "d", ";")
cript = Replace(cript, "e", "#")
cript = Replace(cript, "f", "█")
cript = Replace(cript, "g", "±")
cript = Replace(cript, "h", "þ")
cript = Replace(cript, "i", "*§*")
cript = Replace(cript, "j", "+")
cript = Replace(cript, "k", "ç§*")
cript = Replace(cript, "l", "ç§")
cript = Replace(cript, "m", "&%")
cript = Replace(cript, "n", "Ø")
cript = Replace(cript, "o", "▲")
cript = Replace(cript, "p", "Ê")
cript = Replace(cript, "q", "♪")
cript = Replace(cript, "r", "°§°")
cript = Replace(cript, "s", "³")
cript = Replace(cript, "t", "é§")
cript = Replace(cript, "u", "¦")
cript = Replace(cript, "v", "‼")
cript = Replace(cript, "w", "*")
cript = Replace(cript, "x", "í")
cript = Replace(cript, "y", "♠")
cript = Replace(cript, "z", "◙")
'MAIUSCOLE
cript = Replace(cript, "A", "•")
cript = Replace(cript, "B", "◘")
cript = Replace(cript, "C", "@")
cript = Replace(cript, "D", ";")
cript = Replace(cript, "E", "#")
cript = Replace(cript, "F", "█")
cript = Replace(cript, "G", "±")
cript = Replace(cript, "H", "þ")
cript = Replace(cript, "I", "*§*")
cript = Replace(cript, "J", "+")
cript = Replace(cript, "K", "ç§*")
cript = Replace(cript, "L", "ç§")
cript = Replace(cript, "M", "&%")
cript = Replace(cript, "N", "Ø")
cript = Replace(cript, "O", "▲")
cript = Replace(cript, "P", "Ê")
cript = Replace(cript, "Q", "♪")
cript = Replace(cript, "R", "°§°")
cript = Replace(cript, "S", "³")
cript = Replace(cript, "T", "é§")
cript = Replace(cript, "U", "¦")
cript = Replace(cript, "V", "‼")
cript = Replace(cript, "W", "*")
cript = Replace(cript, "X", "í")
cript = Replace(cript, "Y", "♠")
cript = Replace(cript, "Z", "◙")

encode.Text = cript

testo.Text = ""
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
decript = encode.Text
'universale
decript = Replace(decript, "•", "a")
decript = Replace(decript, "◘", "b")
decript = Replace(decript, "@", "c")
decript = Replace(decript, ";", "d")
decript = Replace(decript, "#", "e")
decript = Replace(decript, "█", "f")
decript = Replace(decript, "±", "g")
decript = Replace(decript, "þ", "h")
decript = Replace(decript, "*§*", "i")
decript = Replace(decript, "+", "j")
decript = Replace(decript, "ç§*", "k")
decript = Replace(decript, "ç§", "l")
decript = Replace(decript, "&%", "m")
decript = Replace(decript, "Ø", "n")
decript = Replace(decript, "▲", "o")
decript = Replace(decript, "Ê", "p")
decript = Replace(decript, "♪", "q")
decript = Replace(decript, "°§°", "r")
decript = Replace(decript, "³", "s")
decript = Replace(decript, "é§", "t")
decript = Replace(decript, "¦", "u")
decript = Replace(decript, "‼", "v")
decript = Replace(decript, "*", "w")
decript = Replace(decript, "í", "x")
decript = Replace(decript, "♠", "y")
decript = Replace(decript, "◙", "z")

testo.Text = decript

encode.Text = ""
End Sub
End Class

cript e decript sono VARIABILI.

Essi servono a trasportare i dati della criptazione e a fare da 'container' per i dati da convertire.
Replace (fonte, carattere, sostituto) è un metodo da usare appunto per la conversione di stringhe.

E' tutto semplicissimo.
Esempio:

A=•
a=•
Perciò nella decriptazione non avremo distinzione tra maiuscole e minuscole (non avevo voglia di usa troppi caratteri univoci)

Ciao! Come Va? = @*§*•▲! @▲&%# ‼•?

Screen:

Se volete l'eseguibile d'esempio ditemelo e uppo ^_^

​

 

[Kikko22]

Ottima guida !!

Sarà molto utile !!

 

[xBuMbIx]

Bravo

 

[KevinGenoves3]

Grazie ^^

 

[fran]

bravo grazie molto utile

 

[Mirko185]

Utile,Bravo! ^^

 

[Lik]

Bravo K ^^

 

[KevinGenoves3]

Bravo K ^^

Grazie LiKappa

 

[System32]

Di essere utile lo è, non tanto per il programma ma molto per il codice, si deve CAPIRE cosa si sta usando, di essere chiara lo è, quindi :

Bravo ;)

Ps : Uppa l'exe

 

[KevinGenoves3]

grazie system, uppo uppo.
--------------- AGGIUNTA AL POST ---------------
ops non lo ho più

dopo lo rifaccio

 

[RickyTheBest]

splendido testo
--------------- AGGIUNTA AL POST ---------------
a me da 6 errori