dim SifreliVeri as String
dim SifresizVeri as String
Dim DataTmp
Dim DataTmp1
Dim EncCnt As Long
Dim CrtCnt As Long
Dim Ad As Long
Public Function Crt(Indata, OutData)
DataTmp = ""
CrtCnt = 0
While Not CrtCnt = Len(Indata)
CrtCnt = CrtCnt + 1
For Ad = 1 To (5 - Len(Str(Asc(Mid(Indata, CrtCnt, 1)) + 1)))
DataTmp = DataTmp & "0"
Next
DataTmp = DataTmp & Asc(Mid(Indata, CrtCnt, 1)) + 1
Wend
OutData = DataTmp
End Function
Public Function Enc(Indata, OutData)
DataTmp1 = ""
EncCnt = 1
While Not EncCnt - 1 = Len(Indata)
DataTmp1 = DataTmp1 & Chr(Mid(Indata, EncCnt, 4) - 1)
EncCnt = EncCnt + 4
Wend
OutData = DataTmp1
End Function
Private Sub Form_Load()
Crt "ibrahim gündüz",SifreliVeri
MsgBox SifreliVeri
Enc SifreliVeri,SifresizVeri
MsgBox SifresizVeri
End Sub