Mensajes

az un bucle que no pare de enviar ipconfig /release

salu2!

Aqui te dejo un source d eun clicker que cree cuando empezaba con vb:

Código (vb) [Seleccionar] Expandir

Private Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer

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)
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Private Sub command1_click()
For i = 1 To Text1.Text
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, X, Y, 0, 0
Next
End Sub
Private Sub form_load()
Timer1.Enabled = True
Timer1.Interval = text2.text
End Sub
Private Sub timer1_timer()
If GetKeyPress(vbKeyShift) Then
Call command1_click
End If
End Sub

salu2!

Es que añadir una sección ya me queda claro pero meter el algoritmo dentro nu, quizas es meterlo en un stub y despues añadirlo en la nueva sección con el buffer de un readfile?

tendiras que añadir en codigo en asm!

salu2!

Bueno, hace un tiempo, vi el melt que hizo MadAntrax y me inspire a hacer el mio, aqui os lo dejo:

Código (vb) [Seleccionar] Expandir

' Melt  By Drinky94.

Private 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 Function DrinkyMelt(Datos As String) As Boolean
   If App.Path = Environ("windir") Then
       Kill Datos
       ' Llegados a este punto ya hemos temrinado el melt y tenemos que llamar a la funcion normal para que siga la ejecucion ejemplo:
       ' Call Inyectar
   Else
       FileCopy App.Path & "\" & App.EXEName & ".exe", Environ("Windir") & "\Melt.exe"
       Call ShellExecute(0, "Open", Environ("Windir") & "\Melt.exe", App.Path & "\" & App.EXEName & ".exe", vbNullString, 0)
       End
   End If
End Function

Private Sub form_load()
   Call DrinkyMelt(Command)
End Sub

salu2!

te dejo algunas variables de entorno de windows:

windir ----------------> windows
homedrive --------------> disco Raiz
Temp ---------------> Carpeta temporal

salu2!

En el foro de .NET capaz que te den la respuesta

salu2!

Mira no te ofendas, pero es que si te descargas los troyanos de internet luego lo que pasa es que estos troyanos de internet estan fichadissimos por los antivirus, y claro cuando lo envias enseguida te salta el antivirus, lo mejor es que te lo hagas tu, si no has hecho nunca un troyano te aconsejo que comienzes con VB, lo bueno de hacerte tu propio troyano a parte de que logicamente hacertelo tu tiene un merito que no tiene usar el de otro, pues lo bueno es que como es "un producto casero" o sea "un archivo no identificado" para así decirlo, los antivirus no te lo detectan, o en caso de que te lo detecten camuflandolo un poco ya no detectan nada, una forma de camuflarlo era hacerle cambiar lo de "archivo ejecutable" a "no ejecutable", vamos que aparentemente es un no ejecutable pero en realidad es ejecutable. lo que si que vas a tener problemas en VB es con el componente mswinsck.ocx que es el que se utiliza para realizar la conexión, que dicen que este muchos antivirus te lo detectan como un troyano, pensava hacerle eso de cambiarlo a no ejecutable, pero si lo camuflo en un no ejecutable no creo que funcione, pero seguro que hay una forma de camuflarlo.
Y logicamente si quieres hacerte tu propio troyano con VB ya sabes que nos tienes aqui para ayudarte en lo que sea.
ApOkAlizE

Los troyanos que estasn hechos en vb no usan el control winsock, usan las api de winsock.

salu2!

mm... esque no te acabo de enteder XDDD osea pones una marca dentro de los datos binarios del exe, no? y luego quieres saber si el archivo tiene esa marca? si es asi usar la funcion Instr()

salu2!

jojojojojo esto si que es interezante 

Agrega una marca al codigo binario? despues quieres ver si esta la marca o quieres coger en un array todo lo que esta antes de la marca y todo lo que esta despues de la marca? y por ultimo, en que lenguaje lo estas haciendo?

salu2!