“Actualmente estamos investigando la filtración de algunas contraseñas de usuario de Last.fm. Esto es consecuencia de las recientes filtraciones de contraseñas en otros sitios, así como la información publicada en línea. Como medida de precaución, estamos pidiendo a todos nuestros usuarios que cambien sus contraseñas de inmediato”, advirtió la página.
“Lamentamos las molestias que causa tener que cambiar la contraseña, pero Last.fm se toma su privacidad muy en serio”, dice el sitio.
LinkedIn y la página de citas eHarmony hicieron público ayer que algunas de las contraseñas de sus usuarios parecían haber sido filtradas en Internet.
En el caso de la red de profesionales, que cuenta con más de 150 millones de usuarios en todo el mundo, vio afectadas las cuentas de casi un 5 por ciento de sus clientes, unos 6,4 millones de personas.
El encargado de dirigir el equipo de publicidad en internet de Google, Matt Cutts, advirtió a raíz de estos problemas de que mantener la misma contraseña para varias cuentas o redes sociales puede causar graves problemas.
“¿Utiliza la misma contraseña para LinkedIn y Gmail?”. “Yo cambiaría las dos inmediatamente”, escribió.
Algunos medios especializados apuntan a que el posible pirateo de las contraseñas haya tenido origen en un foro ruso.
EFE
Fuente: rpp.com.pe
]]>Es por ese motivo que a continuación les dejo un scritp que se corre dentro de un Macro creado en Excel; poder ejecutarlo; y de esta manera eliminar la clave olvidada.
Para ello es como les indique creer un macro en la pestaña Programador “MACROS”, para los que tienen habilidado esta opcion o caso contrario Pestaña Vista “MACROS”, y le pueden asignar cualquier nombre al macro ejemplo “Quitar_contraseña” y CREAR, al ingresar al modulo directamente o presionando el boton modificar; copiar el script que esta en la parte inferior y Pegar; por ultimo GUARDAR y solo les queda ejecutar la MACRO Quitar_contraseña y lito, eso es todo.
Sub Quitar_contraseña()
Dim a As Integer, b As Integer, c As Integer
Dim d As Integer, e As Integer, f As Integer
Dim a1 As Integer, a2 As Integer, a3 As Integer
Dim a4 As Integer, a5 As Integer, a6 As Integer
On Error Resume Next
For a = 65 To 66: For b = 65 To 66: For c = 65 To 66
For d = 65 To 66: For e = 65 To 66: For a1 = 65 To 66
For a2 = 65 To 66: For a3 = 65 To 66: For a4 = 65 To 66
For a5 = 65 To 66: For a6 = 65 To 66: For f = 32 To 126
Contraseña = Chr(a) & Chr(b) & Chr(c) & Chr(d) & Chr(e) & Chr(a1) _
& Chr(a2) & Chr(a3) & Chr(a4) & Chr(a5) & Chr(a6) & Chr(f)
ActiveSheet.Unprotect Contraseña
If ActiveSheet.ProtectContents = False Then
MsgBox “¡Enorabuena!” & vbCr & “Se ha quitado la contraseña:” & vbCr & Contraseña
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub
Nota: Este script no te muestra la contraseña utilizada, sino que lo elimina y restaura sin protección
Espero que con esto les haya podido ayudar.
]]>