[DeStRo]

Per chi volesse le Encrypt/Decrypt dei packet, sto procendo a convertirle da c++ a vb.net, ma il lavoro è abbastanza complesso. Chiunque se ne intenda di .Net (soprattutto VB.Net) sarei felice se volesse partecipare al progetto.

Per adesso ho convertito:
-Encrypt/Decrypt Login Server;
-Get password;
-Decrypt Session ID;
-Decrypt Game Packet(sono riuscito quasi a completarla ed è per questo che ho bisogno del vostro aiuto)

[Ð3V!L]

Io potrei aiutarti a convertirlo in c# al limite..
se ti interessa inviami un pm ^^

[ernilos]

I have Decrypt Pssw in vb.net

Codice:

Function Decrypt(ByVal pswd As String) As String

        Dim Num As Integer = pswd.Length
        Dim EsPar As Boolean
        EsPar = IIf(Num Mod 2, False, True)
        Try
            If EsPar = True Then
                Dim nueva = pswd.Remove(0, 3)
                Dim Caracteres As New ArrayList
                Caracteres.AddRange(nueva.ToCharArray)
                Dim OffSetChar = ""
                For i = 0 To nueva.Length - 1 Step 2
                    OffSetChar &= Caracteres(i)
                Next
                Dim toHex As New ArrayList
                toHex.AddRange(OffSetChar.ToCharArray)
                Dim StrConverted = ""
                For S = 0 To OffSetChar.Length - 1 Step 2
                    StrConverted &= System.Convert.ToChar(System.Convert.ToUInt32(toHex(S) & toHex(S + 1), 16)).ToString()
                Next
                Return StrConverted
            Else
                Dim nueva = pswd.Remove(0, 4)
                Dim Caracteres As New ArrayList

                Caracteres.AddRange(nueva.ToCharArray)
                Dim OffSetChar = ""
                For i = 0 To nueva.Length - 1 Step 2
                    OffSetChar &= Caracteres(i)
                Next
  
                Dim toHex As New ArrayList
                toHex.AddRange(OffSetChar.ToCharArray)
                Dim StrConverted = ""
            
                For S = 0 To OffSetChar.Length - 1 Step 2
                    StrConverted &= System.Convert.ToChar(System.Convert.ToUInt32(toHex(S) & toHex(S + 1), 16)).ToString()
                Next

                Return StrConverted
            End If
        Catch ex As Exception
                Return "Error"
        End Try
    End Function

^^

[Ð3V!L]

he have:

-Encrypt/Decrypt Login Server;
-Get password;
-Decrypt Session ID;

he need:

- Gameserver Encrypt/Decrypt