562 za

[Devil Warrior]

Private Declare Function decrypt_acl Lib "asdecr.dll" [COLOR="#FF0000"](ByVal acldata As String, ByVal size As Long)[/COLOR] As Long

Private Sub sock_LS_DataArrival(ByVal bytesTotal As Long)
Dim strdata As String
sock_LS.GetData strdata
If strdata = "" Then Exit Sub
If Asc(Mid(strdata, 1, 1)) = Len(strdata) Then
    If Asc(Mid(strdata, 1, 1)) = 40 Then
    Dim tempuid, tempid
    tempuid = Mid(strdata, 5, 4)
    tempid = trimgameid(Mid(strdata, 11, 12))
    
    For i = 0 To UBound(clientpreparedinfo)
        If clientpreparedinfo(i, 0) = "" Then
        Debug.Print "Client prepared of Id - " & i
        clientpreparedinfo(i, o) = tempuid
        clientpreparedinfo(i, 1) = tempid
        clientpreparedinfo(i, 2) = 0
        clientpreparedinfo(i, 3) = [COLOR="#FF0000"]acldata (is it correcr??)[/COLOR]
        zonelog.Text = zonelog.Text & "<LC> UID = " & reverseuid(tempuid) & " " & tempid & " Prepared" & vbCrLf
        LS_preparedcount = LS_preparedcount + 1
        lblpreparedconnectioncount.Caption = LS_preparedcount
        sock_client(0).Listen ' Open Zone sock if prepared until connected
        Exit For
        Else
        newslot = UBound(clientpreparedinfo) + 1
        Dim temparr() As String
        ReDim temparr(UBound(clientpreparedinfo), 4) As String
        For m = 0 To UBound(clientpreparedinfo, 1)
            For n = 0 To UBound(clientpreparedinfo, 2)
            temparr(m, n) = clientpreparedinfo(m, n)
            Next n
        Next m
        ReDim clientpreparedinfo(newslot, 4) As String
        
        For m = 0 To UBound(temparr, 1)
            For n = 0 To UBound(temparr, 2)
            clientpreparedinfo(m, n) = temparr(m, n)
            Next n
        Next m
        clientpreparedinfo(newslot, o) = tempuid
        clientpreparedinfo(newslot, 1) = tempid
        clientpreparedinfo(newslot, 2) = 0
        clientpreparedinfo(newslot, 3) = [COLOR="#FF0000"]acldata (is it correcr??)[/COLOR]
        zonelog = zonelog & "<LC> UID = " & reverseuid(tempuid) & " " & tempid & " Prepared" & vbCrLf
        LS_preparedcount = LS_preparedcount + 1
        lblpreparedconnectioncount.Caption = LS_preparedcount
        sock_client(0).Listen ' Open Zone sock if prepared until connected
        Exit For
        End If
    Next i
End If
End If
End Sub

Private Sub lsreporter_Timer()
If sock_LS.State = 7 Then
packet = Chr(16) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(2) & Chr(225) & Chr(curplayercount) & Chr(0) & Chr(0) & Chr(0) & Chr(zonecount) & Chr(zonecount)
sock_LS.SendData packet
Else
sock_LS.Close
lbllssockstatus.Caption = "Login Server : Disconnected"
sock_LS.RemoteHost = lsip
sock_LS.RemotePort = lsport
sock_LS.Connect
End If
If LS_preparedcount > 0 Then
    For i = 0 To UBound(clientpreparedinfo)
    If clientpreparedinfo(i, 2) = "" And clientpreparedinfo(i, 3) <> "" Then
        If [COLOR="#FF0000"]acldata[/COLOR] - clientpreparedinfo(i, 3) > 6000 Then

is Declare Function of decrypt_acl is correct??
still problem is not solved.... 5 warriors...
and acl file is not getting decrypt..
chrissdegrece help please

 

[prologos]

asdecr.dll is it necessary to decrypt the acl packet.
It is useful to identify the acl file formats 562 analyzes the packet type normal client 562.
However, acl file format type 562, I have already explained in the other post.

 

