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
51  Programación / Programación Visual Basic / Activador de Windows XP en Visual Basic 6 en: 29 Abril 2012, 22:41 pm
En este caso realizaremos un Activador "Genuine" de Windows XP, simplemente lo que realizara nuestro programa es, mediante a un modulo, tomar datos del registro de windows y luego escribir en él.

Para ello utilizaremos una libreria incluida en Windows XP llamada "advapi32.dll", luego trabajaremos con la ruta de registro "SOFTWARE\MICROSOFT\Windows NT\CurrentVersion"; en esta ruta se encuentra nuestro serial codificado, que luego decodificaremos y a su ves codificaremos el nuevo serial.


Utilizaremos básicamente dos botones "Verificar" llamado "cmdComprobar" y "Registrar" llamado "CmdInsertar", luego dos labels, uno corresponderá a la versión llamado "lblVersion" y otro a la licencia "Label3", también un ComboBox llamado "cbSerial" el cual estará oculto. Los demás son simplemente para darle un aspecto mas provechoso al programa.

Bien, comenzaremos por el formulario principal (Main.frm):

Código
  1. Private Sub Form_Load()
  2.    Centrar Me
  3.    DatosActuales
  4.    CargarSeriales
  5. End Sub

Aquí primero centraremos el formulario en la pantalla. Luego:

Código
  1. Private Sub cmdComprobar_Click()
  2.    DatosActuales
  3.    If lblClave.Caption = "BVXT3-HMX82-3T69H-9WC87-7JJKW" Then
  4.        Label3.Caption = "Genuine"
  5.        Label3.ForeColor = vbBlue
  6.    Else
  7.        Label3.Caption = "Copia"
  8.        Label3.ForeColor = vbRed
  9.    End If
  10. End Sub

Tomaremos los datos actuales del windows y verificaremos si tiene el serial genuino, si es que no es copia.

Código
  1. Private Sub DatosActuales()
  2.    lblVersion.Caption = VerVersion
  3.    lblClave.Caption = SacarClave
  4. End Sub
  5.  
  6. Private Sub CargarSeriales()
  7.    cbSerial.Clear
  8.    cbSerial.AddItem "BVXT3-HMX82-3T69H-9WC87-7JJKW" 's
  9.    cbSerial.ListIndex = 0
  10. End Sub

Luego definimos las variables para los datos actuales y cargamos un serial por defecto en el combobox.

Código
  1. Private Sub CmdInsertar_Click()
  2.    InsertarSerial Trim(cbSerial.Text)
  3. End Sub

Por ultimo llamamos a la función para insertar el serial correspondiente en el registro de windows.

Bien, ahora vamos al modulo, agregaremos un modulo llamado "modulo.bas":

