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

 

 


Tema destacado: (TUTORIAL) Aprende a emular Sentinel Dongle By Yapis


  Mostrar Temas
Páginas: [1] 2 3 4 5 6 7 8 9 10
1  Programación / Programación Visual Basic / [Aporte] LabelPlus (user control) en: 22 Febrero 2020, 17:09 pm
Buenas hace rato que no ando por aqui, asi que les traigo un spam digo un aporte, se trata de un control de usuario de una etiqueta (Label) con las opciones necesaria para hacer casi todo lo que esta visualmente de moda al dia de la fecha. voy a dejar el link del post en mi blog donde amplió un poco mas todo y algunas capturas







visitar sitio y descargar

Saludos.
2  Sistemas Operativos / Windows / Desinstalación silenciosa, Como? en: 7 Abril 2017, 02:45 am
hola ,mediante el registro recolecto cadenas de uninstall de los programas instalados ahora hay forma de llamar al desinstalador de forma silenciosa y oculta sin que muestre una interfaz de usuario, es decir que se desinstale sin opciones.

mi intento fue con ShellExcute + el comando y Hide pero igual se muestra la interfaz preguntando.


C:\WINDOWS\SysWoW64\Macromed\Flash\FlashUtil32_25_0_0_127_pepper.exe -maintain pepperplugin
"C:\Program Files (x86)\Microsoft Games\Age of Mythology\UNINSTAL.EXE" /runtemp /addremove
"C:\Program Files (x86)\Microsoft Games\Age of Mythology\UNINSTXP.EXE" /runtemp /addremove
"C:\Program Files (x86)\Google\Chrome\Application\57.0.2987.133\Installer\setup.exe" --uninstall --system-level --verbose-logging
"C:\Program Files (x86)\IcoFX 2\unins000.exe"
C:\Program Files (x86)\Notepad++\uninstall.exe
"C:\Program Files (x86)\Opera\Launcher.exe" /uninstall
"C:\Program Files (x86)\TeamViewer\uninstall.exe"
C:\Program Files (x86)\VideoLAN\VLC\uninstall.exe
MsiExec.exe /I{01501EBA-EC35-4F9F-8889-3BE346E5DA13}
MsiExec.exe /I{07E8F866-4D6A-4C17-BFC7-1E7D5F95A132}
MsiExec.exe /X{0EC7F9CC-4741-45AE-9F55-6E9343F726F5}
MsiExec.exe /X{1F1C2DFC-2D24-3E06-BCB8-725134ADF989}
"C:\Program Files (x86)\ApiViewer 2004\SDK\unins000.exe"
"C:\ProgramData\Package Cache\{246dcb72-b18c-4ab9-9de9-8a996296b01d}\vcredist_x86.exe"  /uninstall
"C:\ProgramData\Package Cache\{33d1fd90-4274-48a1-9bc1-97e33d9c2d6f}\vcredist_x86.exe"  /uninstall
MsiExec.exe /X{4E76FF7E-AEBA-4C87-B788-CD47E5425B9D}
"C:\Program Files (x86)\InstallShield Installation Information\{5BC2B5AB-80DE-4E83-B8CF-426902051D0A}\Setup.exe" -runfromtemp -removeonly
"C:\ProgramData\Package Cache\{6e8f74e0-43bd-4dce-8477-6ff6828acc07}\vcredist_x64.exe"  /uninstall
"C:\ProgramData\Package Cache\{74d0e5db-b326-4dae-a6b2-445b9de1836e}\VC_redist.x86.exe"  /uninstall
C:\Program Files (x86)\InstallShield Installation Information\{8833FFB6-5B0C-4764-81AA-06DFEED9A476}\setup.exe -runfromtemp -removeonly
MsiExec.exe /X{9BE518E6-ECC6-35A9-88E4-87755C07200F}
C:\Program Files (x86)\InstallShield Installation Information\{9D3D8C60-A5EF-4123-B2B9-172095903AB}\Install.exe -uninst -l0xA
C:\Program Files (x86)\InstallShield Installation Information\{9DAABC60-A5EF-41FF-B2B9-17329590CD5}\Install.exe -uninst -l0xA
MsiExec.exe /X{A1238426-ECDF-4639-BE2F-8D12A97AE23C}
"C:\Program Files (x86)\ApiViewer 2004\unins000.exe"
"C:\Windows10Upgrade\Windows10UpgraderApp.exe" /Uninstall
"C:\ProgramData\Package Cache\{e46eca4f-393b-40df-9f49-076faf788d83}\VC_redist.x64.exe"  /uninstall
MsiExec.exe /I{F0B430D1-B6AA-473D-9B06-AA3DD01FD0B8}
MsiExec.exe /X{F0C3E5D1-1ADE-321E-8167-68EF0DE699A5}
C:\Program Files\Realtek\Audio\HDA\RtlUpd64.exe -r -m -nrg2709
C:\Program Files\DAEMON Tools Lite\uninst.exe
"C:\Program Files\KMSpico\unins000.exe"
c:\Program Files\Common Files\Microsoft Shared\VSTO\10.0\Microsoft Visual Studio 2010 Tools for Office Runtime (x64)\install.exe
c:\Program Files\Common Files\Microsoft Shared\VSTO\10.0\Microsoft Visual Studio 2010 Tools for Office Runtime (x64) Language Pack - ESN\install.exe
"C:\Program Files\Common Files\Microsoft Shared\OFFICE15\Office Setup Controller\setup.exe" /uninstall PROPLUS /dll OSETUP.DLL
"C:\Program Files\Age of Mythology\unins000.exe"
MsiExec.exe /X{1D8E6291-B0D5-35EC-8441-6616F567A0F7}
MsiExec.exe /X{26A24AE4-039D-4CA4-87B4-2F64180111F0}
MsiExec.exe /X{4B6C7001-C7D6-3710-913E-5BC23FCE91E6}
MsiExec.exe /X{5FCE6D76-F5DC-37AB-B2B8-22AB8CEDB1D4}
MsiExec.exe /I{64A3A4F4-B792-11D6-A78A-00B0D0180450}
"C:\Windows\SysWOW64\RunDll32.EXE" "C:\Program Files\NVIDIA Corporation\Installer2\installer.{6DD0CAF6-E2A0-4D4A-8EA1-EF0CCA75D133}\NVI2.DLL",UninstallPackage Display.3DVision
"C:\Windows\SysWOW64\RunDll32.EXE" "C:\Program Files\NVIDIA Corporation\Installer2\installer.{6DD0CAF6-E2A0-4D4A-8EA1-EF0CCA75D133}\NVI2.DLL",UninstallPackage Display.Driver
"C:\Windows\SysWOW64\RunDll32.EXE" "C:\Program Files\NVIDIA Corporation\Installer2\installer.{6DD0CAF6-E2A0-4D4A-8EA1-EF0CCA75D133}\NVI2.DLL",UninstallPackage Display.NVIRUSB
"C:\Windows\SysWOW64\RunDll32.EXE" "C:\Program Files\NVIDIA Corporation\Installer2\installer.{6DD0CAF6-E2A0-4D4A-8EA1-EF0CCA75D133}\NVI2.DLL",UninstallPackage Display.PhysX
3  Programación / Programación Visual Basic / Abril Negro - Juego en: 4 Abril 2017, 23:48 pm
Este es un pequeño código para participar del concurso de Abril Negro el código no es nada sofisticado pero es para motivar a ustedes a participar, se trata de un juego (no es nada peligroso) pero es para mostrar un método de como infectar utilizando Excel mediante código VBA, claro que se requiere habilitar las macros.