[Devil Warrior]

that dll is not COM dll..
soo i can't add that dll as reference... in vb 6... if i wont to add that dll then ZA must be in VB.net
so i have to Declare Function and use that dll as Declare Function as chrissdegrece explained in that post

 

[prologos]

Examples of processing Blank (Including the characters that have been deleted):
However, packets are treated as bytes.

- ACL file(The number of cases)
00 FF 00 00 - The initial value
00 FF 00 00 - Delete character (Temoz)
00 FF 01 00 - Delete character (Quanato)


- Packets received by ZA
78 62 CE 12
78 62 CE 12
78 62 CF 2D


- 562 the form of packets the client recognizes as Blank
78 9D FE 8B
78 9C 19 BE
78 9C 19 BF


- My Solution (VB)
splitpacket = variable in which you saved the acl packet
0x62 = 98
0x78 = 120

For m = 32 To 784 Step 188
 If splitpacket(m + 1) = 98 Then
  If splitpacket(m + 4) = 120 Then
   splitpacket(m + 1) = &H9D
   splitpacket(m + 2) = &HFE
   splitpacket(m + 3) = &H8B
  Else
   splitpacket(m + 1) = &H9C
   splitpacket(m + 2) = &H19
   splitpacket(m + 3) = &HBE [COLOR="#FF0000"]'Because it does not affect, hometown using only BE.[/COLOR]
  End If
 End If
Next m

 

[Devil Warrior]

Private [COLOR="#FF0000"]Declare Function[/COLOR] decrypt_acl Lib "D:\a3server\562 ZoneAgent\asdecr.dll" (ByVal acldata As [COLOR="#FF0000"]String[/COLOR], ByVal size As Long) As Long

can any 1 tell me this Declaretion Function is correct??
did acldata comes as string??

Private Sub sock_client_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim strdata As String
sock_client(Index).GetData strdata
Dim temppacket, [COLOR="#FF0000"]splitpacket[/COLOR] As String
temppacket = strdata
Do Until temppacket = ""
[COLOR="#FF0000"]splitpacket[/COLOR]= Mid(temppacket, 1, reverseuid(Mid(temppacket, 1, 4)))
    If Len([COLOR="#FF0000"]splitpacket[/COLOR]) < 10 Then
    sock_client(Index).Close
    Else
    If Len([COLOR="#008000"]splitpacket[/COLOR]) = 56 Then
        
        packetuid = Mid([COLOR="#FF0000"]splitpacket[/COLOR], 5, 4)
            For i = 0 To UBound(clientpreparedinfo)
                If clientpreparedinfo(i, 0) = packetuid Then
                Debug.Print "Entered Client storage to store - " & Index
                clientpreparedinfo(i, 0) = ""
                clientinfo(Index, 0) = Index
                clientinfo(Index, 1) = Mid([COLOR="#FF0000"]splitpacket[/COLOR] 5, 4)
                clientinfo(Index, 2) = trimgameid(Mid([COLOR="#FF0000"]splitpacket[/COLOR], 15, 12))
                clientinfo(Index, 3) = "1" ' Zone login
                clientinfo(Index, 4) = "255"
                Exit For
                End If
            Next i
        zonelog.Text = zonelog.Text & clientinfo(Index, 2) & " (" & sock_client(Index).RemoteHost & ") User Joined" & vbCrLf
        Dim lssafepacket As String
        lssafepacket = Chr(0) & Chr(0) & Chr(0) & clientinfo(Index, 1) & Chr(2) & Chr(227) & clientinfo(Index, 2)
            For pp = 1 To 21 - Len(clientinfo(Index, 2))
            lssafepacket = lssafepacket & Chr(0)
            Next pp
        lssafepacket = Chr(Len(lssafepacket) + 1) & lssafepacket
        If sock_LS.State = 7 Then sock_LS.SendData lssafepacket
           
        Dim acountchar As String
        acountchar = Chr(0) & Chr(0) & Chr(0) & clientinfo(Index, 1)
        acountchar = acountchar & Chr(1) & Chr(225) & clientinfo(Index, 2)
        spacecount = 15 - Len(clientinfo(Index, 2))
            For i = 1 To 28 + spacecounts
            acountchar = acountchar & Chr(0)
            Next i
        acountchar = acountchar & sock_client(Index).RemoteHost
        spacecount = 16 - Len(sock_client(Index).RemoteHost)
            For i = 1 To 145 - Len(acountchar) + spacecount
            acountchar = acountchar & Chr(0)
            Next i
        acountchar = Chr(Len(acountchar) + 1) & acountchar
        sock_zone(clientinfo(Index, 4)).SendData acountchar
    Else
    
    If Len([COLOR="#008000"]splitpacket[/COLOR]) = 12 Then
        Dim dcpacket As String
        dcpacket = [COLOR="#FF0000"]splitpacket[/COLOR]
        dcpacket = Mid(dcpacket, 1, 4) & clientinfo(Index, 1) & Mid(dcpacket, 9)
        If sock_zone(clientinfo(Index, 4)).State = 7 Then sock_zone(clientinfo(Index, 4)).SendData dcpacket
    Else
    [COLOR="#FF0000"]splitpacket[/COLOR] = Mid([COLOR="#FF0000"]splitpacket[/COLOR], 1, 4) & clientinfo(Index, 1) & Mid([COLOR="#FF0000"]splitpacket[/COLOR], 9)
    sock_zone(clientinfo(Index, 4)).SendData [COLOR="#FF0000"]splitpacket[/COLOR]
    End If
    End If
    End If
