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):

Private Sub Form_Load()
    Centrar Me
    DatosActuales
    CargarSeriales
End Sub

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

Private Sub cmdComprobar_Click()
    DatosActuales
    If lblClave.Caption = "BVXT3-HMX82-3T69H-9WC87-7JJKW" Then
        Label3.Caption = "Genuine"
        Label3.ForeColor = vbBlue
    Else
        Label3.Caption = "Copia"
        Label3.ForeColor = vbRed
    End If
End Sub

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

Private Sub DatosActuales()
    lblVersion.Caption = VerVersion
    lblClave.Caption = SacarClave
End Sub
 
Private Sub CargarSeriales()
    cbSerial.Clear
    cbSerial.AddItem "BVXT3-HMX82-3T69H-9WC87-7JJKW" 's
    cbSerial.ListIndex = 0
End Sub

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

Private Sub CmdInsertar_Click()
    InsertarSerial Trim(cbSerial.Text)
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":

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
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
 
Private Const REG_BINARY = 3
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const REG_SZ = 1
' Ruta del registro donde Windows guarda la clave (codificada) y la versión
Private Const RUTA_REGISTRO = "SOFTWARE\MICROSOFT\Windows NT\CurrentVersion"
 
' Obtenemos la clave actual
 
Public Function SacarClave() As String
Dim bID(164) As Byte, bKey(14) As Byte, bAsc(24) As Byte
Dim lBit As Long, hKey As Long
 
If RegOpenKey(HKEY_LOCAL_MACHINE, RUTA_REGISTRO, hKey) = 0 Then
    If RegQueryValueEx(hKey, "DigitalProductId", 0&, REG_BINARY, bID(0), 164) = 0 Then
        For lBit = 52 To 66
            bKey(lBit - 52) = bID(lBit)
        Next lBit
    Else
        SacarClave = "No se puede leer la clave."
        Exit Function
    End If
Else
    SacarClave = "No se puede acceder al registro."
    Exit Function
End If
 
'Descodificar la clave
 
bAsc(0) = Asc("B"): bAsc(1) = Asc("C"): bAsc(2) = Asc("D")
bAsc(3) = Asc("F"): bAsc(4) = Asc("G"): bAsc(5) = Asc("H")
bAsc(6) = Asc("J"): bAsc(7) = Asc("K"): bAsc(8) = Asc("M")
bAsc(9) = Asc("P"): bAsc(10) = Asc("Q"): bAsc(11) = Asc("R")
bAsc(12) = Asc("T"): bAsc(13) = Asc("V"): bAsc(14) = Asc("W")
bAsc(15) = Asc("X"): bAsc(16) = Asc("Y"): bAsc(17) = Asc("2")
bAsc(18) = Asc("3"): bAsc(19) = Asc("4"): bAsc(20) = Asc("6")
bAsc(21) = Asc("7"): bAsc(22) = Asc("8"): bAsc(23) = Asc("9")
 
Dim i As Integer, j As Integer, sClave As String
For lBit = 24 To 0 Step -1
    i = 0
    For j = 14 To 0 Step -1
        i = i * 256 Xor bKey(j)
        bKey(j) = Int(i / 24)
        i = i Mod 24
    Next j
    sClave = Chr(bAsc(i)) & sClave
    If lBit Mod 5 = 0 And lBit <> 0 Then sClave = "-" & sClave
Next lBit
SacarClave = sClave
End Function
 
' Obtenemos la clave actual
 
Public Function VerVersion()
Dim lRet As Long
RegOpenKey HKEY_LOCAL_MACHINE, RUTA_REGISTRO, lRet
VerVersion = SacarValorRegistro(lRet, "ProductName")
RegCloseKey lRet
RegOpenKey HKEY_LOCAL_MACHINE, RUTA_REGISTRO, lRet
VerVersion = VerVersion & " - " & SacarValorRegistro(lRet, "CSDVersion")
RegCloseKey lRet
End Function
 
' Leer valor de registro
 
