Cifrar Crypto Decrypto Algoritması

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

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