Código
  1. Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
  2. Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
  3. Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
  4.  
  5. Private Const REG_BINARY = 3
  6. Private Const HKEY_LOCAL_MACHINE = &H80000002
  7. Private Const REG_SZ = 1
  8. ' Ruta del registro donde Windows guarda la clave (codificada) y la versión
  9. Private Const RUTA_REGISTRO = "SOFTWARE\MICROSOFT\Windows NT\CurrentVersion"
  10.  
  11. ' Obtenemos la clave actual
  12.  
  13. Public Function SacarClave() As String
  14. Dim bID(164) As Byte, bKey(14) As Byte, bAsc(24) As Byte
  15. Dim lBit As Long, hKey As Long
  16.  
  17. If RegOpenKey(HKEY_LOCAL_MACHINE, RUTA_REGISTRO, hKey) = 0 Then
  18.    If RegQueryValueEx(hKey, "DigitalProductId", 0&, REG_BINARY, bID(0), 164) = 0 Then
  19.        For lBit = 52 To 66
  20.            bKey(lBit - 52) = bID(lBit)
  21.        Next lBit
  22.    Else
  23.        SacarClave = "No se puede leer la clave."
  24.        Exit Function
  25.    End If
  26. Else
  27.    SacarClave = "No se puede acceder al registro."
  28.    Exit Function
  29. End If
  30.  
  31. 'Descodificar la clave
  32.  
  33. bAsc(0) = Asc("B"): bAsc(1) = Asc("C"): bAsc(2) = Asc("D")
  34. bAsc(3) = Asc("F"): bAsc(4) = Asc("G"): bAsc(5) = Asc("H")
  35. bAsc(6) = Asc("J"): bAsc(7) = Asc("K"): bAsc(8) = Asc("M")
  36. bAsc(9) = Asc("P"): bAsc(10) = Asc("Q"): bAsc(11) = Asc("R")
  37. bAsc(12) = Asc("T"): bAsc(13) = Asc("V"): bAsc(14) = Asc("W")
  38. bAsc(15) = Asc("X"): bAsc(16) = Asc("Y"): bAsc(17) = Asc("2")
  39. bAsc(18) = Asc("3"): bAsc(19) = Asc("4"): bAsc(20) = Asc("6")
  40. bAsc(21) = Asc("7"): bAsc(22) = Asc("8"): bAsc(23) = Asc("9")
  41.  
  42. Dim i As Integer, j As Integer, sClave As String
  43. For lBit = 24 To 0 Step -1
  44.    i = 0
  45.    For j = 14 To 0 Step -1
  46.        i = i * 256 Xor bKey(j)
  47.        bKey(j) = Int(i / 24)
  48.        i = i Mod 24
  49.    Next j
  50.    sClave = Chr(bAsc(i)) & sClave
  51.    If lBit Mod 5 = 0 And lBit <> 0 Then sClave = "-" & sClave
  52. Next lBit
  53. SacarClave = sClave
  54. End Function
  55.  
  56. ' Obtenemos la clave actual
  57.  
  58. Public Function VerVersion()
  59. Dim lRet As Long
  60. RegOpenKey HKEY_LOCAL_MACHINE, RUTA_REGISTRO, lRet
  61. VerVersion = SacarValorRegistro(lRet, "ProductName")
  62. RegCloseKey lRet
  63. RegOpenKey HKEY_LOCAL_MACHINE, RUTA_REGISTRO, lRet
  64. VerVersion = VerVersion & " - " & SacarValorRegistro(lRet, "CSDVersion")
  65. RegCloseKey lRet
  66. End Function
  67.  
  68. ' Leer valor de registro
  69.  
  70. Function SacarValorRegistro(ByVal HKLM As Long, ByVal sValor As String) As String
  71. Dim lRet As Long, lInfoValor As Long
  72. Dim lLen As Long, sBuffer As String
  73.  
  74. lRet = RegQueryValueEx(HKLM, sValor, 0, lInfoValor, ByVal 0, lLen)
  75. If lRet = 0 Then
  76.    If lInfoValor = REG_SZ Then
  77.        sBuffer = String(lLen, Chr$(0))
  78.        lRet = RegQueryValueEx(HKLM, sValor, 0, 0, ByVal sBuffer, lLen)
  79.        If lRet = 0 Then
  80.            SacarValorRegistro = Left$(sBuffer, InStr(1, sBuffer, Chr$(0)) - 1)
  81.        End If
  82.    ElseIf lInfoValor = REG_BINARY Then
  83.        Dim strData As Integer
  84.        lRet = RegQueryValueEx(HKLM, sValor, 0, 0, strData, lLen)
  85.        If lRet = 0 Then SacarValorRegistro = strData
  86.    End If
  87. End If
  88. End Function
  89.  
  90. ' Cambiar serial del registro
  91.  
  92. Public Sub InsertarSerial(Serial As String)
  93.  
  94. On Error Resume Next
  95.  
  96. Dim TodoOk As Boolean
  97. TodoOk = True
  98.  
  99. If Serial = "" Then
  100.    MsgBox "Complete el Número de Serie que quiere insertar!", vbExclamation, "Nº de Serie inválido"
  101.    TodoOk = False
  102.    XPReg.cbSerial.SetFocus
  103. Else
  104.    If Len(Serial) <> 29 Then
  105.        MsgBox "El Número de Serie a Insertar debe poseer 29 dígitos" & vbCrLf & "Controle", vbExclamation, "Nº de Serie inválido"
  106.        TodoOk = False
  107.        XPReg.cbSerial.SetFocus
  108.    End If
  109. End If
  110.  
  111.    If TodoOk = True Then
  112.        Dim VOL_PROD_KEY As String
  113.        VOL_PROD_KEY = Replace(Serial, "-", "")
  114.  
  115.        For Each obj In GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("win32_WindowsProductActivation")
  116.           result = obj.SetProductKey(VOL_PROD_KEY)
  117.           If Err <> 0 Then
  118.              MsgBox Err.Description, "0x" & Hex(Err.Number)
  119.              Err.Clear
  120.           End If
  121.        Next
  122.  
  123.        MsgBox "¡Su Microsoft Windows XP es Genuino!" & vbCrLf & vbCrLf & "Verifíquelo pulsando el botón Verificar", vbInformation, "Registro Exitoso!"
  124.        XPReg.cmdComprobar.SetFocus
  125.    End If
  126.  
  127. End Sub
  128.  
  129. ' Centrar el formulario
  130.  
  131. Public Sub Centrar(Frm As Form)
  132.    Frm.Left = (Screen.Width / 2) - (Frm.Width / 2)
  133.    Frm.Top = (Screen.Height / 2) - (Frm.Height / 2) - 600
  134. End Sub

