Kod:
rivate Function Cifrar(text As String, num As Integer) As String
Dim i As Integer
Dim aux As String
aux = ""
For i = 1 To Len(text)
If Asc(Mid(text, i, 1)) Mod 2 = 0 Then
If num Mod 2 = 0 Then
aux = aux & Chr(Asc(Mid(text, i, 1)) + num)
Else
aux = aux & Chr(Asc(Mid(text, i, 1)) - num)
End If
Else
If num Mod 2 = 0 Then
aux = aux & Chr(Asc(Mid(text, i, 1)) - num)
Else
aux = aux & Chr(Asc(Mid(text, i, 1)) + num)
End If
End If
Next i
Cifrar = aux
End Function
Private Function DescrifradoAX(text As String, num As Integer) As String
Dim i As Integer
Dim aux As String
aux = ""
For i = 1 To Len(text)
If Asc(Mid(text, i, 1)) Mod 2 = 0 Then
aux = aux & Chr(Asc(Mid(text, i, 1)) - num)
Else
aux = aux & Chr(Asc(Mid(text, i, 1)) + num)
End If
Next
DescrifradoAX = aux
End Function
Neler yapabilirim diyorsunuz şimdi.
Yapılabilecekler:
Stringler şifrelenebilir.
mesela "Network-tr" yazısını
Kod:
Dim Sifreli As String
Sifreli = Cifrar("Network-tr" ,5) 'olarak yaptıgmız zaman
Sonuc:
'Sifreli = "Ijo|tmp2om" 'olarak karşımıza çıkıyor bunu geri çözmek için.
Dim Cozulen As String
Cozulen = DescrifradoAX(Sifreli, 5)
'Cozulen = "Network-tr" oluyor