Desbloquear bootloader Moto G Turbo edition con linux, fedora 22

Instalamos android tools

dnf search android-tools

android-tools.x86_64 : Android platform tools(adb, fastboot)

dnf install android tools

si lo detecta veremos el numero de serie del equipo

[root@localhost ~]# fastboot devices
ZY222V6C98 fastboot

obtenemos los datos para generar el desbloqueo

[root@localhost ~]# fastboot oem get_unlock_data

...

(bootloader) 3A25530807348765#5A593232325636

(bootloader) 433938004D6F746F47332D0000#4A60

(bootloader) 441B387A28B3A5DB628189027896594

(bootloader) 3EBDD#B78A590400000000000000000

(bootloader) 0000000

OKAY [  0.270s]

finished. total time: 0.270s

entramos en la pagina de motorola para generar la llave

https://motorola-global-portal.custhelp.com/app/standalone/bootloader/unlock-your-device-a

pegamos toda la cadena del unlock data

3A25530807348765#5A593232325636433938004D6F746F47332D0000#4A60441B387A28B3A5DB6281890278965943EBDD#B78A5904000000000000000000000000

nos llega nuestra key

O6CYMJHVKAW3JYU7WQMP

en opciones de desarrollo habilitamos la opcion "Desbloqueo OEM"

le mandamos la llave

[root@localhost ~]# fastboot oem unlock UNIQUE_KEY O6CYMJHVKAW3JYU7WQMP

...

(bootloader) Unlock code = UNIQUE_KEY

(bootloader) Password incorrect!

FAILED (remote failure)

finished. total time: 0.562s

tristeza :(

tarado...

[root@localhost ~]# fastboot oem unlock O6CYMJHVKAW3JYU7WQMP
...
(bootloader) Unlock code = O6CYMJHVKAW3JYU7WQMP

(bootloader) Phone is unlocked successfully!
OKAY [  1.957s]
finished. total time: 1.957s

listo

Frecuencias de uso libre en Mexico

Frecuencias de uso libre:

Acuerdo de Uso Libre del 25 de septiembre, 1996.
153.0125 MHz – 153.2375 MHz
159.0125 MHz – 159.2000 MHz
163.0125 MHz – 163.2375 MHz
450.2625 MHz – 450.4875 MHz
455.2625 MHz – 455.4875 MHz
463.7625 MHz – 463.9875 MHz

Acuerdo de Uso Libre del 17 de noviembre, 1995
75.4 MHz – 76 MHz
148 MHz -149.9 MHz
150.05-174 MHz
464.48750 MHz – 464.51250 MHz
464.5375 MHz – 464.5625 MHz
467.8375 MHz – 467.8625 MHz
467.8625 MHz – 467.8875 MHz
467.8875 MHz – 467.9125 MHz
467.9125 MHz – 467.9375 MHz
468.7625 MHz – 468.9875 MHz

Acuerdo Uso Libre del 21 de agosto, 1998
462.55625 MHz – 462.56875 MHz
462.58125 MHz – 462.59375 MHz
462.60625 MHz – 462.61875 MHz
462.63125 MHz – 462.64375 MHz
462.65625 MHz – 462.66875 MHz
462.68125 MHz – 462.69375 MHz
462.70625 MHz – 462.71875 MHz
467.55625 MHz – 467.56875 MHz
467.58125 MHz – 467.59375 MHz
467.60625 MHz – 467.61875 MHz
467.63125 MHz – 467.64375 MHz
467.65625 MHz – 467.66875 MHz
467.68125 MHz – 467.69375 MHz
467.70625 MHz – 467.71875 MHz

Acuerdo del 19 de enero, 2010
1920.0000 MHz – 1930.0000 MHz


Acuerdo de política para servicios de banda ancha y otras aplicaciones, publicado por el DOF el 13 de marzo de 2006
902 MHz – 928 MHz
2400 MHz – 2483.5 MHz
5,150 – 5,250 MHz
5,250 – 5,350 MHz
5,725 – 5,850 MHz
Acuerdo de Pleno del 14 de diciembre de 2011
5,470 – 5,600 MHz
5,650 – 5,725 MHz

descomprime por lotes archivos rar

for f in *.rar;do unrar -e $f;done

Excel insertar imagenes en columna

Me toca hacer un catalogo y este macro me ahorra tiempo para meter varias imágenes en una columna

Sub InsertPictures()
'Update 20140513
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
xColIndex = Application.ActiveCell.Column
If IsArray(PicList) Then
    xRowIndex = Application.ActiveCell.Row
    For lLoop = LBound(PicList) To UBound(PicList)
        Set Rng = Cells(xRowIndex, xColIndex)
        Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        xRowIndex = xRowIndex + 1
    Next
End If
End Sub

Quitar la Clave a una Hoja de Excel

Hoy me toco usar una hoja protegida en excel. y por algo tenia que desprotegerla. lo hice con este codigo que me encontre en la web

Sub jd()
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 "¡JD TE DA TU CONTRASEÑA!" & vbCr & "La contraseña es:" & vbCr & Contraseña
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub

esta en VB

aprieta en tu hoja de excel ALT+F11

de ahi dale doble click a donde dice "ThisWorkBook" pega el codigo, luego dale ejecutar. (F5)

y dirá la contraseña. 

Gracias a JD, que no se quien es el xD pero el lo creo 

lo use en Office 365

Lista de Repetidores y Estaciones de la Zona de Guadalajara y zona metropolitana para radioaficionado

escuchaba la banda de 2 metros y recopile una pequeña lista de repetidores y estaciones en Guadalajara (Mexico)  con sus indicativos , recordar que por debajo de 147 MHz, de 600 kHz en menos, y por encima de 147 MHz, de 600 kHz en más

XE1GQP Ricardo
438.200 SUBTONO  1 NEGATIVO NEGATIVO OFFSET -5000

XE1HAX Miguel
147.390 SUBTONO 88.5 OFFSET +600

XE1FAP Jesus
433.275 SUBTONO 88.5 OFFSET +1000

XE1GYZ Jorgue
146.470 SUBTONO 88.5 , SIMPLEX

XE1GYH Luis
147.420 SUBTONO 88.5 , OFFSET SIMPLEX

XE1GNZ Jorgue
147.090 SUBTONO 123 OFFSET +600

Actualizacion 7.7 contpaq i contabilidad

La actualización 7.7 de contpaq esta causando muchos problemas por alguna incompatibilidad entre las versiones pasadas y esta, lo que ocasiona que el servidor de aplicaciones no inicie y por lo tanto no puedas acceder al sistema,

en mi caso se quedaba el log en
Actualizando la tabla de permisos por usuario

y de ahí no pasaba


para solucionarlo la gente de contpaq hizo un script que resuelve el problema aqui lo dejo
para ejecutar el script deben tener instalado el Microsoft SQL Server Management Studio Express (busquen en google como ponerlo),
solo pulsan en ejecutar y ya.

Bajar Script Mega.co.nz