كيف اقرأ النص من التكست بوكس حرف حرف ,,

عزيزي msayed2004

تشكرات كثيرات ,,

وجعلها بموازين حسناتك

عرفت اشفر .. وجاري فك التشفير وانشاء برنامج يتشكف مفتاح التفير عن طريق التجربة ...

دعواتكم

الأخ الفاضل ... Loes

يمكنك تجربة:

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

Private Function GetEncryptText(Txt As String) As String
	Dim l As Integer
	Dim n As Integer
	Dim EncTxt As String
	Dim ch As String

	l = Len(Txt)
	EncTxt = ""

	For n = 1 To l
		ch = Mid$(Txt, n, 1)
		' ch = EncCaeser(Asc(ch)) ' Do your Encryption Algorithm
		EncTxt = EncTxt + ch
	Next n
	GetEncryptText = EncTxt
End Function
' أو أستخدم
Private Function GetEncryptData(Txt As String) As Byte()
	Dim l As Integer
	Dim n As Integer
	Dim EncData() As Byte
	Dim ch As Byte

	l = Len(Txt)
	ReDim EncData(l - 1)

	For n = 1 To l
		ch = Asc(Mid$(Txt, n, 1))
		' ch = EncCaeser(ch) ' Do your Encryption Algorithm
		EncData(n - 1) = ch
	Next n
	GetEncryptData = EncData
End Function

شكراً

Option Explicit

Private Sub Form_Load()
Me.AutoRedraw = True

Dim MyArray() As Byte
Dim L As Long

MyArray = StringToByteArray("Welcome")

For L = 0 To UBound(MyArray)
	Print Chr$(MyArray(L))
Next
End Sub

Private Function StringToByteArray(Text As String) As Byte()
	StringToByteArray = StrConv(Text, vbFromUnicode)
End Function

الاخ Loes

Simple_Encryption_and_Decryption_Function.rar