PSERVER UDF - Versione stampabile

Codice:
Func DecryptLoginPacket($str)

    Local $decrypted_string = "",$temp

    Local $splited = StringToASCIIArray($str,0,StringLen($str),1)

    For $i = 0 To UBound($splited) - 1

        $temp=BitXOR($splited[$i] - 0xF, 0xC3)

        If $temp<0 Then $temp+=256

        $decrypted_string &= Chr($temp)

    Next



    Return $decrypted_string

EndFunc   ;==>DecryptLoginPacket



Func EncryptLoginPacket($str)

    Local $decrypted_string = "",$temp

    Local $splited = StringToASCIIArray($str,0,StringLen($str),1)



    For $i = 0 To UBound($splited) - 1

        $temp=$splited[$i] + 0xF

        If $temp>256 Then $temp-=256

        $decrypted_string &= Chr($temp)

    Next



    Return $decrypted_string & Chr(0x19)

EndFunc   ;==>EncryptLoginPacket



Func GetPasswordString($str)



    Local $decrypted_string

    Local $count = 1

    Local $convert=""



    If Mod(StringLen($str), 2)=0 Then

        $str = StringTrimLeft($str, 3)

    Else

        $str = StringTrimLeft($str, 4)

    EndIf



    Local $splited = StringToASCIIArray($str,0,StringLen($str),1)



    for $i=0 To UBound($splited)-1 Step 2

        $convert &= chr($splited[$i])

        if Mod($count,2)=0 Then

            $convert &= ' '

        EndIf

        $count+=1

    Next



    $splited = StringToASCIIArray($convert,0,StringLen($convert),1)



    for $i=0 To UBound($splited)-1

        $decrypted_string&=hex($splited[$i])

    Next



    return $decrypted_string

EndFunc





Func DecryptSessionPacket($str)

    Local $encrypted_string = "", $firstbyte, $secondbyte



    Local $splited = StringToASCIIArray($str,0,StringLen($str),1)



    For $i = 1 To UBound($splited) - 1

        If ($splited[$i] == 0xE) Then Return $encrypted_string



        $firstbyte = $splited[$i] - 0xF;

        $secondbyte = $firstbyte

        $secondbyte = BitAND($secondbyte, 0xF0)

        $firstbyte = $firstbyte - $secondbyte

        $secondbyte = BitShift($secondbyte, 0x4)



        If $secondbyte = 0 Then

            $encrypted_string &= Chr(0)

        ElseIf $secondbyte = 1 Then

            $encrypted_string &= ' '

        ElseIf $secondbyte = 2 Then

            $encrypted_string &= '-'

        ElseIf $secondbyte = 3 Then

            $encrypted_string &= '.'

        Else

            $temp=0x2C +$secondbyte

            If $temp>256 Then $temp-=256

            $secondbyte = Chr($temp)

            $encrypted_string &= $secondbyte

        EndIf



        If $firstbyte = 0 Then

            $encrypted_string &= Chr(0)

        ElseIf $firstbyte = 1 Then

            $encrypted_string &= ' '

        ElseIf $firstbyte = 2 Then

            $encrypted_string &= '-'

        ElseIf $firstbyte = 3 Then

            $encrypted_string &= '.'

        Else

            $temp=0x2C +$firstbyte

            If $temp>256 Then $temp-=256

            $firstbyte = Chr($temp)

            $encrypted_string &= $firstbyte;

        EndIf

    Next



    Return $encrypted_string

EndFunc   ;==>DecryptSessionPacket





