تغییر حروف وارد شده

[Coocala 35]

سلام ، میخوام وقتی کاربر یه متن رو وارد کرد، حروفش با چیزایی که من تعریف کردم تغییر کنه، 

 

مثلا: 

A = @
B = #
C = $
D = %
....

 

[softir 459]

در هم اکنون، rayanoos گفته است :

سلام ، میخوام وقتی کاربر یه متن رو وارد کرد، حروفش با چیزایی که من تعریف کردم تغییر کنه، 

 

مثلا: 

A = @
B = #
C = $
D = %
....

 

بفرما براتون ساختم اینم + سورس

http://s8.picofile.com/file/8275907150/Coding_Decoding.zip.html

Sub coding_Click
	
	EditText1.Text = EditText1.Text.Replace("a","!")
	EditText1.Text = EditText1.Text.Replace("b","@")
	EditText1.Text = EditText1.Text.Replace("c","#")
	EditText1.Text = EditText1.Text.Replace("d","$")
	EditText1.Text = EditText1.Text.Replace("e","%")
	EditText1.Text = EditText1.Text.Replace("f","^")
	EditText1.Text = EditText1.Text.Replace("g","&")
	EditText1.Text = EditText1.Text.Replace("h","*")
	EditText1.Text = EditText1.Text.Replace("i","(")
	EditText1.Text = EditText1.Text.Replace("g",")")
	EditText1.Text = EditText1.Text.Replace("k","-")
	EditText1.Text = EditText1.Text.Replace("l","_")
	EditText1.Text = EditText1.Text.Replace("m","=")
	EditText1.Text = EditText1.Text.Replace("n","+")
	EditText1.Text = EditText1.Text.Replace("o","|")
	EditText1.Text = EditText1.Text.Replace("p","\")
	EditText1.Text = EditText1.Text.Replace("q","{")
	EditText1.Text = EditText1.Text.Replace("r","[")
	EditText1.Text = EditText1.Text.Replace("s","}")
	EditText1.Text = EditText1.Text.Replace("t","]")
	EditText1.Text = EditText1.Text.Replace("y",";")
	EditText1.Text = EditText1.Text.Replace("v",":")
	EditText1.Text = EditText1.Text.Replace("w","""")
	EditText1.Text = EditText1.Text.Replace("x","'")
	EditText1.Text = EditText1.Text.Replace("y",",")
	EditText1.Text = EditText1.Text.Replace("z",".")
	
End Sub

Sub decoding_Click
	EditText1.Text = EditText1.Text.Replace("!","a")
	EditText1.Text = EditText1.Text.Replace("@","b")
	EditText1.Text = EditText1.Text.Replace("#","c")
	EditText1.Text = EditText1.Text.Replace("$","d")
	EditText1.Text = EditText1.Text.Replace("%","e")
	EditText1.Text = EditText1.Text.Replace("^","f")
	EditText1.Text = EditText1.Text.Replace("&","g")
	EditText1.Text = EditText1.Text.Replace("*","h")
	EditText1.Text = EditText1.Text.Replace("(","i")
	EditText1.Text = EditText1.Text.Replace(")","g")
	EditText1.Text = EditText1.Text.Replace("-","k")
	EditText1.Text = EditText1.Text.Replace("_","l")
	EditText1.Text = EditText1.Text.Replace("=","m")
	EditText1.Text = EditText1.Text.Replace("+","n")
	EditText1.Text = EditText1.Text.Replace("|","o")
	EditText1.Text = EditText1.Text.Replace("\","p")
	EditText1.Text = EditText1.Text.Replace("{","q")
	EditText1.Text = EditText1.Text.Replace("[","r")
	EditText1.Text = EditText1.Text.Replace("}","s")
	EditText1.Text = EditText1.Text.Replace("]","t")
	EditText1.Text = EditText1.Text.Replace(";","u")
	EditText1.Text = EditText1.Text.Replace(":","v")
	EditText1.Text = EditText1.Text.Replace("""","w")
	EditText1.Text = EditText1.Text.Replace("'","x")
	EditText1.Text = EditText1.Text.Replace(",","y")
	EditText1.Text = EditText1.Text.Replace(".","z")
End Sub

 

[امین مهدی نژاد 2,142]

کد زیر هم مانند کد دوستمون softir بوده ولی کوتاه تر.

Sub encode(str As String)As String
	Dim h1 As String="abcdefghijklmnopqrstuvwxyz"
	Dim h2 As String="~!@#$%^&*()_+-=|\?>,<':;]["
	For i=0 To h1.Length-1
		str=str.Replace(h1.CharAt(i),h2.CharAt(i))
	Next
	Return str	
End Sub

Sub decode(str As String)As String
	Dim h1 As String="abcdefghijklmnopqrstuvwxyz"
	Dim h2 As String="~!@#$%^&*()_+-=|\?>,<':;]["
	For i=0 To h1.Length-1
		str=str.Replace(h1.CharAt(i),h2.CharAt(i))
	Next	
	Return str
End Sub

«موفق باشید.»