LinuxParty

Código fuente setpin.pl para quitar PIN al móvil

| Escrito por Javier Orovengua | Correo electrónico | Visto: 17884

Inicio activadoInicio activadoInicio activadoInicio activadoInicio activado
 
Código:
#!/usr/bin/env perl

use strict;
use warnings;

my $modem = "/dev/ttyUSB0";
# my $modem = "/dev/usb/tts/0";
# Substitute xxxx with your PIN.
# You should probably put your pin somewhere else, e.g. on an USB stick,
# an encrypted file system or something else, and read it from there...
# You have been warned!
my $pin = "1234";

$SIG{ALRM} = sub {
        die("timeout: no response from modem $modem\n");
};

open(MODEM, "+<", $modem) or die("can't open modem $modem");
alarm(10);
print(MODEM "AT+CPIN=\"$pin\"\n\r");
while (<MODEM>) {
        if (m/OK/) {
                close(MODEM);
                print("PIN accepted\n");
                exit(0);
        }
        if (m/ERROR/) {
                close(MODEM);
                print("PIN rejected\n");
                exit(1);
        }
}




Lo digo, por que en caso de estar mal, debeis de observar la imagen y escribirlo, tal cual.

kwrite, puede ser una buena herramienta.

 
   
 
   

No estás registrado para postear comentarios

Categoría: Hardware

Relacionados


Redes:


   

 

Suscribete / Newsletter

Suscribete a nuestras Newsletter y periódicamente recibirás un resumen de las noticias publicadas.

El Top de LinuxParty

Donar a LinuxParty

Probablemente te niegues, pero.. ¿Podrías ayudarnos con una donación?


Tutorial de Linux

Top 15 artículos por Fecha

Viendo artículos de: Noviembre de 2025

Últimos comentarios

Filtro por Categorías

Designed by ExtreHost.