|
Mostrar Temas
|
Páginas: [1] 2 3 4
|
1
|
Programación / Programación Visual Basic / Donación: Programa para Registrar archivos ActiveX (Krnl64)
|
en: 22 Agosto 2006, 17:53 pm
|
Cansado de usar Regsvr32.exe para registrar archivos ActiveX ? La solucion la teneis aqui. Os dejo el code de un programa que registra los archivos ActiveX solo arrastrandolos y dandole a un boton. Lo unico que pido es que conserveis las cabeceras.
Option Explicit
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Any, ByVal wParam As Any, ByVal lParam As Any) As Long Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long
Const MB_DEFBUTTON1 = &H0& Const MB_DEFBUTTON2 = &H100& Const MB_DEFBUTTON3 = &H200& Const MB_ICONASTERISK = &H40& Const MB_ICONEXCLAMATION = &H30& Const MB_ICONHAND = &H10& Const MB_ICONINFORMATION = MB_ICONASTERISK Const MB_ICONQUESTION = &H20& Const MB_ICONSTOP = MB_ICONHAND Const MB_OK = &H0& Const MB_OKCANCEL = &H1& Const MB_YESNO = &H4& Const MB_YESNOCANCEL = &H3& Const MB_ABORTRETRYIGNORE = &H2& Const MB_RETRYCANCEL = &H5& Const ERROR_SUCCESS = &H0
Private Sub Command1_Click() Call RegisterServer(Me.hwnd, T.Text, True) End Sub
Private Sub Command2_Click() Call RegisterServer(Me.hwnd, T.Text, False) End Sub
Private Sub Form_Load() Form1.Caption = "DllRegister v1.0 by Krnl64" Command1.Caption = "Registrar" Command2.Caption = "Borrar Registro" End Sub
Private Sub Label2_Click() MessageBox Me.hwnd, " DllRegister registra las DLL's, OCX y Exe ActiveX que lo necesitan. Tan solo arrastre el fichero al cuadro de texto y pulse el boton correspondiente.", "Krnl64 & Demon Industries", MB_ICONASTERISK End Sub
Private Sub T_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) '-------------------------------------------------------------------------------- ' Componente : Sub OLEDragDrop para Drag & Drop I ' Proyecto : Dll Register ' Descripcion : Colocar nombredelcontrol-(barra baja)-OLEDragDrop ' Created by : Krnl64 & Demon Industries ' Machine : DEMON-LESS ' Date-Time : 23/08/2006-2:20:37 ' Parametros : No hace falta tocarlos . NOTA !!! El control debe soportar Drag & Drop '--------------------------- On Error GoTo f
Dim numFiles As Integer Dim i As Integer Dim a As String numFiles = Data.Files.Count ''Cuenta los archivos a agregar For i = 1 To numFiles GetAttr (Data.Files(i)) 'Se asegura de que el archivo existe a = T.Text If a = Empty Then T.Text = Data.Files(i) '' añade los archivos al textbox Else T.Text = a & vbCrLf + Data.Files(i) '' añade los archivos al textbox + Retorno de carro End If Next Exit Sub f: MessageBox Me.hwnd, "Asegurate de que el archivo(s) existe(n)", "Drag & Drop", MB_ICONSTOP End Sub
Private Sub T_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer) '-------------------------------------------------------------------------------- ' Componente : Sub OLEDragOver para Drag & Drop II ' Proyecto : Dll Register ' Descripcion : Colocar nombredelcontrol-(barra baja)-OLEDragOver ' Created by : Krnl64 & Demon Industries ' Machine : DEMON-LESS ' Date-Time : 23/08/2006-2:20:37 ' Parametros : No hace falta tocarlos . NOTA !!! El control debe soportar Drag & Drop '--------------------------- On Error GoTo r
If Data.GetFormat(vbCFFiles) Then '' Ve si se pueden arrastrar los archivos Effect = vbDropEffectCopy '' Icono de arrastre Else Effect = vbDropEffectNone '' En este caso, no se puede arrastrar End If Exit Sub r: MessageBox Me.hwnd, "Error al Arrastrar !!", "Drag & Drop", MB_ICONSTOP End Sub Public Function RegisterServer(hwnd As Long, DllPath As String, Register As Boolean) '-------------------------------------------------------------------------------- ' Componente : Funcion RegisterServer ' Proyecto : Dll Register ' Descripcion : Funcion que registra las Dll's, OCX, EXE ACtiveX, etc ' Created by : Krnl64 & Demon Industries ' Machine : DEMON-LESS ' Date-Time : 23/08/2006-2:44:23 ' Parametros : Hwnd (Handle de la ventana que llama la funcion, DllPath ruta del archivo y Register registrar o no '--------------------------- On Error GoTo e
Dim lb As Long Dim k As Long lb = LoadLibrary(DllPath) '' Cargamos el archivo en memoria
If Register = True Then k = GetProcAddress(lb, "DllRegisterServer") Else k = GetProcAddress(lb, "DllUnregisterServer") End If
If k = Empty Then GoTo e End If
If CallWindowProc(k, hwnd, ByVal 0&, ByVal 0&, ByVal 0&) = ERROR_SUCCESS Then If Register = True Then MessageBox Me.hwnd, "Dll Registrada con éxito", "DLLRegister", MB_ICONASTERISK T.Text = Empty Else MessageBox Me.hwnd, "Dll Desregistrada con éxito", "DLLRegister", MB_ICONASTERISK T.Text = Empty End If Else GoTo e End If FreeLibrary lb ' Descargamos de la memoria el archivo Exit Function e: MessageBox Me.hwnd, "El archivo no puede ser Registrado/Desregistrado o esta dañado.", "DLLRegister", MB_ICONSTOP T.Text = Empty End Function
Espero comentarios Salu2
|
|
|
2
|
Programación / Ingeniería Inversa / Ayuda de alguien que sepa bastante
|
en: 21 Agosto 2006, 21:31 pm
|
Soy Krnl64.
Necesito ayuda de alguien que domine bien el tema de la ingenieria inversa.
Mi problema es con la Dll TVICHW32 version 6.0 que sirve para desarrollar drivers.
Es Shareware y cuando pasan 30 dias ya no funciona.
Esta comprimida con Asprotect 2.0x y con Aspack 2.12
Para "anular" la proteccion de Asprotect la he dumpeado tras cargarla en un programa que hice.
La Dll original pesa 148 Kb la Dumpeada 212 Kb (parece que va bien)
Abro Import Reconstructor, cargo el proceso, selecciono la Dll Pongo en OEP 1001B1FB y le doy a Get Imports
Le doy a show invalids, Cut Thunk's y en teoria la DLL esta reparada.
Pero ahora esta protegida con Aspack 2.12 y no me deja cargarla en ningun proceso para poder dumpearla de nuevo.
Eso, suponiendo que todo lo anterior este bien hecho.
Ayudadme, no se que puedo hacer ahora.
Sabre recompensar
Salu2
|
|
|
3
|
Programación / Ingeniería Inversa / DLL protegida con ASprotect 2.0x
|
en: 17 Agosto 2006, 18:10 pm
|
Hola a todos.
Veran, tengo una dll que me es bastante valiosa. Esta Dll tiene una rutina para saber si esta registrada o no. Cuando pasan 30 dias, la Dll te manda un mensaje de Unregistered y no te deja usarla.
Mi problema es que esta protegida con Asprotect 2.0x registered version.
Si fuera 1 PE, la descomprimiria manualmente pero al ser 1 Dll no tengo ni idea de como puedo atacarla.
He probado varios unpackers de Asprotect y tampoco consigo nada.
Puede Alguien decirme con qué o cómo puedo desempacar esta DLL ?
Gracias
|
|
|
4
|
Programación / Programación Visual Basic / Ayuda con ZwRaiseException
|
en: 25 Julio 2006, 23:07 pm
|
hola a todos. Veran, me gustaria saber como manejar la api ZwRaiseException. La estructura de la funcion original en C es esta: ZwRaiseException( IN PEXCEPTION_RECORD ExceptionRecord, IN PCONTEXT Context, IN BOOLEAN SearchFrames );
Traducida a VB queda: Public Declare Function ZwRaiseException Lib "nt.dll" (EXCEPTIONRECORD As EXCEPTION_RECORD, context As context, SearchFrames As Boolean)
y las estructuras: Public Type context FltF0 As Double FltF1 As Double FltF2 As Double FltF3 As Double FltF4 As Double FltF5 As Double FltF6 As Double FltF7 As Double FltF8 As Double FltF9 As Double FltF10 As Double FltF11 As Double FltF12 As Double FltF13 As Double FltF14 As Double FltF15 As Double FltF16 As Double FltF17 As Double FltF18 As Double FltF19 As Double FltF20 As Double FltF21 As Double FltF22 As Double FltF23 As Double FltF24 As Double FltF25 As Double FltF26 As Double FltF27 As Double FltF28 As Double FltF29 As Double FltF30 As Double FltF31 As Double IntV0 As Double IntT0 As Double IntT1 As Double IntT2 As Double IntT3 As Double IntT4 As Double IntT5 As Double IntT6 As Double IntT7 As Double IntS0 As Double IntS1 As Double IntS2 As Double IntS3 As Double IntS4 As Double IntS5 As Double IntFp As Double IntA0 As Double IntA1 As Double IntA2 As Double IntA3 As Double IntA4 As Double IntA5 As Double IntT8 As Double IntT9 As Double IntT10 As Double IntT11 As Double IntRa As Double IntT12 As Double IntAt As Double IntGp As Double IntSp As Double IntZero As Double Fpcr As Double SoftFpcr As Double Fir As Double Psr As Long ContextFlags As Long Fill(4) As Long End Type
Public Type EXCEPTION_RECORD ExceptionCode As Long ExceptionFlags As Long pExceptionRecord As Long ExceptionAddress As Long NumberParameters As Long ExceptionInformation(EXCEPTION_MAXIMUM_PARAMETERS - 1) As Long End Type
Hasta aqui bien. El problema es que me gustaria llamar a la excepcion 0x0000000A (error en Windows Xp) No se hacerlo. Llamo a la excepcion asi: ZwRaiseException &0x0000000A ,context,True
Puede alguien ayudarme ? Gracias
|
|
|
7
|
Programación / Programación Visual Basic / proteger un programa de VB contra el crackeo
|
en: 19 Julio 2006, 20:13 pm
|
Hola a todos.
Veran, me preguntaba la forma de proteger 1 programa de VB contra el crackeo. No quiero usar programas externos porque aumenta el tamaño del ejecutable.
Les cuento lo que hasta ahora aplico:
* Uso la API IsDebuggerPresent
* Uso la API GetTickCount haciendo llamadas entre procedimientos para cronometrar el tiempo de la aplicacion y salirme despues si el programa es debuggeado
* Uso Strings cifrados
* Meto codigo muerto para engañar
* Le pongo CheckSum
* Le pongo proteccion Anti-Desensamblaje
*Uso algun compresor
Alguien puede darme mas ideas o consejos ?
Si son desde el codigo mejor, aunque si es editar el exe tampoco pasa nada
Gracias
|
|
|
8
|
Programación / Ingeniería Inversa / Ayuda para crackear Visustin 3.11
|
en: 17 Julio 2006, 14:23 pm
|
Hola a todos.
LLevo poco tiempo en el tema del crack.
El caso es que se me resiste Visustin 3.11
Esta hecho en VB y es 1 programa que te dibuja los algoritmos del codigo que le metas.
El programa tiene algunas opciones desactivadas y ademas al dibujar el grafico te lo rota y le mete falsas etiquetas.
Esto es aleatorio.
Tengo claro como crackearlo pero no se como hacerlo.
Veran, el programa tiene un formulario de registro pero no se como hacer que se muestre para poder seguir desde aqui.
He intentado desactivar los controles que se dibujan que no son del algoritmo (son controles labels) pero no funciona. Vuelven a aparecer.
O si les cambio el nombre a los labels, peta el programa.
Lo abro con SmartCheck y no produce eventos.
Puede ayudarme alguien ? Alguien ha conseguido crackearlo ?
Gracias
|
|
|
9
|
Media / Juegos y Consolas / error en Chankast (emulador de dreamcast)
|
en: 15 Junio 2006, 02:35 am
|
Hola a todos.
Veran, he instalado el emulador de dreamcast Chankast.
Todo va de perlas hasta que cargo algun juego.
Me sale el menu de dreamcast y cuando le doy a juego me dice que no esta dentro el cd de juego.
Uso Daemon 4.03
Puede alguien ayudarme ?
Gracias
|
|
|
10
|
Programación / Ingeniería Inversa / Duda al crackear MSVBVM.DLL
|
en: 7 Junio 2006, 03:22 am
|
Hola a todos.
Veran, estoy intentando crackear 1 programa llamado Visustin.
Bien, les expongo lo que quiero conseguir y como lo hago:
Este programa, crea gráficos de los procedimientos, funciones, etc.
Esta programado en VB6 asi que necesita la libreria MSVBVM.DLL.
Lo que suele hacer el programa es mirar en el directorio de instalacion para ver si esta la Dll aqui y si no esta, mira en el directorio system.
El programa, e su version DEMO, hace el grafico del código introducido, pero no te deja exportar el gráfico y ademas le pone en medio unos carteles de Visustin Demo.
He desensamblado el programa, y lo que hace que aparezca esto, es 1 control label llamado DemoEffects.
Bien, pues le cambio el nombre al control y aqui viene donde tengo que actuar yo.
El programa no se carga porque llama a la funcion ThunRTmain ( clase que es para cargar el programa VB) porque he cambiado el nombre del control label.
Entonces:
He copiado la DLL a donde tengo instalado el programa.
Y ahora lo que intento hacer es saber donde empieza esta funcion dentro de la DLL para poder modificarla y que cargue el programa.
Hasta ahora, no he conseguido hacerlo porque dentro de la DLL aparecen las funciones "declaradas" pero no en la direccion que empiezan.
Tambien he probado a correrlo con el Olly, y ponerle un breakpoint. Pero cuando accede a la funcion, me peta.
Podria hecharme alguien una mano ?
Gracias
|
|
|
|
|
|
|