Mirage Source

If Ban(i).BannedIP <> "" Then

Function IsBanned(ByVal IP As String) As Boolean
Dim FileName As String, fIP As String, fName As String
Dim f As Long
Dim b As Integer
Dim BIp As String
Dim i As Integer
IsBanned = False
FileName = App.Path & "\banlist.ini"
For i = 0 To MAX_BANS
If Ban(i).BannedIP <> "" Then
BIp = Ban(i).BannedIP
If IP = BIp Then
IsBanned = True
Exit Function
Else: IsBanned = False
End If
End If
Next i
End Function

For i = 0 To MAX_BANS

For i = 1 To MAX_BANS