كتابة برنامج لتشفير كلمات

اذا كنت لا تعرف.... سسأعدك بإعطائك هذه الكلمتين

encryption او تشفير استخدمها في محرك البحث الخاص بالمنتدى

دا تشفير وفك تشفير سريع من اخوك (مش انا اللى كاتب الكود)

Public Function Encrypt(StringToEncrypt As String, Optional AlphaEncoding As Boolean = False) As String
	On Error GoTo ErrorHandler
	Dim Char As String
	Encrypt = ""

	For i = 1 To Len(StringToEncrypt)
		Char = Asc(Mid(StringToEncrypt, i, 1))
		Encrypt = Encrypt & Len(Char) & Char
	Next i

	If AlphaEncoding Then

		StringToEncrypt = Encrypt
		Encrypt = ""


		For i = 1 To Len(StringToEncrypt)
			Encrypt = Encrypt & Chr(Mid(StringToEncrypt, i, 1) + 147)
		Next i
	End If
	Exit Function
ErrorHandler:
	Encrypt = "Error encrypting string"
End Function


Public Function Decrypt(StringToDecrypt As String, Optional AlphaDecoding As Boolean = False) As String
	On Error GoTo ErrorHandler
	Dim CharCode As String
	Dim CharPos As Integer
	Dim Char As String



	If AlphaDecoding Then

		Decrypt = StringToDecrypt
		StringToDecrypt = ""


		For i = 1 To Len(Decrypt)
			StringToDecrypt = StringToDecrypt & (Asc(Mid(Decrypt, i, 1)) - 147)
		Next i
	End If

	Decrypt = ""



	Do

		CharPos = Left(StringToDecrypt, 1)
		StringToDecrypt = Mid(StringToDecrypt, 2)
		CharCode = Left(StringToDecrypt, CharPos)
		StringToDecrypt = Mid(StringToDecrypt, Len(CharCode) + 1)
		Decrypt = Decrypt & Chr(CharCode)
	Loop Until StringToDecrypt = ""
	Exit Function
ErrorHandler:
	Decrypt = "Error decrypting string"
End Function

Private Sub Command1_Click()
Text2.Text = Encrypt(Text1.Text)
End Sub

Private Sub Command2_Click()
Text1.Text = Decrypt(Text2.Text)

End Sub

الكود محتاج 2 مربع نص و2 زرار