temppacket = Mid(temppacket, reverseuid(Mid(temppacket, 1, 4)) + 1)
Loop
End Sub

Private Sub sock_zone_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim strdata As String
sock_zone(Index).GetData strdata
Dim temppacket, [COLOR="#FF0000"]splitpacket[/COLOR] As String
temppacket = strdata
Do Until temppacket = ""
[COLOR="#FF0000"]splitpacket[/COLOR] = Mid(temppacket, 1, reverseuid(Mid(temppacket, 1, 4)))
   If Len([COLOR="#FF0000"]splitpacket[/COLOR]) = 952 Then
        sockid = Getsockidfromuid(Mid([COLOR="#FF0000"]splitpacket[/COLOR], 5, 4))
        If sock_client(sockid).State = 7 Then sock_client(sockid).SendData [COLOR="#FF0000"]splitpacket[/COLOR]
    Else
    If Len([COLOR="#FF0000"]splitpacket[/COLOR]) = 11 Then
        sockid = Getsockidfromuid(Mid([COLOR="#FF0000"]splitpacket[/COLOR], 5, 4))
        Dim prevzone As String
        If Mid([COLOR="#FF0000"]splitpacket[/COLOR], 5, 4) = clientinfo(sockid, 1) Then prevzone = clientinfo(sockid, 4): clientinfo(sockid, 4) = Asc(Mid([COLOR="#FF0000"]splitpacket[/COLOR], 11, 1))
        zonelog.Text = zonelog.Text & clientinfo(sockid, 2) & " user zone changed " & prevzone & " -> " & clientinfo(sockid, 4) & vbCrLf
    Else
    sockid = Getsockidfromuid(Mid([COLOR="#FF0000"]splitpacket[/COLOR], 5, 4))
        If sock_client(sockid).State = 7 Then sock_client(sockid).SendData [COLOR="#FF0000"]splitpacket[/COLOR]
    End If
    
    End If
temppacket = Mid(temppacket, reverseuid(Mid(temppacket, 1, 4)) + 1)
Loop
End Sub

which splitpacket should i have to change???

 

[Devil Warrior]

thxx prologos
now i just understood the concept of ACL file...

i just did not understood this???

- My Solution (VB)
splitpacket = variable in which you saved the acl packet
0x62 = 98
0x78 = 120

again i logged in game and again bug stated...

00 FF 00 00 is for 219 server

00 00 FF 00 is for 562 server

i am using two FF FF coz of that warrior bugs getting solved no error @ all
00 FF FF 00