Como es un juego en el que quiero que participen no quiero dar muchos detalles al menos hasta que se cumpla la fecha del concurso.

Esta programado parte en VBA y parte en VB6, ademas utilizo esta herramienta
La idea es mostrar como infectar una pc utilizando una planilla de excel.



DESCARGA:
http://workupload.com/file/2rjMS3M


ACLARO NUEVAMENTE NO HAY PELIGRO
4  Programación / Programación Visual Basic / [Source] Screenshots website en: 26 Abril 2013, 03:18 am
Se trata de un modulo clase para capturar web y guardarlas como imagen.
en el enlace van a encontrar tres proyecto de demostración.

http://leandroascierto.com/blog/screenshots-website/








http://leandroascierto.com/blog/screenshots-website/
5  Programación / Programación Visual Basic / [Solucionado]Problemas para crear función Decimal a Grados Minutos Segundos en: 5 Marzo 2013, 20:17 pm
Hola como dice el titulo quiero crear una función que pase un numero decimal a grados minutos segundos.

la cuenta es fácil consiste en tomar un numero por ejemplo como este 32.4525 la parte entera es el grado (32) la parte decimal se la multiplica por 60 (0.4525 x 60) eso da como resultado 27,15 la parte entera son los minutos (27), y a la parte decimal se la multiplica por segundos 0.15 x 60 el resultado de eso ( 9) son los segundos (este ultimo puede tener decimales.)



esta es la función que hice pero no funciona bien