Un modulo lo podemos utilizar para declarar funciones, acciones, variables y realizar calculos y llamarlos con tan solo poner el nombre de la funcion, en este caso la función "SacarClave"  la utilizamos para decodificar y mover el serial a una variable que luego comparamos con el serial original y damos como genuino o no al serial. A su ves también tenemos la función de "VerSerial", la cual solamente toma datos del registro; entre otras más...

FUENTE: http://www.nochesdecode.com.ar/2012/04/activador-de-windows-xp-en-visual-basic.html
52  Foros Generales / Noticias / Un hacker fue capturado por ostentar los pechos de su novia en: 19 Abril 2012, 01:48 am
Se trata del pirata informático w0rmer. Según indican fuentes del FBI varias veces logró ingresar a los sistemas federales.


El activista informático había atacado varias veces los sitios de la policía de Houston y Los Ángeles. W0rmer es en realidad Higinio Ochoa, de 30 años, y fue descubierto por el FBI gracias a una foto de los pechos de su novia que él mismo publicó en su cuenta de Twitter.
Este experimentado pirata digital no tuvo en cuenta un detalle fundamental: los iPhone dejan en las fotos tomadas una metadata de información sobre qué tipo de aparato tomó la foto, con qué configuración y, lo más importante, dónde se tomó la imagen, indicando hasta la latitud exacta.
En este caso la imagen había sido tomada en un departamento en Wantirna South, Melbourne, Australia.
Los agentes, venían siguiendo a diario la cuenta @Anonw0rmer ya que en la misma se adjudicaba abiertamente los ataques, se encontraron con una sorpresa: la foto de un escote con un cartel cuya leyenda era "<3 u bitch’s" (les queremos prostitutas).
Gracias a la publicación constante de imágenes en su centa de Twitter los investigadores descubrieron otra foto que les dio información. En ella se veía una pantalla de computadora con una serie de programas con un mensaje de ERROR. Uno de ellos era Skype, que estaba siendo utilizado por el usuario Anonw0rmer, en otro programa el nombre de usuario era @higochoa. A partir de ahí las piezas del rompecabezas empezaron a encajar.
Una búsqueda rápida en internet permitió identificar a ese usuario como Higinio Ochoa y residente en Galveston, y una consulta en Facebook reveló que el individuo tenía una relación sentimental con una chica residente en Melbourne, Australia.
Así fue como la imagen de los pechos prominentes, a pesar de no revelar el rostro de la joven, se convirtió según el FBI en la "prueba definitiva" para demostrar que w0mer y Ochoa son la misma persona.

