SHARE
TWEET

Proof of Concept für automatisiertes anonymes Mehrfach-Votin

a guest Feb 2nd, 2012 723 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/env perl
  2. #
  3. # Proof of Concept für automatisiertes anonymes Mehrfach-Voting auf https://www.dialog-ueber-deutschland.de/
  4. # votet für Vorschlag 1416: Open Source statt schlechter Software
  5. # (https://www.dialog-ueber-deutschland.de/ql?cms_idIdea=1416)
  6. #
  7. # Bitte nur als Proof-of-Concept auf den angegeben Vorschlag anwenden und keine anderen Votings manipulieren!
  8. #
  9. # Kommandozeilenoption nimmt die Anzahl der Votes auf
  10. #
  11. #
  12.  
  13. use strict;
  14. use warnings;
  15.  
  16. my $nOVotes =    $ARGV[0];
  17. #print $nOVotes . "\n";
  18.  
  19. my $url = "https://www.dialog-ueber-deutschland.de/DE/20-Vorschlaege/20-Wovon-Leben/Einzelansicht/vorschlaege_einzelansicht_node.html%3Fcms_idIdea=1416";
  20.  
  21. my $curlString = "-# $url";
  22.  
  23.  
  24. for (my $i=0;$i<=$nOVotes;$i++){
  25.  
  26. my $serverResponse = `curl $curlString`;
  27. #print "\n$serverResponse\n\n";
  28.  
  29. my $beginFormIndex = index($serverResponse, '<form name="abstimmen"');
  30. my $endFormIndex =   index($serverResponse, '</form>', $beginFormIndex);
  31.  
  32. $serverResponse = substr($serverResponse, $beginFormIndex, $endFormIndex - $beginFormIndex);
  33. #print "\n$serverResponse\n\n";
  34.  
  35. $serverResponse =~ /name="abstimmen" action="SiteGlobals\/Forms\/Vorschlaege\/vorschlag_abstimmung_formular.html;jsessionid=([^"]*)"/;
  36. my $jsessionid = $1;
  37. #print "$jsessionid\n";
  38.  
  39. $serverResponse =~ /name="nn" value="([^"]*)"/;
  40. my $nn = $1;
  41. #print "$nn\n";
  42.  
  43. $serverResponse =~ /name="resourceId" value="([^"]*)"/;
  44. my $resourceId = $1;
  45. #print "$resourceId\n";
  46.  
  47. $serverResponse =~ /name="input_" value="([^"]*)"/;
  48. my $input_ = $1;
  49. #print "$input_\n";
  50.  
  51. $serverResponse =~ /name="idIdea.HASH" value="([^"]*)"/;
  52. my $idIdeaHASH = $1;
  53. #print "$idIdeaHASH\n";
  54.  
  55. my $referer = $url;
  56. #print "$referer\n";
  57.  
  58. $url = "https://www.dialog-ueber-deutschland.de/SiteGlobals/Forms/Vorschlaege/vorschlag_abstimmung_formular.html%3Bjsessionid=$jsessionid";
  59. #print "$url\n";
  60.  
  61. $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";
  62. # $curlString = "--data nn=$nn%26resourceId=$resourceId%26input_=$input_%26pageLocale=de%26idIdea=$idIdea%26idIdea.HASH=$idIdeaHASH%26submit.x=133%26submit.y=25 --referer $referer $url";
  63. #print "$curlString\n";
  64.  
  65. print "vote $i added\n";
  66.  
  67. }
RAW Paste Data
Top