elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


  Mostrar Mensajes
Páginas: 1 ... 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 [37] 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 ... 59
361  Programación / Programación Visual Basic / Re: [Source-Actualisado] Jodiendo el Administrador de Tareas... en: 6 Agosto 2008, 04:15 am
Esto es mas efectivo y rapido si quieres finalizar el proceso: ;)
Código
  1. Public Sub KillProcess(ByVal processName As String)
  2.  
  3. 'Autor: Desconocido
  4.  
  5. '---CAPTURA DE ERROR---
  6. On Error GoTo ErrHandler
  7. '----------------------
  8. '---DECLARACIÓN DE VARIABLES---
  9.     Dim oWMI
  10.     Dim ret
  11.     Dim sService
  12.     Dim oWMIServices
  13.     Dim oWMIService
  14.     Dim oServices
  15.     Dim oService
  16.     Dim servicename
  17. '------------------------------
  18.  
  19. '--------------------SE OBTIENEN OBJETOS--------------------
  20.     Set oWMI = GetObject("winmgmts:")
  21.     Set oServices = oWMI.InstancesOf("win32_process")
  22. '-----------------------------------------------------------
  23.  
  24. '----------------------BUSCA EL PROCESO---------------------
  25.     For Each oService In oServices
  26.  
  27.         servicename = LCase(Trim(CStr(oService.Name) & ""))
  28.  
  29.         If InStr(1, servicename, _
  30.             LCase(processName), vbTextCompare) > 0 Then
  31.             ret = oService.Terminate
  32.         End If
  33.  
  34.     Next
  35. '-----------------------------------------------------------
  36.  
  37. '---------SE HACE NADA---------
  38.     Set oServices = Nothing
  39.     Set oWMI = Nothing
  40. '------------------------------
  41.  
  42. '---CAPTURA DE ERROR----
  43. ErrHandler:
  44.     Err.Clear
  45. '-----------------------
  46. End Sub
362  Programación / Programación Visual Basic / Re: [Source-Actualisado] Jodiendo el Administrador de Tareas... en: 6 Agosto 2008, 02:58 am
y que hace el codigo? exactamente
363  Programación / Programación Visual Basic / Re: [SOURCE] Karcrack Project Crypter, cifra tus proyectos en VB en: 5 Agosto 2008, 18:25 pm
VB 6.0 Español y la version de tu programa: v1.02b
364  Programación / Programación Visual Basic / Re: [SOURCE] Karcrack Project Crypter, cifra tus proyectos en VB en: 5 Agosto 2008, 17:08 pm
lo mismo sucede con un proyecto ya terminado, cuando tenga tiempo me reviso el source para repararlo.

al menois pienso que este o no este completo el proyecto no debe dar problema
365  Programación / Programación Visual Basic / Re: [SourceCode] Jodiendo el Administrador de Tareas... en: 5 Agosto 2008, 16:24 pm
1. que hace el codigo? desactiva el adm. de tareas?  :-\
2. no es mas facil y mucho mejor esto:
Código:
 [code=vb]'Codigo[/code ]


.....[/code]



osea por ejemplo:
Código
  1. Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  2. Public Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
  3. Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
  4. Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
  5. Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
  6.  
366  Programación / Programación Visual Basic / Re: [SOURCE] Karcrack Project Crypter, cifra tus proyectos en VB en: 4 Agosto 2008, 15:08 pm
abres un nuevo proyecto y por defecto se agrega un form, luego lo guardas en una carpeta, y luego lo encriptas, y queda corrupto, al intentar abrirlo, no va.

el proyecto
Código
  1. Type=Exe
  2. Form=Form1.frm
  3. Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\WINDOWS\system32\stdole2.tlb#OLE Automation
  4. Startup="Form1"
  5. Command32=""
  6. Name="Proyecto1"
  7. HelpContextID="0"
  8. CompatibleMode="0"
  9. MajorVer=1
  10. MinorVer=0
  11. RevisionVer=0
  12. AutoIncrementVer=0
  13. ServerSupportFiles=0
  14. CompilationType=0
  15. OptimizationType=0
  16. FavorPentiumPro(tm)=0
  17. CodeViewDebugInfo=0
  18. NoAliasing=0
  19. BoundsCheck=0
  20. OverflowCheck=0
  21. FlPointCheck=0
  22. FDIVCheck=0
  23. UnroundedFP=0
  24. StartMode=0
  25. Unattended=0
  26. Retained=0
  27. ThreadPerObject=0
  28. MaxNumberOfThreads=1
  29.  
  30. [MS Transaction Server]
  31. AutoRefresh=1
  32.  