FUENTE: http://tn.com.ar/internacional/00089604/un-hacker-fue-capturado-por-los-pechos-de-su-novia
53  Informática / Hardware / PC se tilda.. en: 18 Abril 2012, 02:31 am
un amigo me trajo su PC para formatearla, al querer intentarlo pasaban unos segundos y se colgaba. tome el rigido pensando que tenia algun virus y formatie e instale windows desde otro ordenador. lo vuelvo a colocar en el PC de mi amigo inicio windows y se congela, pienso bueno debe de ser problemas de refrigeración ya que solamente tenia el cooler del micro.. saco la tapa lateral izquierda y coloco un cooler a 220v para enfriar bien el micro y la ram, ahi inicio y un poco mas tarde se vuelve a congelar la image; verifique la RAM y el micro todo esta refrigerado y funciona bien pero se congela, el rigido tomo un poco de temperatura pero por mas que se enfrie igual se congela, aparte que en otra PC no hubo problemas con el rígido. alguien tiene alguna cosa que no me haya pasado de alto?
54  Seguridad Informática / Wireless en Windows / ComputePIN-C83A35 en: 8 Abril 2012, 15:03 pm
Si tu router inalambrico tiene la MAC: "C8:3A:35" o "00:B0:0C", ahora puedes desde windows saber cual es su posible pin de WPS!


Código
  1. #include &#65308;stdio.h&#65310;
  2. #include &#65308;stdlib.h&#65310;
  3. int main()
  4. {
  5. unsigned int wps_pin_checksum(unsigned int pin);
  6. int PIN = 0;
  7. printf("ComputePIN-C83A35\n");
  8. printf("Description:\n");
  9. printf("If your wireless router MAC address start with \"C83A35\",\n");
  10. printf("type the other six digits, you might be able to get the \n");
  11. printf("WPS-PIN of this equipment, please have a try, good luck!\n\n");
  12. printf("Code by ZhaoChunsheng 04/07/2012 http://iBeini.com\n\n");
  13. printf("Input MAC Address(HEX):c83a35");
  14. scanf("%x",&PIN);
  15. printf("MAC Address(HEX) is: C83A35%X\n",PIN);
  16. printf("WPS PIN is: %07d%d\n",PIN%10000000,wps_pin_checksum(PIN%10000000));
  17. return 0;
  18. }
  19. unsigned int wps_pin_checksum(unsigned int pin)
  20. {
  21. unsigned int accum = 0;
  22. while (pin)
  23. {
  24. accum += 3 * (pin % 10);
  25. pin /= 10;
  26. accum += pin % 10;
  27. pin /= 10;
  28. }
  29. return (10 - accum % 10) % 10;
  30. }

FUENTE: http://forum.anywlan.com/thread-125873-1-1.html
55  Seguridad Informática / Wireless en Linux / xiaopanOS 0.4 en: 2 Abril 2012, 05:14 am

xiaopanOS 0.4:

Actualización del Nucleo a 4.4
por defecto 8187L con el controlador oficial.
actualización 3.2.3 feedingbottle
actualización minidwep-gtk 30303
0.3.8 Reparación de la Intel NIC conducir
Añadir RTL8188DU/8192DU unidad

Temporalmente aterm no es compatible con chino / ángulo, será ilegible!
De hecho, 8187L tiene una solución perfecta, ya que el último controlador de compatibilidad 8187l MAC aleatoria de transformación, sino que además no desea utilizar la versión más baja, a la espera para la corrección de compatibilidad!
En cuanto a wpscrackgui no se añade, la última vez que esté bien apretada. . .
Recientemente he descubierto, el RT3070 no puede usar el escaneo de lavado, con independencia de xiaopanOS o CDlinux. No sé es mi tarjeta tiene un problema. . . Esta tarjeta para informar sobre ! !
Encontró que una gran cantidad de zapatos para mujer de fondo de pantalla es muy sensible, no una mujer que yacía allí. ¿Usted, ya que sólo un par de pies. . .
Tiene que cambiar!
tinycore 4,3 kernel actualizado puede ser difícil que conducir todo el recompilar todo! ! !

