WPA2 Personal TKIP oder AES? Generator für Passphrase?

#!/usr/bin/perl -w

use strict;

# Zeichen, die im Schlüssel vorkommen dürfen
my @chars=split("","abcdefghkmnopqrstuvwxyzABCDEFGHJKLMNPQRSTUVWXYZ123456789");  
# Länge des Schlüssels
my $len = 63;
# SSID -- Präfix bei mehreren Netzwerken
my $ssid = "Wlan";  
# Anzahl der Datensätze
my $last = 1;
# Ausgabedatei
my $datafile = "WlanZugangsDaten.csv";  

# csv datei mit SSID;Schlüssel
open DATA, ">$datafile" or die $!;  
for my $num (1..$last) { 
                      $num <= 9 and $num = "0" . $num;  
                      my $psk;

                      foreach (0..$len-1) { 
                                            $psk .= $chars[int(rand(@chars))]; 
                      } 
                      print DATA $ssid, "-", $num, ";", $psk, "\n";  
}
close DATA;