Newbie Spellweaver
- Joined
- Dec 6, 2012
- Messages
- 44
- Reaction score
- 2
Code:
Private Declare Function decrypt_acl Lib "asdecr.dll" [COLOR="#FF0000"](ByVal acldata As String, ByVal size As Long)[/COLOR] As Long
Code:
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
Code:
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
Last edited: