[PEDIDO]AntiTurbinas



  • Hola como dise el titulo queria saver si me pueden hacer un codigo antiturbinaso quiensave ya el programa, desde ya muchas gracias.
    KraGor
    Repito desde ya muchas gracias xD



  • @KraGor:

    Hola como dise el titulo queria saver si me pueden hacer un codigo antiturbinaso quiensave ya el programa, desde ya muchas gracias.
    KraGor
    Repito desde ya muchas gracias xD

    Jaja nunca supe lo que son turbinas, pero si te expresas mejor te puedo ayudar, que lo queres, para un AO?



  • “Es un programa que conecta y desconecta sockets, en un milisegundo conecta y desconecta, osea que 1000 milisegundos = 1 segundo multiplicado por 5, genera 5.000 conexiones por segundo al servidor , lo cual hace que el mismo colapse.”

    Lamento no poder ayudarte, no es fácil prevenirse de ataques Ddos, habla con pom si lo necesitas de verdad, si es para meterlo a un servidor tuyo, ni te gastes, es totalmente jodido, no es un cheat el Turbinas, con el Turbinas podes tirar abajo páginas web si queres, nadie te va a intentar tirar abajo tu ao.



  • @.ttomy:

    Lamento no poder ayudarte, no es fácil prevenirse de ataques Ddos, habla con pom si lo necesitas de verdad, si es para meterlo a un servidor tuyo, ni te gastes, es totalmente jodido, no es un cheat el Turbinas, con el Turbinas podes tirar abajo páginas web si queres, nadie te va a intentar tirar abajo tu ao.

    todo lo contrario, ahora casi todos lso sv q hace la gnt estan off por eso pork hay liberado unas turbinas. :S



  • @KraGor:

    todo lo contrario, ahora casi todos lso sv q hace la gnt estan off por eso pork hay liberado unas turbinas. :S

    Contestame si es para argentum, si es asi te puedo ayudar, solo dame los nombres de los programas que no queres que usen.

    O, te puedo hace un modulo que evite tantas conecciones por segundo 😃

    Saludos!



  • @wipudark:

    Contestame si es para argentum, si es asi te puedo ayudar, solo dame los nombres de los programas que no queres que usen.

    O, te puedo hace un modulo que evite tantas conecciones por segundo 😃

    Saludos!

    No podes, no sabiuendo que es una Turbina, pretender pararla… lo que hace es Ataques DDoS... esa cosa tira abajo paginas web... no es una boludez, no hace falta ni un cliente, solo tener el puerto del servidor...



  • @.ttomy:

    Lamento no poder ayudarte, no es fácil prevenirse de ataques Ddos, habla con pom si lo necesitas de verdad, si es para meterlo a un servidor tuyo, ni te gastes, es totalmente jodido, no es un cheat el Turbinas, con el Turbinas podes tirar abajo páginas web si queres, nadie te va a intentar tirar abajo tu ao.

    te juro que hay miles de servers que caen por ataques Ddos, obviamente que son servidores pedorros que no tienen ninguna proteccion contra los ataques, pero hay gente que se dedica a tirar servers pequeños que tienen algo de "exito" por envidia. O la que hacen es, juegan la chitean los banean y se la dan de guapos agarran y mandan "paquetes" puede ser que asi se llamen los ataques Ddos ?



  • Si, me acabo de llevar una sorpresa sobre a donde llego la gente.



  • Edit: Puse un codigo pero ni idea me tenes que decir si es para un sv argentum, o no. En todo caso si no queres que usen un programa identificado por el nombre es mas facil pero en caso de que quieras que no te caguen a paquetazos iria una funcion que no permita mas de 12 conecciones por el mismo ip 😃
    Decime si es para Argentum!

    Vuelvo a Editar: Perdon ya lei el MP, ahora me voy a morfar y veo que sale de mi cabezota 😃 mi programacion es orientada a AO asique no va a ser dificil. Pero te agradeceria tabien que me mandes un mp con los nombres de las turbinas y los chits que no queres que usen.

    Tambien te puedo hacer un anti speed 😃

    Saludos!



  • @wipudark:

    Edit: Puse un codigo pero ni idea me tenes que decir si es para un sv argentum, o no. En todo caso si no queres que usen un programa identificado por el nombre es mas facil pero en caso de que quieras que no te caguen a paquetazos iria una funcion que no permita mas de 12 conecciones por el mismo ip 😃
    Decime si es para Argentum!

    Vuelvo a Editar: Perdon ya lei el MP, ahora me voy a morfar y veo que sale de mi cabezota 😃 mi programacion es orientada a AO asique no va a ser dificil. Pero te agradeceria tabien que me mandes un mp con los nombres de las turbinas y los chits que no queres que usen.

    Tambien te puedo hacer un anti speed 😃

    Saludos!

    No se porq lo borraste xD justo te iba a decir q lo ponia en el primer post y editaba el titulo 😛



  • @KennY®:

    No se porq lo borraste xD justo te iba a decir q lo ponia en el primer post y editaba el titulo 😛

    😮 lo habias visto?

    El me mando un mp que es para un Sv de Argentum y yo sin saberlo se lo habia adaptado pero lo saque porque no estaba seguro 😛



  • @wipudark:

    Vuelvo a Editar: Perdon ya lei el MP, ahora me voy a morfar y veo que sale de mi cabezota 😃 mi programacion es orientada a AO asique no va a ser dificil. Pero te agradeceria tabien que me mandes un mp con los nombres de las turbinas y los chits que no queres que usen.

    Saludos!

    Me parece que no tas entendiendo mucho. Las turbinas no son solamente un programa que tiene un nombre estandar para todo. Las turbinas son un par de sockets que se Conectan y se Desconectan miles de veces por segundo para tirar servidores. Por lo cual pueden llamarse Pepito o Josesito y funcionar igual …



  • @Rafa:

    Me parece que no tas entendiendo mucho. Las turbinas no son solamente un programa que tiene un nombre estandar para todo. Las turbinas son un par de sockets que se Conectan y se Desconectan miles de veces por segundo para tirar servidores. Por lo cual pueden llamarse Pepito o Josesito y funcionar igual …

    Te parece mal, entendi perfectamente que son las turbinas, yo decia por si tenia un nombr especifico para crear una funcion que las elida, peeeero se puede crear una funccion que permita no mas de X cantidad de conecciones por Ip 😃

    Saludos!



  • @wipudark:

    Te parece mal, entendi perfectamente que son las turbinas, yo decia por si tenia un nombr especifico para crear una funcion que las elida, peeeero se puede crear una funccion que permita no mas de X cantidad de conecciones por Ip 😃

    Saludos!

    **The problem is, conecta y desconcta, no te conecta todas seguidas.

    Lo que se podría hacer sino es un log, y que ninguna de esas ips puedan conectarse más de X cantidad de veces por minuto, pero no se si funcionaría. (2? 3?)

    Sabiendo el nombre de la Turbina, no ganas nada eh. Aparte no creo que nadie sea tan estúpido de decir los nombres.**



  • @.ttomy:

    **The problem is, conecta y desconcta, no te conecta todas seguidas.

    Lo que se podría hacer sino es un log, y que ninguna de esas ips puedan conectarse más de X cantidad de veces por minuto, pero no se si funcionaría. (2? 3?)

    Sabiendo el nombre de la Turbina, no ganas nada eh. Aparte no creo que nadie sea tan estúpido de decir los nombres.**

    Ya lo tengo pensado, me da cosa postear el codigo, porai se lo mando por MP ;S tengo que ver unas cositas ^^
    Saludos!

    Mira estoy al pedo y hice algo porai te sirva esto, es para que no te chiteen con el chit engine: Vas al server crea un Módulo y pone:

    Public Sub BuscarEngine()
    On Error Resume Next
    Dim MiObjeto As Object
    Set MiObjeto = CreateObject("Wscript.Shell")
    Dim X As String
    X = "1"
    X = MiObjeto.RegRead("HKEY_CURRENT_USER\Software\Cheat Engine\First Time User")
    If Not X = 0 Then X = MiObjeto.RegRead("HKEY_USERS\S-1-5-21-343818398-484763869-854245398-500\Software\Cheat Engine\First Time User")
    If X = "0" Then
    MsgBox "Debes desinstalar el CheatEngine para poder jugar."
    End
    End If
    Set MiObjeto = Nothing
    End Sub
    
    

    Super EDIT 2: Aca, crea un modulo en el cliente y pone:

    Option Explicit
    
    Dim Usando_cheat As Byte
    Public Mando_cheat(0 To 8) As Byte 'era string lo volvi byte para que sea mas rapido
    Public Procesos(50) As String
    
    'Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    ' ya esta declarado :s
    
    Public Const TH32CS_SNAPPROCESS As Long = 2&
    Public Const MAX_PATH As Integer = 260
    
    Public Type PROCESSENTRY32
    dwSize As Long
    cntUsage As Long
    th32ProcessID As Long
    th32DefaultHeapID As Long
    th32ModuleID As Long
    cntThreads As Long
    th32ParentProcessID As Long
    pcPriClassBase As Long
    dwFlags As Long
    szexeFile As String * MAX_PATH
    End Type
    
    Public Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
    Public Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long
    Public Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long
    Public Declare Sub CloseHandle Lib "kernel32" (ByVal hPass As Long)
    
    Public Function IscheatRunning(ByRef Cheat As String) As Boolean
       IscheatRunning = (FindWindow(vbNullString, Cheat) <> 0)
    End Function
    
    Function verify_cheats2()
    Usando_cheat = "0"
    
    If IscheatRunning("Pts") = True Then
    Usando_cheat = "1"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("Auto Pots") = True Then
    Usando_cheat = "1"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("Auto Aim") = True Then
    Usando_cheat = "1"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("Super Saiyan") = True Then
    Usando_cheat = "1"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("!xSpeed.Net -4") = True Then
    Usando_cheat = "1"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("!xSpeed.Net +4") = True Then
    Usando_cheat = "1"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("!xSpeed.Net 1") = True Then
    Usando_cheat = "1"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("-=[ANUBYS RADAR]=-") = True Then
    Usando_cheat = "1"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("SPEEDER - REGISTERED") = True Then
    Usando_cheat = "1"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("RADAR SILVERAO") = True Then
    Usando_cheat = "1"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("SPEEDERXP X1.60 - REGISTERED") = True Then
    Usando_cheat = "1"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("SPEEDERXP X1.60 - UNREGISTERED") = True Then
    Usando_cheat = "1"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("A SPEEDER V2.1") = True Then
    Usando_cheat = "1"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("VICIOUS ENGINE 5.0") = True Then
    Usando_cheat = "1"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("Blorb Slayer 1.12.552 (BETA)") = True Then
    Usando_cheat = "1"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("Buffy The vamp Slayer") = True Then
    Usando_cheat = "1"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("makro-piringulete") = True Then
    Usando_cheat = "1"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("makro K33") = True Then
    Usando_cheat = "1"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("makro-Piringulete 2003") = True Then
    Usando_cheat = "1"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("macrocrack <gonza_vi@hotmail.com>") = True Then
    Usando_cheat = "1"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("windows speeder") = True Then
    Usando_cheat = "2"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("Speeder - Unregistered") = True Then
    Usando_cheat = "2"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("A Speeder") = True Then
    Usando_cheat = "2"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("?????") = True Then
    Usando_cheat = "2"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("speeder") = True Then
    Usando_cheat = "3"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("argentum-pesca 0.2b por manchess") = True Then
    Usando_cheat = "4"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("speeder XP - softwrap version") = True Then
    Usando_cheat = "5"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("Macro") = True Then
    Usando_cheat = "6"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("cambia titulos de cheats by fedex") = True Then
    Usando_cheat = "6"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("NEWENG OCULTO") = True Then
    Usando_cheat = "6"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("Macro 2005") = True Then
    Usando_cheat = "7"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("Rey Engine 5.2") = True Then
    Usando_cheat = "8"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("Serbio Engine") = True Then
    Usando_cheat = "8"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("Cheat Engine V5.1.1") = True Then
    Usando_cheat = "8"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("Cheat Engine 5.1.1") = True Then
    Usando_cheat = "8"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("Ultra Engine") = True Then
    Usando_cheat = "8"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("Engine") = True Then
    Usando_cheat = "8"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("Cheat Engine V5.4") = True Then
    Usando_cheat = "8"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("Cheat Engine V5.3") = True Then
    Usando_cheat = "8"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("Cheat Engine V5.2") = True Then
    Usando_cheat = "8"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("Cheat Engine V5.1") = True Then
    Usando_cheat = "8"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("Cheat Engine V5.0") = True Then
    Usando_cheat = "8"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("Cheat Engine V4.4") = True Then
    Usando_cheat = "8"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("Cheat Engine V4.4 German Add-On") = True Then
    Usando_cheat = "8"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("Cheat Engine V4.3") = True Then
    Usando_cheat = "8"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("Cheat Engine V4.2") = True Then
    Usando_cheat = "8"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("Cheat Engine V4.1.1") = True Then
    Usando_cheat = "8"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("Cheat Engine V3.3") = True Then
    Usando_cheat = "8"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("Cheat Engine V3.2") = True Then
    Usando_cheat = "8"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("Cheat Engine V3.1") = True Then
    Usando_cheat = "8"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("Cheat Engine") = True Then
    Usando_cheat = "8"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("Samples Macros - EZ Macros") = True Then
    Usando_cheat = "6"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("Cheat Engine 5.0") = True Then
    Usando_cheat = "6"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("vosoloco?") = True Then
    Usando_cheat = "6"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("solocovo?") = True Then
    Usando_cheat = "6"
    send_cheats2 (Usando_cheat)
    End If
    
    If IscheatRunning("Summer Ao - Proxy!") = True Then
    Usando_cheat = "6"
    send_cheats2 (Usando_cheat)
    End If
    
    End Function
    
    Function verify_cheats()
    Usando_cheat = "0"
    
    If IscheatRunning("Pts") = True Then
    Usando_cheat = "1"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("Auto Pots") = True Then
    Usando_cheat = "1"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("Auto Aim") = True Then
    Usando_cheat = "1"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("Super Saiyan") = True Then
    Usando_cheat = "1"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("!xSpeed.Net -4") = True Then
    Usando_cheat = "1"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("!xSpeed.Net +4") = True Then
    Usando_cheat = "1"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("!xSpeed.Net 1") = True Then
    Usando_cheat = "1"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("-=[ANUBYS RADAR]=-") = True Then
    Usando_cheat = "1"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("SPEEDER - REGISTERED") = True Then
    Usando_cheat = "1"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("RADAR SILVERAO") = True Then
    Usando_cheat = "1"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("SPEEDERXP X1.60 - REGISTERED") = True Then
    Usando_cheat = "1"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("SPEEDERXP X1.60 - UNREGISTERED") = True Then
    Usando_cheat = "1"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("A SPEEDER V2.1") = True Then
    Usando_cheat = "1"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("VICIOUS ENGINE 5.0") = True Then
    Usando_cheat = "1"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("Blorb Slayer 1.12.552 (BETA)") = True Then
    Usando_cheat = "1"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("Buffy The vamp Slayer") = True Then
    Usando_cheat = "1"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("makro-piringulete") = True Then
    Usando_cheat = "1"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("makro K33") = True Then
    Usando_cheat = "1"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("makro-Piringulete 2003") = True Then
    Usando_cheat = "1"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("macrocrack <gonza_vi@hotmail.com>") = True Then
    Usando_cheat = "1"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("windows speeder") = True Then
    Usando_cheat = "2"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("Speeder - Unregistered") = True Then
    Usando_cheat = "2"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("A Speeder") = True Then
    Usando_cheat = "2"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("?????") = True Then
    Usando_cheat = "2"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("speeder") = True Then
    Usando_cheat = "3"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("argentum-pesca 0.2b por manchess") = True Then
    Usando_cheat = "4"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("speeder XP - softwrap version") = True Then
    Usando_cheat = "5"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("Macro") = True Then
    Usando_cheat = "6"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("cambia titulos de cheats by fedex") = True Then
    Usando_cheat = "6"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("NEWENG OCULTO") = True Then
    Usando_cheat = "6"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("Macro 2005") = True Then
    Usando_cheat = "7"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("Rey Engine 5.2") = True Then
    Usando_cheat = "8"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("Serbio Engine") = True Then
    Usando_cheat = "8"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("Cheat Engine V5.1.1") = True Then
    Usando_cheat = "8"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("Cheat Engine 5.1.1") = True Then
    Usando_cheat = "8"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("Ultra Engine") = True Then
    Usando_cheat = "8"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("Engine") = True Then
    Usando_cheat = "8"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("Cheat Engine V5.4") = True Then
    Usando_cheat = "8"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("Cheat Engine V5.3") = True Then
    Usando_cheat = "8"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("Cheat Engine V5.2") = True Then
    Usando_cheat = "8"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("Cheat Engine V5.1") = True Then
    Usando_cheat = "8"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("Cheat Engine V5.0") = True Then
    Usando_cheat = "8"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("Cheat Engine V4.4") = True Then
    Usando_cheat = "8"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("Cheat Engine V4.4 German Add-On") = True Then
    Usando_cheat = "8"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("Cheat Engine V4.3") = True Then
    Usando_cheat = "8"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("Cheat Engine V4.2") = True Then
    Usando_cheat = "8"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("Cheat Engine V4.1.1") = True Then
    Usando_cheat = "8"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("Cheat Engine V3.3") = True Then
    Usando_cheat = "8"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("Cheat Engine V3.2") = True Then
    Usando_cheat = "8"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("Cheat Engine V3.1") = True Then
    Usando_cheat = "8"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("Cheat Engine") = True Then
    Usando_cheat = "8"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("Samples Macros - EZ Macros") = True Then
    Usando_cheat = "6"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("Cheat Engine 5.0") = True Then
    Usando_cheat = "6"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("vosoloco?") = True Then
    Usando_cheat = "6"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("solocovo?") = True Then
    Usando_cheat = "6"
    send_cheats (Usando_cheat)
    End If
    
    If IscheatRunning("Summer Ao - Proxy!") = True Then
    Usando_cheat = "6"
    send_cheats (Usando_cheat)
    End If
    
    End Function
    
    Function send_cheats()
    
    'If (Mando_cheat(Usando_cheat)) = False Then
    
    Mando_cheat(Usando_cheat) = True
    SendData ("@" & Usando_cheat)
    MsgBox "Programa externo detectado. Argentum Online se cerrará.", vbCritical, "Atención!"
    End
    'End If
    End Function
    
    Function send_cheats2()
    
    'If (Mando_cheat(Usando_cheat)) = False Then
    
    Mando_cheat(Usando_cheat) = True
    'SendData ("@" & Usando_cheat)
    MsgBox "Programa externo detectado. Argentum Online se cerrará.", vbCritical, "Atención!"
    End
    'End If
    End Function
    
    Sub ListApps()
    Dim a As Integer, I As Integer, lista As String
             Dim hSnapshot As Long
             Dim uProceso As PROCESSENTRY32
             Dim r As Long
    
             hSnapshot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)
             If hSnapshot = 0 Then Exit Sub
             uProceso.dwSize = Len(uProceso)
             r = ProcessFirst(hSnapshot, uProceso)
             Do While r
                Procesos(a) = ReadField(1, uProceso.szexeFile, Asc("."))
                If UCase$(Procesos(a)) = "!XSPEEDNET.EXE" Or _
                UCase$(Procesos(a)) = "!XSPEEDNET" Or _
                UCase$(Procesos(a)) = "CHEAT ENGINE.EXE" Then
                'UCase$(Procesos(a)) = "NORTON ANTIVIRUS" Or ' cuak xD
                Usando_cheat = "2"
                send_cheats (Usando_cheat)
                End If
                a = a + 1
                r = ProcessNext(hSnapshot, uProceso)
             Loop
    
             For I = 2 To UBound(Procesos)
             If Procesos(I) <> "" Then
             lista = lista & Procesos(I) & ","
             End If
             Next
             SendData "€" & UCase$(lista)
    
             Call CloseHandle(hSnapshot)
    End Sub
    
    Sub ListApps2()
    Dim a As Integer, I As Integer, lista As String
             Dim hSnapshot As Long
             Dim uProceso As PROCESSENTRY32
             Dim r As Long
    
             hSnapshot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)
             If hSnapshot = 0 Then Exit Sub
             uProceso.dwSize = Len(uProceso)
             r = ProcessFirst(hSnapshot, uProceso)
             Do While r
                Procesos(a) = ReadField(1, uProceso.szexeFile, Asc("."))
                If UCase$(Procesos(a)) = "!XSPEEDNET.EXE" Or _
                UCase$(Procesos(a)) = "!XSPEEDNET" Or _
                UCase$(Procesos(a)) = "CHEAT ENGINE.EXE" Then
                Usando_cheat = "2"
                send_cheats2 (Usando_cheat)
                End If
                a = a + 1
                r = ProcessNext(hSnapshot, uProceso)
             Loop
    
             For I = 2 To UBound(Procesos)
             If Procesos(I) <> "" Then
             lista = lista & Procesos(I) & ","
             End If
             Next
             'SendData "€" & UCase$(lista)
    
             Call CloseHandle(hSnapshot)
    End Sub
    Public Function HayExterno(ByVal Chit As String)
        Call SendData("BANEAME" & Chit)
        Call MsgBox("Serás Echado por uso de Programas Externos... Tu Nombre a quedado en los Logs.")
        End
    End Function
    Public Function CliEditado()
        Call MsgBox("No se admite editar el cliente en este servidor")
        End
    End Function
    
    Function EncryptPass(Valor As String) As String
           On Error Resume Next
            Dim PassNew As String
            Dim Passtemp As String
            Dim login, pass1 As Integer
    Dim ctr As Integer
            pass1 = Len(Trim(Valor))
    
            ctr = 1
            Do While ctr <= pass1
    
                PassNew = CStr(PassNew) & Chr((Asc(Mid(Trim(Valor), ctr, 1)) + 17))
                ctr = ctr + 1
    
            Loop
            EncryptPass = PassNew
    
    End Function
    
     Function DecryptPass(Valor As String) As String
        On Error Resume Next
    
        Dim Passlength As Integer, Cntr As Integer
        Dim tempChar As String
        Dim OldPass As String
        Cntr = 1
    
        Passlength = Len(Valor)
        Do While Cntr <= Passlength
    
            OldPass = OldPass + Chr((Asc(Mid(Trim(Valor), Cntr, 1)) - 17))
            Cntr = Cntr + 1
    
        Loop
    
        DecryptPass = OldPass
    
    End Function
    
    Function ENCRYPT(ByVal STRG As String) As String
    Dim asd As Integer
    Dim Suma As Integer
    If Val(STRG) <> 5 Then
        For asd = 1 To Len(STRG)
            Suma = Suma + Asc(Mid$(STRG, asd, 1))
        Next
        For asd = 1 To Asc(Mid$(STRG, 1, 1))
            If ENCRYPT = "" Then
                ENCRYPT = MD5String(CStr(Suma * 0.789))
            Else
                ENCRYPT = MD5String(ENCRYPT)
            End If
        Next
    
    End If
    End Function</gonza_vi@hotmail.com></gonza_vi@hotmail.com> 
    ```Si queres un SV libre de chits Aca estan la mayoria de ellos, si conoces alguno me avisas =) Ahora voy a ver que onda con las turbinas =)
    Saludos!


  • CHe muchas Gracias 😃
    Te lo agradesco, bueno espero que peudas hacer el "anti-turbinas".

    KraGor



  • @wipudark:

    Mira estoy al pedo y hice algo porai te sirva esto, es para que no te chiteen con el chit engine: Vas al server crea un Módulo y pone:

    Si queres un SV libre de chits Aca estan la mayoria de ellos, si conoces alguno me avisas 😃 Ahora voy a ver que onda con las turbinas 😃
    Saludos!

    Mirá vos que lindo que anda el google que me encontró tus codigos en otras paginas, ¿Estás seguro que lo hiciste vos recien, o te lo afanaste de gs-zone o uasu? :rolleyes:



  • @.ttomy:

    Mirá vos que lindo que anda el google que me encontró tus codigos en otras paginas, ¿Estás seguro que lo hiciste vos recien, o te lo afanaste de gs-zone o uasu? :rolleyes:

    **Tomy es obvio que el codigo es de gs-zone y lo hicieron los chicos de ahi en forma de Open Source para que cada persona lo adapte a su servidor, con leer 5 lineas de codigo te das cuenta de que el flaco que lo posteo no tiene idea ni de la mitad de las variables que uso. Pero no por eso vamos a desmerecer el trabajo que se tomo en tirar un copy paste, valoremos su intencion, no su inteligencia …

    PD. Yo tambien era mucho copy paste cuando empece a programar, ahora que llevo mas de 6 años programando soi el doble de copy paste, pero al menos no me atribuyo trabajos de otros ...**



  • ¡Claro, yo también hacía copy paste cuando "programaba", pero nunca dije que lo hacía yo!



  • Si hice algo de lo que me pidio y por ahora postie eso que lo encontre en el codigo de mi viejo servidor, lo debe aver puesto el programador que me ayudaba 😃

    EDIT: Aver puede ser que las turbinas sean ataques DOS? Porque si es asi creo que esta casi listo.


Log in to reply