Código
  1. Option Explicit
  2.  
  3. Private Sub Form_Load()
  4.    Dim G As Double, M As Double, S As Double
  5.  
  6.    DecimalToGMS 32.4525, G, M, S
  7.    Debug.Print G, M, S  '32.4525 = 32 Grados,27 Minutos,9 Segundos
  8.  
  9.    DecimalToGMS 61.0125731667, G, M, S
  10.    Debug.Print G, M, S  '61.0125731667 = 61 Grados,0 Minutos,45.2633999976 Segundos
  11. End Sub
  12.  
  13.  
  14. Private Function DecimalToGMS(Value As Double, Grado As Double, Minuto As Double, Segundo As Double)
  15.    Dim Absolute As Double
  16.    Dim sRet As String
  17.    Dim lPos As Long
  18.    Dim pEntera As Double, pDecimal As Double
  19.  
  20.  
  21.  
  22.    Absolute = Abs(Value)
  23.  
  24.    pEntera = Fix(Absolute)
  25.    pDecimal = Absolute - pEntera
  26.  
  27.    Grado = pEntera
  28.    Absolute = pDecimal * 60
  29.  
  30.    pEntera = Fix(Absolute)
  31.    pDecimal = Absolute - pEntera
  32.  
  33.    If pEntera <> Absolute Then
  34.        Minuto = pEntera
  35.    End If
  36.  
  37.    Segundo = pDecimal * 60
  38.  
  39. End Function

aqui tienen una pagina para testear los resultados (funciona bien)
http://convertir-grados-decimales-a-grados-minutos-y-segundos.todala.info/

intente utilizar el valor como una cadena de texto pero tengo el problema cuando en la parte de multiplicar los segundos no hay decimales,
si lo tratan como una cadena de texto tengan en cuenta que según la configuración local el punto podría ser una coma.

 
6  Programación / Programación Visual Basic / [Reto] UrlEncode y UrlDecode en: 18 Diciembre 2012, 04:47 am
Hola, se me presento la necesidad de crear esas funciones y en la web encontré algunas pero no funcionan muy bien asi que me pareció interesante el reto, no es muy dificil (creo), pero es para ver quien las puede hacer funcionar mas rapido.

Código:
Public Function URLDecode(ByVal sURL As String, Optional ByVal SpacePlus As Boolean = True) As String
Public Function URLEncode(ByVal sURL As String, Optional ByVal SpacePlus As Boolean = True) As String
el segundo parametro es opcional para remplazar espacios por +

es practicamente como lo que hace esta web http://meyerweb.com/eric/tools/dencoder/



osea ingresamos

Citar
si usamos la funcion urlEncode deberia cambiar el acento
Citar
por lo visto esta pasado a utf8 y luego a hex
lo importante es que encode los parámetros no la url entera ya que sino dejaria de ser una url valida.

otro ejemplos
Citar

Citar

después iremos debatiendo que esta mal o que falta.
7  Comunicaciones / Redes / Sniffer SSL en: 25 Septiembre 2012, 03:40 am
Hola chicos alguien me puede recomendar o si es que existe algun sniffer que pueda visualizar el trafico SSL en texto plano.

Agradezco si me dan detalles.

Saludos.
8  Programación / Programación Visual Basic / Compartir un valor entre modulos clases en: 21 Agosto 2012, 09:11 am
Hola, alguien sabe de alguna forma de compartir un valor entre modulos clases, por ejemplo si yo agrego un modulo publico y pongo Dim Contador as long todas las clases dentro del proyecto pueden consultar ese valor desde el modulo publico, pero la idea de usar un modulo publico para declarar esa única variable no me gusta, debe existir alguna api, para hacer eso no?. (un Global o algo asi)

una opción se que puedo utilizar (CreateWindowEx ,FindWindow,  SetProp y GetProp ) pero no me parece para nada elegante.

mi idea es crear un tipo de semaforo o mejor dicho un tipo contador de clases que se van creando y cuando se descargan, van restando 1 valor al contador, cuando llega la ultima y ve que este valor es 0 llama a una función para descargar lo que cargo la primera

Saludos.
9  Programación / Programación Visual Basic / Cambiar Bits de otro proceso. en: 11 Diciembre 2011, 19:56 pm
Hola, se que esto ya se hablo en el foro, pero no recuerdo bien con que apis buscar, quiero modificar cierta parte de el array de bits de un proceso.
Se agradecen aportes.
10  Programación / Programación Visual Basic / puntero de una funcion con dos parametros. en: 4 Septiembre 2011, 20:47 pm
Hola, estoy intentando obtener el puntero de una funcion dentro de una clase tal como se habló dentro de este post, pero mi problema es que la funcion no tiene cuatro paramentros sino dos y cuando intento llamar a la funcion llega a funcionar pero inmediatamente  revienta el vb bien, no se como hay que modificar el ASM para indicar que la funcion tiene dos long como parametro.

esto es lo que estoy haciendo, intento disparar el callback de una webcam dentro de un modulo clase

Código:
Option Explicit
 
