How to decrypt

bulutangkis

Hi All,

This command is encrypt log, and then how to decrypt that. Thanks.

Dim VarXor As String * 1

VarXor = 80


For n = 1 To Len(sparameter)
sMsg = Mid(sparameter, n, 1)
PResult = Asc(sMsg) - 25
If PResult < 0 Then
PResult = PResult + 256
End If
PEncrypt = PResult Xor VarXor
x = String(2 - Len(Hex(PEncrypt)), "0") & Hex(PEncrypt)
sResult = sResult & x
Next
Encrypt = sResult