function TPacketStream.DetectEncryption:Boolean;
var
Buffer: PByteArray;
Begin
Result := False;
If Assigned(FCryptObject) Then Exit;
Buffer := PByteArray(FIncommingBuffer.Base);
If IsCliServ Then Begin
If FIncommingBuffer.Amount = 62 Then Begin // Login phase
If (Buffer^[00] = $80) and
(Buffer^[30] = $00) and
(Buffer^[60] = $00) Then Begin // no login encryption
if Assigned(FOnClientEncryptionDetected) Then FOnClientEncryptionDetected(Self, ctNone, cpLogin);
{$IFDEF Debug}
WriteLn('No login encryption detected.');
{$ENDIF}
End Else Begin
if Assigned(FOnClientEncryptionDetected) Then FOnClientEncryptionDetected(Self, ctLogin, cpLogin);
{$IFDEF Debug}
WriteLn('Login encryption detected.');
{$ENDIF}
End;
Result := True;
End;
If FIncommingBuffer.Amount >= 65 Then Begin // Game phase
If (Buffer^[00] = $91) and
(Buffer^[04] = ((FSeed shr 24) and $FF)) and
(Buffer^[03] = ((FSeed shr 16) and $FF)) and
(Buffer^[02] = ((FSeed shr 8) and $FF)) and
(Buffer^[01] = (FSeed and $FF)) Then Begin // no encryption
if Assigned(FOnClientEncryptionDetected) Then FOnClientEncryptionDetected(Self, ctNone, cpGame);
{$IFDEF Debug}
WriteLn('No encryption detected.');
{$ENDIF}
Result := True;
End Else Begin
if Assigned(FOnClientEncryptionDetected) Then FOnClientEncryptionDetected(Self, ctGame, cpGame);
{$IFDEF Debug}
WriteLn('Game encryption detected.');
{$ENDIF}
Result := True;
End;
End;
End Else Begin
Result := True;
{$IFDEF Debug}
WriteLn('You can''t see this.');
{$ENDIF}
End;
End;