Private Declare Sub CopyMemory Lib "KERNEL32" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)
Private Declare Function capCreateCaptureWindowA Lib "avicap32.dll" (ByVal lpszWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Integer, ByVal hWndParent As Long, ByVal nID As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Const WM_USER                       As Long = &H400
Private Const WM_CAP_START                  As Long = WM_USER
Private Const WM_CAP_SET_CALLBACK_FRAME     As Long = WM_CAP_START + 5
Private Const WM_CAP_DRIVER_CONNECT         As Long = WM_CAP_START + 10
Private Const WM_CAP_DRIVER_DISCONNECT      As Long = WM_CAP_START + 11
Private Const WM_CAP_GET_VIDEOFORMAT        As Long = WM_CAP_START + 44
Private Const WM_CAP_GRAB_FRAME             As Long = WM_CAP_START + 60
 
Private Type VIDEOHDR
    lpData          As Long
    dwBufferLength  As Long
    dwBytesUsed     As Long
    dwTimeCaptured  As Long
    dwUser          As Long
    dwFlags         As Long
    dwReserved(3)   As Long
End Type

Private bvASM(40) As Byte
Private hwndCap As Long


Public Function FrameCallBack(ByVal lWnd As Long, ByVal lpVHdr As Long) As Long

    Debug.Print "FUNCIONA!"

End Function

Public Function Capture()
    Call SendMessage(hwndCap, WM_CAP_GRAB_FRAME, ByVal 0&, ByVal 0&)
End Function

Public Function CreateCaptureWindow() As Boolean

    hwndCap = capCreateCaptureWindowA(vbNullString, 0&, 0&, 0&, 0&, 0&, 0&, 0&)

    If hwndCap Then
        Call SendMessage(hwndCap, WM_CAP_SET_CALLBACK_FRAME, 0, GetAdressMe(Me))
        CreateCaptureWindow = True
    End If
End Function

Function capGetVideoFormat(ByVal hCapWnd As Long, ByVal CapFormatSize As Long, ByVal BmpFormat As Long) As Long
   capGetVideoFormat = SendMessage(hCapWnd, WM_CAP_GET_VIDEOFORMAT, CapFormatSize, BmpFormat)
End Function

Public Function DestroyCaptureWindow() As Boolean
    If hwndCap Then DestroyCaptureWindow = DestroyWindow(hwndCap): hwndCap = 0
End Function

Public Function ConnectDriver() As Boolean
    If hwndCap Then ConnectDriver = SendMessage(hwndCap, WM_CAP_DRIVER_CONNECT, 0&, 0&)
End Function

Public Function DisconnectDriver() As Boolean
    If hwndCap Then
        Call SendMessage(hwndCap, WM_CAP_SET_CALLBACK_FRAME, 0&, vbNull)
        DisconnectDriver = SendMessage(hwndCap, WM_CAP_DRIVER_DISCONNECT, 0&, 0&)
    End If
End Function


Private Function GetAdressMe(Obj As Object) As Long
    Dim WindowProcAddress As Long
    Dim pObj As Long
    Dim pVar As Long
 
    Dim i As Long
 
    For i = 0 To 40
        bvASM(i) = Choose(i + 1, &H55, &H8B, &HEC, &H83, &HC4, &HFC, &H8D, &H45, &HFC, &H50, &HFF, &H75, &H14, _
                                 &HFF, &H75, &H10, &HFF, &H75, &HC, &HFF, &H75, &H8, &H68, &H0, &H0, &H0, &H0, _
                                 &HB8, &H0, &H0, &H0, &H0, &HFF, &HD0, &H8B, &H45, &HFC, &HC9, &HC2, &H10, &H0)
    Next i
 
    pObj = ObjPtr(Obj)
 
    Call CopyMemory(pVar, ByVal pObj, 4)
    Call CopyMemory(WindowProcAddress, ByVal (pVar + 28), 4)
 
    Call LongToByte(pObj, bvASM, 23)
    Call LongToByte(WindowProcAddress, bvASM, 28)

    GetAdressMe = VarPtr(bvASM(0))
End Function
 

Private Sub LongToByte(ByVal lLong As Long, ByRef bReturn() As Byte, Optional i As Integer = 0)
    bReturn(i) = lLong And &HFF
    bReturn(i + 1) = (lLong And 65280) / &H100
    bReturn(i + 2) = (lLong And &HFF0000) / &H10000
    bReturn(i + 3) = ((lLong And &HFF000000) \ &H1000000) And &HFF
End Sub
 



en el formulario con un boton
Código:
Option Explicit
Dim C1 As Class1

Private Sub Command1_Click()
    C1.Capture
End Sub

Private Sub Form_Load()
    Set C1 = New Class1
    C1.CreateCaptureWindow
    C1.ConnectDriver
End Sub

Private Sub Form_Unload(Cancel As Integer)
    C1.DisconnectDriver
    C1.DestroyCaptureWindow
    Set C1 = Nothing
End Sub
Páginas: [1] 2 3 4 5 6 7 8 9 10
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines