locked
How to decrypt RRS feed

  • Question

  • Hi All,

    How to decrypt for this command :

        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
    Thursday, September 3, 2009 4:31 AM

Answers

  • Hi,

    This forum is for Vb.Net questions only.

    It looks to me like you are using VB6 or an earlier version as you are using MID directly in the above code.

    If you are using VB1, VB2, VB3, VB4, VB5 or VB6 then please use this forum instead.>>

    http://www.programmersheaven.com/mb/VBasic/Board.aspx


    Regards,

    John
    • Proposed as answer by Cor Ligthert Thursday, September 3, 2009 8:49 AM
    • Marked as answer by Jeff Shan Monday, September 7, 2009 2:37 AM
    Thursday, September 3, 2009 7:49 AM