Mensajes

[Wifi]

Y como se supone que me tendría que tomar esto? No te veo la cara no se si me estas vacilando..

Aqui alomejor no venia a cuento decirlo, pero el wifi si es cancerígeno y te digo que si se compra la antenita esta y la usa durante bastante tiempo aumenta considerablemente sus probabilidades de desarrollar cáncer en un futuro, que no ahora puede ser dentro de 20 años con esto de la radiación nunca se sabe que puede pasar.

haber.. volvamos a química de 5 año..

Se entiende por radiación no ionizante aquella onda o partícula que no es capaz de arrancar electrones de la materia que ilumina produciendo, como mucho, excitaciones electrónicas. Ciñéndose a la radiación electromagnética, la capacidad de arrancar electrones (ionizar átomos o moléculas) vendrá dada, en el caso lineal, por la frecuencia de la radiación, que determina la energía por fotón, y en el caso no-lineal también por la "fluencia" (energía por unidad de superficie) de dicha radiación; en este caso se habla de ionización no lineal.

Así, atendiendo a la frecuencia de la radiación serán radiaciones no ionizantes las frecuencias comprendidas entre las frecuencias bajas o radio frecuencias y el ultravioleta aproximadamente, a partir del cual (rayos X y rayos gamma) se habla de radiación ionizante. En el caso particular de radiaciones no ionizantes por su frecuencia pero extremadamente intensas (únicamente los láseres intensos) aparece el fenómeno de la ionización no lineal siendo, por tanto, también ionizantes.
La emisión de neutrones termales corresponde a un tipo de radiación no ionizante tremendamente dañina para los seres vivientes. Un blindaje eficiente lo constituye cualquier fuente que posea hidrógeno, como el agua o los plásticos, aunque el mejor blindaje de todos para este tipo de neutrones, al igual que en la emisión de neutrones lentos, son: el cadmio natural(Cd), por captura reactiva, y el Boro (B), por reacciones de transmutación. Para este tipo de radiación los materiales como el plomo, acero, etc. son absolutamente transparentes.

Aunque por sus características este tipo de radiación no es capaz de alterar químicamente la materia, la exposición a ella, fundamentalmente frecuencias ópticas (infrarrojo, visible, ultravioleta), presenta una serie de riesgos, fundamentalmente para la visión, que deben tenerse en cuenta. Internacionalmente, entre otros, la ICNIRP (International Commission for Non Ionizing Radiation Protection)1 es el organismo responsable de las recomendaciones para la protección frente a estas radiaciones, elaborando protocolos de protección frente a, por ejemplo, radiación láser no ionizante o frente a fuentes de banda ancha.

La radiación óptica (no ionizante) puede producir hasta cinco efectos sobre el ojo humano: quemaduras de retina, fotorretinitis o Blue-Light Hazard, fotoqueratitis, fotoconjuntivitis e inducir la aparición de cataratas. También produce efectos negativos sobre la piel. Aunque se ha especulado sobre efectos negativos sobre la salud son provocados por radiaciones de baja frecuencia y microondas, no se han encontrado hasta la fecha evidencias científicas de este hecho.

Las radiaciones como los rayos UV y las ondas de radio, TV o de telefonía móvil o Wifi, son algunos ejemplos de radiaciones no ionizantes.

No si no te importa acabar con una leucemia o con un cáncer cerebral.

como q tuvieras una parabólica de 2000dbi contra tu cabeza

No entiendo muy bien lo de "re truchas" (soy Español) ya que al meterme en el enlace que me has mandado dice falsos o ilegales, pero claro, si es falso obviamente me queda clara tu respuesta, que son una *****, pero el caso de ser ilegales no implica que no sean realmente lo que venden.
Puedes aportar mas información?? Te lo agradecería mucho.

ninguna cumple con normas de fabricación FCC, por ende si compras una de 6000mW y tiene 78mW te la puedes meter... ya sabemos y no puedes reclamar nada al fabricante que ni siquiera esta registrado, en cambio si tienes un producto con FCC y el fabricante cumple con las normas de fabricación y compras una alfa 1000mW por ejemplo y es de 79mW, puedes reclamar y obtendrás alguna a cambio.

gracias por responder P4nd3m0n1um, pero el archivo si que lo encuentro en la carpeta que me dices pero esta vacio pera 0b eso es normal? en el video del inicio se ven los numeritos del icono del archivo y en mi caso esta vacio, me parece muy interesante esta opcion ya que en la mayoria de los ap que e conseguido mediante reaver estaban por enciama del 50% del diccionario.

porque ya no funciona el recuperador por medio de modulo.

[FUENTE:]

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 (vb) [Seleccionar] Expandir

Private Sub Form_Load()
    Centrar Me
    DatosActuales
    CargarSeriales
End Sub

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

Código (vb) [Seleccionar] Expandir

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.

Código (vb) [Seleccionar] Expandir

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.

Código (vb) [Seleccionar] Expandir

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

Código (vb) [Seleccionar] Expandir

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

son las dos re truchas... http://www.arg-wireless.com.ar/index.php/topic,692.msg2647.html

Al escribir el comando -p y el numero (4 o 8 digitos), algunas redes se quedan ahi probando el mismo pin siempre y no hay manera, mientras que si atacas normal, si que avanza. Hablo tanto de wpscrackgui como de reaver actualizados. Saludos.

cuando especificas los pines por ejemplo 0123 el reaver no comenzara utilizando el diccionario principal de XXXX, sino que tomara por asegurados los primeros dijitos, al poner 01234567 solamente probara ese pin.

hola y felizitaciones por el foro, quisiera saber si alguien le falla al intentar crear el archivo de recuperar sesion, a mi me crea el archivo pero cuando veo el archivo esta vacio peso 0kb y no empieza el ataque desde el porcentaje que yo queria, alguien sabe por que puede ser?

por supuesto, si el reaver cambio la direccion donde guarda los archivos de sesion, los encontras en /usr/local/etc/reaver.

Haber puede ser este ( reaver-1.4- final.xzm  100kB del 24-01-12.)
Lo descarge de downloadwireless.net.

ese es el q viene con el wifiway creo..

Yo apunto un par de problemillas. Cuando intento poner un pin, tanto de 4 como de 8 digitos en wpscrackgui me dice que error invalid pin.

eso quiere decir que el pin no es el correspondiente al WPS de aquella red.

Y otra cosa de reaver (de reaver o de las redes...) al escribir el comando -p y el numero (4 o 8 digitos), algunas redes se quedan ahi probando el mismo pin siempre y no hay manera, mientras que si atacas normal, si que avanza. Hablo tanto de wpscrackgui como de reaver actualizados. Saludos.

hay un post dedicado a eso: http://foro.elhacker.net/wireless_en_linux/reaver_vulnerabilidad_de_wpa_por_wps_habilitado-t350507.0.html