Function SacarValorRegistro(ByVal HKLM As Long, ByVal sValor As String) As String
Dim lRet As Long, lInfoValor As Long
Dim lLen As Long, sBuffer As String
 
lRet = RegQueryValueEx(HKLM, sValor, 0, lInfoValor, ByVal 0, lLen)
If lRet = 0 Then
    If lInfoValor = REG_SZ Then
        sBuffer = String(lLen, Chr$(0))
        lRet = RegQueryValueEx(HKLM, sValor, 0, 0, ByVal sBuffer, lLen)
        If lRet = 0 Then
            SacarValorRegistro = Left$(sBuffer, InStr(1, sBuffer, Chr$(0)) - 1)
        End If
    ElseIf lInfoValor = REG_BINARY Then
        Dim strData As Integer
        lRet = RegQueryValueEx(HKLM, sValor, 0, 0, strData, lLen)
        If lRet = 0 Then SacarValorRegistro = strData
    End If
End If
End Function
 
' Cambiar serial del registro
 
Public Sub InsertarSerial(Serial As String)
 
On Error Resume Next
 
Dim TodoOk As Boolean
TodoOk = True
 
If Serial = "" Then
    MsgBox "Complete el Número de Serie que quiere insertar!", vbExclamation, "Nº de Serie inválido"
    TodoOk = False
    XPReg.cbSerial.SetFocus
Else
    If Len(Serial) <> 29 Then
        MsgBox "El Número de Serie a Insertar debe poseer 29 dígitos" & vbCrLf & "Controle", vbExclamation, "Nº de Serie inválido"
        TodoOk = False
        XPReg.cbSerial.SetFocus
    End If
End If
 
    If TodoOk = True Then
        Dim VOL_PROD_KEY As String
        VOL_PROD_KEY = Replace(Serial, "-", "")
 
        For Each obj In GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("win32_WindowsProductActivation")
           result = obj.SetProductKey(VOL_PROD_KEY)
           If Err <> 0 Then
              MsgBox Err.Description, "0x" & Hex(Err.Number)
              Err.Clear
           End If
        Next
 
        MsgBox "¡Su Microsoft Windows XP es Genuino!" & vbCrLf & vbCrLf & "Verifíquelo pulsando el botón Verificar", vbInformation, "Registro Exitoso!"
        XPReg.cmdComprobar.SetFocus
    End If
 
End Sub
 
' Centrar el formulario
 
Public Sub Centrar(Frm As Form)
    Frm.Left = (Screen.Width / 2) - (Frm.Width / 2)
    Frm.Top = (Screen.Height / 2) - (Frm.Height / 2) - 600
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

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

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?

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!

#include ＜stdio.h＞
#include ＜stdlib.h＞
int main()
{
unsigned int wps_pin_checksum(unsigned int pin);
int PIN = 0;
printf("ComputePIN-C83A35\n");
printf("Description:\n");
printf("If your wireless router MAC address start with \"C83A35\",\n");
printf("type the other six digits, you might be able to get the \n");
printf("WPS-PIN of this equipment, please have a try, good luck!\n\n");
printf("Code by ZhaoChunsheng 04/07/2012 http://iBeini.com\n\n");
printf("Input MAC Address(HEX):c83a35");
scanf("%x",&PIN);
printf("MAC Address(HEX) is: C83A35%X\n",PIN);
printf("WPS PIN is: %07d%d\n",PIN%10000000,wps_pin_checksum(PIN%10000000));
return 0;
}
unsigned int wps_pin_checksum(unsigned int pin)
{
unsigned int accum = 0;
while (pin)
{
accum += 3 * (pin % 10);
pin /= 10;
accum += pin % 10;
pin /= 10;
}
return (10 - accum % 10) % 10;
}

FUENTE: http://forum.anywlan.com/thread-125873-1-1.html

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

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?

Las listas de palabras con la compilación de diferentes fuentes y se eliminan los duplicados. Creado con la herramienta de WLC.

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...  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-