#!/usr/local/bin/perl use LWP::UserAgent; print "\nWEBWORD gestartet!\n\n"; print "\nBitte Adresse angeben: (http://beispiel.de) "; chop($input_address = ); print "\nName der Wordlist: "; $name = ; $name2 = "$name.txt"; $a1 = "$input_address"; $agent = new LWP::UserAgent; $request = HTTP::Request->new('GET',$a1); $result = $agent->request($request); $a1 =~ s/.*\///; $a1 = "temp1.txt"; open(lookME, ">", "temp1.txt") || die print "Datei konnte nicht erstellt werden!\n"; print lookME $result->content(); close(lookME); open(IP,"<","temp1.txt") || die print "Datei konnte nicht geoeffnet werden!\n"; @IN = ; close(IP); unlink "temp1.txt" || die print "Datei konnte nicht geloescht werden!\n"; foreach $string1 (@IN) { $string1 =~ s/<.+?>//g; $string1 =~ s/{.+?}//g; } foreach $word (@IN) { $word =~ tr/ /\n/; push(@second,"$word"); } foreach $string (@second) { $string =~ tr/,;.:_[¨!]{}$£§¬°1+|"@*#ç¼%½&¬¦(¢)]=}?´'^`~<>-//d; $string =~ s!/!!g; $string =~ s!\\!!g; $string =~ s! !!g; $string =~ s! !!g; } open(datei, ">>", "1.txt") || die print "Datei konnte nicht erstellt werden!\n"; print datei @second; close(datei); open(DATA,"<","1.txt"); open(OUT,">","$name2"); foreach $line () { if ($line =~ m/[a-z]|[0-9]/i) { print OUT $line; } }$string=~ tr//s/d; close(DATA); close(OUT); unlink("1.txt");