Tor Proxy et randomiser le choix des serveurs de sorties

Bonjour,

Je n’utilise plus le logiciel tor depuis que je suis tombé sur le sympatique tortunnel de Moxie qui permet d’avoir un débit super intéressant par rapport à tor (tout en gardant le chiffrement, mais en perdant les intermédiaires … et donc une partie de l’anonymat, mais tant que la connexion passe par un autre pays ;)), l’un des problèmes étant le fait que le logiciel plante quelque fois (ou la connexion est coupée après un certain temps ou débit).

Donc tout d’abord le logiciel, il faut soit le compiler soit installer le paquet qui se trouve sur mon dépôt :

sudo add-apt-repository ppa:cipher.16/ppa
sudo apt-get update && sudo apt-get install tortunnel

Ensuite, il faut récupérer la liste des sorties de tor ayant un débit intéressant, un csv est dispo sur blutmagie, mais je voulais réviser le langage perl … ce qui donne :

#!/usr/bin/perl
# Create a user agent object
require HTTP::Request;
use LWP::UserAgent;

# Create a request
my $req = HTTP::Request->new(GET => "http://torstatus.kgprog.com/index.php?SR=Bandwidth&SO=Desc");
 my $ua = LWP::UserAgent->new;
 $ua->agent("Firefox/4.0");
my $res = $ua->request($req);
if ($res->is_success) {
	my $text = $res->content;
        my $recherche = "ip=([0-9.]*).*Exit Server";
	while($text =~ m/($recherche)/g)
	{
		print $2."\n";
		pos($text)+1;
	}
} else {
   print "Le site est HS :s\n";
}

On enregistre le fichier (pour moi tor.pl), on execute et on lance le proxy :

perl tor.pl > /tmp/tor.txt && while true; do torproxy `cat /tmp/tor.txt |head -10 |tail -n $(expr ${RANDOM} % 10)|head -1`; done;

Et hop, ici on choisit un serveur parmis les 10 premiers, et on l’assigne à torproxy … etvoilà, profitez d’un anonymat (relatif) à la vittesse de votre ligne adsl (ou presque ^^).