staticiation

Bu kodlarla istediğimiz text dosyasını şifreleyip geri döndürebiliriz.Türkçe karakterlerde dahil.

VB Code:

Private Function Convert(cString As String) As String

For cCode = 1 To Len(cString)
Conv = Conv + (100 / Len(cString)) 'Statusbar
Image1.Width = (Picture1.Width / Len(cString)) * Conv * (Len(cString) / 100) 'Statusbar
Convert = Convert + Chr(255 - Asc(Mid(cString, CInt(cCode), 1)))
Next cCode
Form_Load

End Function


Private Sub Command1_Click()
Text2 = Convert(Text1)
End Sub

Private Sub Command2_Click()
Text1 = Text2
Text2 = ""
End Sub

Private Sub Form_Load()
Image1.Width = 0 'Statusbar
End Sub

kaynak:vbturk.net

__________________
...................................