Expérimenter un ban IP ^-^

Programmation d'applications complexes
Avatar de l’utilisateur
falsam
Messages : 7244
Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :

Expérimenter un ban IP ^-^

Message par falsam »

Je vous propose d'expérimenter un ban ip avec le code qui va suivre.

-Ce code se connecte sur un serveur mutualisé basé chez 1and1.

-Un script Php est lancé créant un fichier json pour chaque ip qui se connecte.

■ Ce fichier Json contient :
- L'adresse ip du client qui se connecte,
- Un flag de création de compte,
- Le nombre de connexion,
- Le nombre de tentatives de flood. (La limite étant fixé à 4), flood
"ip":"80.13.XXX.XXX","AccountCreate":1,"CountConnect":11,"Flood":0}
Pressez la touche F5 pour exécuter ce code. Si vous respectez un intervalle de 5 secondes environ entre chaque appui sur la touche F5, vous ne serez pas ban.

:idea: Bien évidement je vous demanderais de ne pas respecter cette règle et vous verrez le compteur de flood s'incrémenter de 1 en 1.

Si vous respectez à nouveau les 5 secondes de délais, le compteur de flood sera remis à zero.

Après 4 tentatives de flood, vous serez ban ip.

Merci pour votre participation.

Code : Tout sélectionner

EnableExplicit

#PR_Test = 0

Global url.s = "http://s242132022.onlinehome.fr/2ox/"

Procedure ServerEnable()
  Protected Header.s, Buffer.s, Result.b
  
  Header = GetHTTPHeader(Url + "isenable")
  Buffer = StringField(Header, 1, #LF$)
  
  If FindString(buffer, "200 OK")
    Result = #True
  EndIf 
  ProcedureReturn Result  
EndProcedure

Procedure.s Php(Script.s, Parameters.s = "")
  Protected UserAgent.s = "The quick brown fox jumps over the lazy dog."
  Protected *Buffer, Size, Buffer.s
  
  If ServerEnable()
    *buffer = ReceiveHTTPMemory(url + script + "/" + URLEncoder(parameters), #PB_HTTP_NoRedirect, UserAgent)
    
    If *buffer
      Size = MemorySize(*buffer)
      Buffer = PeekS(*buffer, Size, #PB_UTF8|#PB_ByteLength)
      FreeMemory(*buffer)
    EndIf 
  EndIf
  ProcedureReturn Buffer
EndProcedure

Procedure Connect()
  Protected Parameters.s, Buffer.s, n
  
  Parameters = "?process=" + Str(#PR_Test)   
  Buffer = Php("421", Parameters)
  
  If Buffer      
    For n = 1 To CountString(Buffer, #CR$)
      Debug StringField(Buffer, n, #CR$)
    Next
  Else
    Debug "Sorry, You're banned (ip) ^_^"
  EndIf    
EndProcedure

InitNetwork()
Connect()
Bon flood et que le ban soit avec vous :mrgreen:
Configuration : Windows 11 Famille 64-bit - PB 6.03 x64 - AMD Ryzen 7 - 16 GO RAM
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Avatar de l’utilisateur
Ar-S
Messages : 9472
Inscription : dim. 09/oct./2005 16:51
Contact :

Re: Expérimenter un ban IP ^-^

Message par Ar-S »

Sorry, You're banned (ip) ^_^
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
Avatar de l’utilisateur
Kwai chang caine
Messages : 6962
Inscription : sam. 23/sept./2006 18:32
Localisation : Isere

Re: Expérimenter un ban IP ^-^

Message par Kwai chang caine »

''Very bad trip'' administrator a écrit :Attention you must wait a few seconds. ( >5 Seconds) Try one later ....
Hey you! Trying a Flood?
YES ! THIS IS A FLOOD
GO Away. You're banned !!'
Image

I'm Image of PB FORUM, i want to die !!!!!
Ouuuuuuuuuuuiiinnn !!!!!!!!
ImageLe bonheur est une route...
Pas une destination

PureBasic Forum Officiel - Site PureBasic
Avatar de l’utilisateur
falsam
Messages : 7244
Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :

Re: Expérimenter un ban IP ^-^

Message par falsam »

Image

Merci pour votre participation.
Configuration : Windows 11 Famille 64-bit - PB 6.03 x64 - AMD Ryzen 7 - 16 GO RAM
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Avatar de l’utilisateur
Fig
Messages : 1176
Inscription : jeu. 14/oct./2004 19:48

Re: Expérimenter un ban IP ^-^

Message par Fig »

"Mais pourquoi est il aussi méchant ?" Image
Il y a deux méthodes pour écrire des programmes sans erreurs. Mais il n’y a que la troisième qui marche.
Version de PB : 6.00LTS - 64 bits
Avatar de l’utilisateur
SPH
Messages : 4722
Inscription : mer. 09/nov./2005 9:53

Re: Expérimenter un ban IP ^-^

Message par SPH »

essayé 7 fois :
Acces Process and USER AGENT ok
Votre IP : 90.7.135.123

Attention you must wait a few seconds. ( >5 Seconds) Try one later ....
Hey you! Trying a Flood?
This is your last chance. ^-^

RESULT : User setup
The current server timezone is: Europe/Berlin
Last modified: May 20 2018 16:28:13.

JSON Content: {"ip":"90.7.135.123","AccountCreate":1,"CountConnect":2,"Flood":4}
http://HexaScrabble.com/
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Intel Core i7 4770 64 bits - GTX 650 Ti
Version de PB : 6.00 - 64 bits
Avatar de l’utilisateur
djes
Messages : 4252
Inscription : ven. 11/févr./2005 17:34
Localisation : Arras, France

Re: Expérimenter un ban IP ^-^

Message par djes »

:lol:
Avatar de l’utilisateur
falsam
Messages : 7244
Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :

Re: Expérimenter un ban IP ^-^

Message par falsam »

SPH Le magnifique a écrit :essayé 7 fois :
Oui .... mais pas assez vite :wink:
Configuration : Windows 11 Famille 64-bit - PB 6.03 x64 - AMD Ryzen 7 - 16 GO RAM
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Avatar de l’utilisateur
falsam
Messages : 7244
Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :

Re: Expérimenter un ban IP ^-^

Message par falsam »

Merci aux 5 participant de s'être prêter au jeu.
Dans un geste magnanime j'ai décidé de vous dé-bannir.

Qu'il en soit ainsi.
Configuration : Windows 11 Famille 64-bit - PB 6.03 x64 - AMD Ryzen 7 - 16 GO RAM
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Avatar de l’utilisateur
Kwai chang caine
Messages : 6962
Inscription : sam. 23/sept./2006 18:32
Localisation : Isere

Re: Expérimenter un ban IP ^-^

Message par Kwai chang caine »

:lol:

Image

:mrgreen:
ImageLe bonheur est une route...
Pas une destination

PureBasic Forum Officiel - Site PureBasic
Répondre