Func DecryptGamePacket($session_id, $str, $length)

    Local $encrypted_string = "", $firstbyte, $highbyte

    Local $session_key = BitAND($session_id, 0xFF)

    Local $session_number = BitShift($session_id, 6)

    $session_number = BitAND($session_number, 0xFF)

    $session_number = BitAND($session_number, 0x80000003)



    $splited = StringToASCIIArray($str,0,StringLen($str),1)



    If $session_number = 0 Then

        For $i = 0 To $length - 1

            $firstbyte = $session_key + 0x40

            $highbyte = $splited[$i] - $firstbyte

            If $highbyte>256 Then $highbyte-=256

            If $highbyte<0 Then $highbyte+=256

            $encrypted_string &= Chr($highbyte)

        Next

    ElseIf $session_number = 1 Then

        For $i = 0 To $length - 1

            $firstbyte = $session_key + 0x40

            $highbyte = $splited[$i] + $firstbyte

            If $highbyte>256 Then $highbyte-=256

            If $highbyte<0 Then $highbyte+=256

            $encrypted_string &= Chr($highbyte)

        Next

    ElseIf $session_number = 2 Then

        For $i = 0 To $length - 1

            $firstbyte = $session_key + 0x40

            $highbyte = BitXOR($splited[$i] - $firstbyte, 0xC3)

            If $highbyte>256 Then $highbyte-=256

            If $highbyte<0 Then $highbyte+=256

            $encrypted_string &= Chr($highbyte)

        Next

    ElseIf $session_number = 3 Then

        For $i = 0 To $length - 1

            $firstbyte = $session_key + 0x40

            $highbyte = $splited[$i] + $firstbyte

            If $highbyte>256 Then $highbyte-=256

            If $highbyte<0 Then $highbyte+=256

            $encrypted_string &= Chr($highbyte)

        Next

    Else

        $encrypted_string &= Chr(0xF)

    EndIf



    Local $temp = StringSplit($encrypted_string, Chr(0xFF), 3)

    Local $save = ""



    For $i = 0 To UBound($temp) - 1

        $save &= DecryptGamePacket2($temp[$i])

        $save &= Chr(0xFF)

    Next



    Return $save

EndFunc   ;==>DecryptGamePacket



Func DecryptGamePacket2($str)

    Local $decrypted_string = "", $len, $i = 0, $highbyte, $lowbyte

    Local $table[13] = [' ', '-', '.', '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', @LF]

    Local $count = 0



    $splited = StringToASCIIArray($str,0,StringLen($str),1)



    While $count < UBound($splited)

        If ($splited[$count] <= 0x7A) Then

            $len = $splited[$count]



            For $i2 = 0 To $len - 1

                $count += 1

                $decrypted_string &= Chr(BitXOR($splited[$count], 0xFF))

            Next

            $count += 1

        Else

            $len = $splited[$count]

            $len = BitAND($len, 0x7F)



            While $i < $len

                $count += 1



                $highbyte = $splited[$count]

                $highbyte = BitAND($highbyte, 0xF0)

                $highbyte = BitShift($highbyte, 0x4)



                $lowbyte = $splited[$count]

                $lowbyte = BitAND($lowbyte, 0x0F)



                If ($highbyte >0 0x0 And $highbyte < 14) Then

                    $decrypted_string &= $table[$highbyte - 1]

                    $i += 1

                EndIf



                If ($lowbyte >0 And $lowbyte < 14) Then

                    $decrypted_string &= $table[$lowbyte - 1]

                    $i += 1

                EndIf

            WEnd

            $count += 1

        EndIf

    WEnd



    Return $decrypted_string

EndFunc   ;==>DecryptGamePacket2



Func EncryptGamePacket($str)

    Local $encrypted_string = "",$temp

    Local $buffer, $size

    Local $splited = StringToASCIIArray($str,0,StringLen($str),1)



    $buffer = StringSplit($str, ' ', 3)

    If IsArray($buffer) Then

        $temp=StringLen($buffer[0])

        If $temp>256 Then $temp-=256

        If $temp<0 Then $temp+=256

        $encrypted_string &= Chr($temp))

        For $i = 0 To UBound($splited) - 1

            If ($i = StringLen($buffer[0])) Then

                $size = StringLen($str[0]) - StringLen($buffer[0])

                If $size>256 Then $size-=256

                If $size<0 Then $size+=256

                $encrypted_string &= Chr($size)

            EndIf



            $encrypted_string &= BitXOR($splited[$i], 0xFF)

        Next

        Return $encrypted_string & Chr(0xFF)

    Else

        Return 0

    EndIf

EndFunc   ;==>EncryptGamePacket