Dienstag, 25. Juli 2017
Walters Eckchen
Advertisement

Menu
Home
>
HowTo
Foto-Album
Archive
>
Marlene's Corner
Sedat's Corner
Walter's Welt
>
Links
Disclaimer
Login / Out





Passwort vergessen?
RSS
Translate
How to: PIN Übergabe an UMTS Modem
Geschrieben von Walter   
Montag, 4. Februar 2008

#!/usr/bin/perl
use strict;
use warnings;
 
my $modem = "/dev/ttyUSB0";
# Substitute xxxx with your PIN.
# You should probably put your PIN somewhere else, e.g. on a 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);
}
}


 

Dieses Script wurde nicht von mir erstellt, ich denke jedoch im Zusammenhang mit den Chatscripten wird es dem einen oder ander Nutzer nützlich sein. 

 
< zurück   weiter >

Top!