DESCARGA: http://dl.dbank.com/c0e31jfzta
56  Foros Generales / Sugerencias y dudas sobre el Foro / [Sugerencia] Eliminar los post de "Movido: ???" en: 25 Marzo 2012, 04:51 am
no se si lo han notado, pero creo que es medio inservible dejar estos post con "Movido: TITULO DEL POST"; pues si se movió entonces lo puedo encontrar buscándolo en el buscador por el titulo. Lo digo no mas porque hay "segun google":


unos 23.200 post, seria una linda limpieza... no se, que os parece?
57  Seguridad Informática / Hacking Wireless / Distributed WPA PSK auditor en: 24 Marzo 2012, 03:20 am
http://wpa-sec.stanev.org/
58  Seguridad Informática / Wireless en Linux / Diccionarios para WPA-PSK en: 24 Marzo 2012, 03:13 am
Las listas de palabras con la compilación de diferentes fuentes y se eliminan los duplicados. Creado con la herramienta de WLC.

Código:
Offensive Security 34036913 0
Used 9062908 0
InsidePro 7788990 0
Wikipedia en 5925979 186
Wikipedia de 5429072 18087
Wikipedia ru 2574086 27934
Old gold 1560177 29117
Wikipedia es 1528843 29403
wp_chit bg 1318313 29467
Wikipedia fr 1294686 29783
OpenWall 1148496 30287
CoW 930799 30464
Slang 510315 30515
Pinyin chinese 61479 29867
C-nets 1634 32878

59  Sistemas Operativos / Windows / algún windows xp original? en: 22 Marzo 2012, 04:05 am
jaaj, hace unos años compre el XP original, se podía actualizar y todito... sin ninguna limitación  :¬¬ el otro día formatie después de casi 1 año y un poco mas... y me encuentro con que el XP que era original ahora es copia. El XP lo habré comprado hace como 4 años pero q mas da, se convirtió en copia, por mas que lo haya pagado...  :xD billy hdp.. jaja

me entere porque necesitaba escuchar una radio y usa windows media para transmitir, el firefox me pidio actualizar y bomb... no inicio nunca mas y no me tira el cartelito de "compre windows original" sino que no puedo actualizar... ya que al validar dice q es truchitooo.. me quiero matar..

alguien encontró algo para contrarrestar esto, algún XP original, yo me he dado cuenta que cada CD de XP lleva su código de activación "original", y si pones otro te lo instala pero como copia. Ese mecanismo resulta raro pero q mas da, alguien sabe de alguno "no modificado" original, el de oro ya lo probé y es trucho.

hay unos que vi por thepiratebay.se:

Windows XP Profesional SP3 ISO Original Spanish (http://www.auyanet.net/?p=7581)
Windows XP Pro SP3 Activated -MODDED-
60  Foros Generales / Foro Libre / [Importante!] Borra tu historial en Google en: 25 Febrero 2012, 23:52 pm

Tan sólo quedan pocos días para que los usuarios puedan borra su historial de Google. De no hacerlo antes del 1o de Marzo, entonces los secretos de las personas que usan el buscador más popular de la Internet pudieran ser revelados y hasta ser usados con fines desconocidos.

Google puso en aprietos a sus clientes virtuales con la nueva política a la que serían sometidos sus lineamientos. La información privada será expuesta y se dio un plazo para que el público pueda sacar sus registros y la fecha está por cumplirse.

Son tres pasos sencillos que se siguen para borrar los récords (1) Ir a la página principal y buscar en la parte superior derecha para ingresar en la cuenta (2) Encontrar la sección llamada servicios y buscar por el link que te diga "ver", "activar" o "desactivar" el archivo historial. (3) Hacer un click y queda resaltado en rojo. Finalmente buscar "remover web history" y darle un click para desactivarlo hasta el tiempo que el usuario regrese a la página.

Ciertamente el manejo de esta política ha despertado la crítica y la controversia porque no se respeta el derecho a la privacidad. Google no ha encontrado el mecanismo para resolver el problema y simplemente ha dado las indicaciones para salvaguardar cualquier impase con la información privada y que sea el público quien decida.


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