Mensajes

Nadie te va a dar un tutorial de como hacer un megatroyano o super virus ni nada por el estilo. Para ello lo primero que necesitas es aprender a programar. Los tutoriales te van a dar los conceptos de lo que es un troyano o un virus, son la base para empezar pero solo vas a necesitar imaginacion para crear la herramienta que quieres. Realmente los virus y troyanos solo son herramientas que hacen las mismas cosas que otras herramientas solo que de forma oculta(no siempre) y que las hacen en contra de la voluntad del infectado. Sabiendo programar y imaginacion crearas mas de lo que imaginas.

1. Esto no es VB6 por lo tanto subforo equivocado
2. Sin etiquetas geshi nadie lo va a leer. PONLAS

Es justmente al reves, scantime descifra y guarda el archivo en el disco duro, en cambio runtime descifra e inyecta el código en memoria.

Saludos, Noele1995.

Realmente la forma de generar numeros aleatoris es llegar a un numero a partir de otro numero por medio de operaciones. Cuando le pones timer le estas poniendo que lo genere en base a la hora, que siempre cambia.

Saludos, Noele1995.

Prueba a poner justo en la primera accion dentro del bucle

Código (vb) [Seleccionar] Expandir

Randomize(timer)
O no estoy seguro si tambien se podria poner cambiando la asignacionde a poniendo

Código (vb) [Seleccionar] Expandir

a = CInt(Rnd(timer))

prueba esas dos formas

Saludos,  Noele1995

Por tanto base a las explicaciones que te han dado, en tu programa tendras que comprobar si argc tiene un valor de 3, si argv[1] es un numero, y si argv[2] es un texto, y si alguna de las tres anteriores condiciones son falsas entonces imprimir la sintaxis del prgrama.

Saludos, Noele1995

Bueno estaba haciendo ciertas pruebas creando dlls y llamandolas implicitamente y explicitamente para aprender un poco y ahora que le he puesto algunos argumentos me ejecuta la funcion de dll pero despues de ejecutarla me salta este error:

Código [Seleccionar] Expandir

Run-Time Check Failure #0 - The value of ESP was not properly saved across a function call.
This is usually a result of calling a function declared with one calling convention with a function
pointer declared with a different calling convention.

El codigo del programa llamador es el siguiente:

main.cpp

Código (cpp) [Seleccionar] Expandir

#include <Windows.h>
#include <iostream>

typedef void (__stdcall *PROC_info)(char *,char *,long *,long *);

struct PLUGIN
{
HMODULE dll_entrypoint;
PROC_info info_func;
};

int main()
{

PLUGIN plugin1;

plugin1.dll_entrypoint = LoadLibraryA("C:\\Dll-Test1.dll");
if(plugin1.dll_entrypoint == NULL)
{
FreeLibrary(plugin1.dll_entrypoint);
MessageBoxA(0,"No se encuentra la DLL","Error",0);
return 1;
}
else{
char *Version = "";
char *Autor = "";
long *numAutor = 0;
long *numVersion = 0;


plugin1.info_func = (PROC_info)GetProcAddress(plugin1.dll_entrypoint,"func1");

plugin1.info_func(Version,Autor,numVersion,numAutor);
FreeLibrary(plugin1.dll_entrypoint);
}
system("pause");

return 0;
}

Y el codigo de la DLL

plugin_main.h

Código (cpp) [Seleccionar] Expandir

#define DLLDEXPORT  __declspec(dllexport)   // export DLL information

extern "C" {
      DLLDEXPORT void func1(char *, char *,long *,long *);
};




plugin_main.cpp

Código (cpp) [Seleccionar] Expandir

#include "plugin_main.h"
#include <windows.h>

BOOL APIENTRY DllMain(HMODULE hModule,DWORD  ul_reason_for_call,LPVOID lpReserved){
switch (ul_reason_for_call)
{
case DLL_PROCESS_ATTACH: //PROCESO CARGA
break;
case DLL_THREAD_ATTACH: //THREAD CARGA
break;
case DLL_THREAD_DETACH: //THREAD DESCARGA
break;
case DLL_PROCESS_DETACH: //PROCESO DESCARGA
break;
}
return TRUE;
}

DLLDEXPORT void func1(char *Version, char *Autor,long *numVersion,long *numAutor)
{
MessageBoxA(0,"Soy el texto","Soy el caption",1);
}


Si alguien me ayuda seria genial ya que despues de frustrarme para que ejecute la funcion ahora me saltan errores.



Pff siento las molestias resulto ser una tonteria...
Lo arregle cambiando en la declaracion de PROC_Info el __stdcall por un __cdecl

Saludos, Noele1995

Ahora no tengo tiempo pero aun asi es facil, puedes seguir mi metodo poniendo en los strings 1 o 0, 1 si es true, 0 si es false

Código (vb) [Seleccionar] Expandir

if check1.value = true then
    'Escribes un 1 en la constante
else
    'Escribes un 0 en la constante
end if

'Y para usar las constante

if constante=1 then
'...
else
'...
end if

Ahora no tengo tiempo pero hace poco hice un post explicando como hacer un server builder en VB6, espero que te sirva no lo he probado con booleans este metodo pero yo te doy la idea y tu investigas.

http://foro.elhacker.net/analisis_y_diseno_de_malware/creando_editor_de_servidor_vb6-t364479.0.html

Saludos, Noele1995

Ahh ok no te habia entendido bien entonces podria ser asi

Código (vb) [Seleccionar] Expandir


If not IsNumeric(Textbox2.Text) then exit sub

Dim numeroVecesTotal as integer
Dim numeroVeces as integer
Dim a as integer
Dim cnt asinteger

numeroVecesTotal = textbox2.text

Do while not numeroVeces = numeroVecesTotal
    a = CInt(Rnd)
    if a = 1 then
        numeroVeces = numeroVeces + 1
    else
        numeroveces = 0
    end if
    cnt = cnt + 1
Loop

Label6.text = cnt
[/quote]