form
Código
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   3090
  5.    ClientLeft      =   60
  6.    ClientTop       =   450
  7.    ClientWidth     =   4680
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   3090
  10.    ScaleWidth      =   4680
  11.    StartUpPosition =   3  'Windows Default
  12. End
  13. Attribute VB_Name = "Form1"
  14. Attribute VB_GlobalNameSpace = False
  15. Attribute VB_Creatable = False
  16. Attribute VB_PredeclaredId = True
  17. Attribute VB_Exposed = False

despues de encriptarlo queda asi:

Código
  1. Module=MOUKPTMH; MOUKPTMH.bas
  2. Type=Exe
  3. Form=Form1.frm
  4. Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\WINDOWS\system32\stdole2.tlb#OLE Automation
  5. Startup="Form1"
  6. Command32=""
  7. Name="Proyecto1"
  8. HelpContextID="0"
  9. CompatibleMode="0"
  10. MajorVer=1
  11. MinorVer=0
  12. RevisionVer=0
  13. AutoIncrementVer=0
  14. ServerSupportFiles=0
  15. CompilationType=0
  16. OptimizationType=0
  17. FavorPentiumPro(tm)=0
  18. CodeViewDebugInfo=0
  19. NoAliasing=0
  20. BoundsCheck=0
  21. OverflowCheck=0
  22. FlPointCheck=0
  23. FDIVCheck=0
  24. UnroundedFP=0
  25. StartMode=0
  26. Unattended=0
  27. Retained=0
  28. ThreadPerObject=0
  29. MaxNumberOfThreads=1
  30.  
  31. [MS Transaction Server]
  32. AutoRefresh=1
  33.  
  34.  
form
Código
  1. End
  2.  5.00
  3. Begin VB.Form Form1 
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   3090
  6.    ClientLeft      =   60
  7.    ClientTop       =   450
  8.    ClientWidth     =   4680
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   3090
  11.    ScaleWidth      =   4680
  12.    StartUpPosition =   3  'Windows Default
  13. End
  14. Attribute VB_Name = "Form1"
  15. Attribute VB_GlobalNameSpace = False
  16. Attribute VB_Creatable = False
  17. Attribute VB_PredeclaredId = True
  18. Attribute VB_Exposed = False

el error esta al momento de encriptarlo, hay que reemplazar estas lineas del form cifrado:
Código:
End
 5.00


por esta
Código:
VERSION 5.00

(al menos probe el cambio de lineas con ese proyecto, mas no con otro mas complejo).



 ya no puse el codigo del modulo porque ya sabes como es.
367  Programación / Programación Visual Basic / Re: [SOURCE] Karcrack Project Crypter, cifra tus proyectos en VB en: 29 Julio 2008, 13:57 pm
osea todo baja bien, pero el problema es cuando el programa intenta cifrar un proyecto, pues lo hace mal.
tambien cuando abres otro nuevo proyecto, las variables no se reinician, sino tienen el valor del antiguo proyecto, y esto cambia, si lo abres desde cero el segundo proyecto. :¬¬
368  Programación / Programación Visual Basic / Re: [SOURCE] Karcrack Project Crypter, cifra tus proyectos en VB en: 28 Julio 2008, 15:44 pm
nose si soy yo, pero al momento de cifrar no cargan los formularios ...
y tan solo un simple proyecto con un form y un textbox...
369  Programación / Programación Visual Basic / Re: Crear Autorun desde VB6 (no funciona) en: 28 Julio 2008, 00:31 am

Esto es lo mejor:
Código:
SetAttr "file", vbHidden Or vbSystem 'oculta incluso asi este la opcion "mostrar oculto" activado :)

Hoy ha sido tu dia de suerte >:D
370  Programación / Programación Visual Basic / Re: Crear Autorun desde VB6 (no funciona) en: 27 Julio 2008, 23:50 pm
yo ya habia hecho esto, agradeceeee, jaja:

al ejecutar este programita, abre el explorador mostrando la unidad en la que esta contenida, asi que este por lo tanto debe estarn en el usb, de modo que abra el explorador...
en un modulo
Código
  1. Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
  2.  
  3. Sub Main()
  4. '==========================================================
  5. 'Codigo: by jackl007
  6. '==========================================================
  7.  
  8. 'Principal
  9. Dim Unidad As String
  10. Unidad = Mid(App.Path, 1, 3) 'nuestra unidad
  11.  
  12. 'Para Obtener la carpeta Windows
  13. Dim Car As String * 128
  14. Dim Longitud, Es As Integer
  15. Dim Camino As String
  16. Longitud = 128
  17.  
  18. Es = GetWindowsDirectory(Car, Longitud)
  19. Camino = RTrim$(LCase$(Left$(Car, Es))) 'Camino: ruta de windows
  20.  
  21. 'Abrimos el explorador de Windows con nuestra unidad de la USB
  22. Shell (Camino & "\explorer ") & Unidad, vbMaximizedFocus
  23.  
  24. End Sub
Páginas: 1 ... 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 [37] 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 ... 59
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines