links bar background Login  ::  Register
 
 
Coder Profile - Show off your skills, get a coder profile.
 
 
links bar background  
 
seperator
browse Discussion
Forum
seperator
browse Source
Codes
seperator
browse Coding
Articles
seperator
browse User
Groups
seperator
browse Code Pin
Board
seperator
browse To Do
Lists
seperator
goto
seperator
 
 
 
code pin board Nepokatneza [GUI - MailExtractor] Download Source Code
Author Details Code Information
Perforin

Pinned 2 Codes
Posted 0 Coding Articles

Send A Message
View Coders Profile
Language Perl
Expires Never
Length 19,943 Characters (500 Lines)
Password no password
Description

 A mailextractor, which can extract mails from local files and a buggy online mail extractor.
Language is german.
Oh and, it´s not one of my newest creation...
  1. #!/usr/bin/perl
  2. #############################
  3. # Nepokatneza GUI Edition 1.7
  4. #
  5. # Coded by Perforin
  6. #
  7. # www.perforins-software.de.vu
  8. # www.dark-codez.org
  9. #
  10. # [ Neue Filter, neues Aussehen, neuer Code! ]
  11. #
  12. # Userscan ist noch Beta!
  13. # Update folgt vielleicht noch einmal ;-)
  14. #
  15. #
  16. #
  17. #
  18. #############################
  19.  
  20. use Tk;
  21. use Tk::NoteBook;
  22. use Tk::PNG;
  23. use LWP::UserAgent;
  24. use LWP::Simple;
  25.  
  26. $version = "1.7";
  27. $main = MainWindow->new();
  28. $main->title ("+++ Nepokatneza +++ V$version Coded by Perforin www.perforins-software.de.vu");
  29. $image = "IMAGES\\icon.gif";
  30. $icon = $main->Photo(-file => $image);
  31. $main->iconimage($icon);
  32. $mb = $main->Frame(-relief => 'sunken', -bd => 1);
  33. $m_Help = $mb->Menubutton(-text => "Befehle",-underline => 1);
  34. $m_About = $mb->Menubutton(-text => "About",-underline => 1);
  35. $m_Exit = $mb->Menubutton(-text => "Exit",-underline => 1);
  36. $mb->pack(-side => "top",-fill => "x");
  37. $m_Help->pack(-side => "left");
  38. $m_About->pack(-side => "left");
  39. $m_Exit->pack(-side => "left");
  40. $m_Help->command(-label => "Autoscan",-command => [\&helpautoscan]);
  41. $m_Help->command(-label => "Userscan",-command => [\&helpuserscan]);
  42. $m_Help->command(-label => "Webscan",-command => [\&helpwebscan]);
  43. $m_Help->command(-label => "Trashscan",-command => [\&helptrashscan]);
  44. $m_Help->command(-label => "Mailgen",-command => [\&helpmailgen]);
  45. $m_Help->command(-label => "Search File",-command => [\&helpsearchfile]);
  46. $m_Help->command(-label => "Listbox Cleanen",-command => [\&listboxclean]);
  47. $m_About->command(-label => "Credits",-command => [\&credits]);
  48. $m_Exit->command(-label => "Exit",-command => [\&exitus]);
  49. $links = $main->Frame(-relief => 'sunken', -bd => 1)->pack(-side => 'left', -anchor => 'nw');
  50. $linksunten = $links->Frame()->pack(-side => 'bottom', -anchor => 's');
  51. $rechts = $main->Frame(-background => 'black')->pack(-side => 'left', -anchor => 'ne');
  52. $linksunten->Photo('mails', '-format' => 'png', -file => "IMAGES\\mails.png");
  53. $linksunten->Label('-image' => 'mails')->pack(-side => 'left', -anchor=>'nw');
  54. $mail_liste = $rechts->Listbox(-height => 25)->pack(-side => 'left',-fill => 'both',-expand => 1,-anchor => 'e');
  55. $scroll = $main->Scrollbar(-command => [ 'yview', $mail_liste ]);
  56. $mail_liste->configure(-yscrollcommand => [ 'set', $scroll ]);
  57. $scroll->pack(-side => 'right',-fill => 'y',);
  58. $note = $links->NoteBook()->pack();
  59. $page = $note->add('Notebook-0', -label => ' Index ');
  60. $page1 = $note->add('Notebook-1', -label => ' Autoscan ');
  61. $page2 = $note->add('Notebook-2', -label => ' Userscan ');
  62. $page3 = $note->add('Notebook-3', -label => ' Webscan ');
  63. $page4 = $note->add('Notebook-4', -label => ' Trashscan ');
  64. $page5 = $note->add('Notebook-5', -label => ' Mailgen ');
  65. $page6 = $note->add('Notebook-6', -label => ' Search File ');
  66. $page->Photo('logo', '-format' => 'png', -file => "IMAGES\\LOGO.png");
  67. $page->Label('-image' => 'logo')->pack(-side=> 'top');
  68. $intro_header = $page->Label (-text=>"\n\UNepokatneza v$version [Mail Extractor]\E",-font=>"system")->pack();
  69. $intro_beschreibung = $page->Label (-text=>"Nepokatneza ist ein Mail Spider,\nder komplett in Perl geschrieben wurde.\nPerfekt für die Spammer unter euch.\n")->pack();
  70. $funktionen_header = $page->Label (-text=>"+++++[ Funktionen ]+++++",-font=>"system")->pack();
  71. $funktionen_message = $page->Label (-text=>"-Autoscan\n-Userscan\n-Webscan\n -Trashscan\n-Mailgen \n-Search File\n\n")->pack();
  72. $entry = $page->pack();
  73. $local_welcome = $page1->Label (-text=>"+++[ Autoscan ]+++\n",-font=>"system")->pack();
  74. $local_about = $page1->Label(-text=>"Nepokatneza scannt per Knopfdruck vollautomatisch\nnach Email Adressen mit allen ihm bekannten Filtern!\n\n")->pack();
  75. $local_pfad_angeben = $page1->Label (-text=>"Dateipfad:")->pack(-side=>"top",-anchor=>'w');
  76. $local_pfad = $page1->Entry (-width=>35)->pack(-side=>"top",-anchor=>'w');
  77. $local_button = $page1->Button(-text=>"Mails suchen",
  78.                                -font=>"system",
  79.                                -background=>"green",
  80.                                          -command=>[\&autoscan])
  81.                                          ->pack(-side=>"bottom",-anchor=>'e');
  82. $user_welcome = $page2->Label (-text=>"+++[ Userscan ]+++\n",-font=>"system")->pack();
  83. $user_welcome = $page2->Label (-text=>"Hier kann der User entscheiden\nwelche Zeichen gefiltert werden sollen!\n")->pack();
  84. $user_input = $page2->Label (-text=>"Filter:")->pack(-side=>"top",-anchor=>'w');
  85. $user_filterinput = $page2->Entry (-width=>35)->pack(-side=>"top",-anchor=>'w');
  86. $user_fileinput = $page2->Label (-text=>"Dateipfad:")->pack(-side=>"top",-anchor=>'w');
  87. $user_fileinputENTRY = $page2->Entry (-width=>35)->pack(-side=>"top",-anchor=>'w');
  88. $user_checkbox = $page2->Checkbutton(-text => "Default Filterung mitnutzen? ",
  89.                                       -variable => \$user_checkbox_true,
  90.                                                                                            -onvalue => "ready",
  91.                                                                                  -offvalue => "aus")
  92.                                                                                            ->pack(-side=>"top",-anchor=>'w');
  93. $user_button = $page2->Button(-text=>"Filter",
  94.                                  -font=>"system",
  95.                                  -background=>"green",
  96.                                          -command=>[\&userscan])
  97.                                          ->pack(-side=>"bottom",-anchor=>'se');
  98. $web_welcome = $page3->Label (-text=>"+++[ Webscan ]+++\n",-font=>"system")->pack();
  99. $user_welcome = $page3->Label (-text=>"Durchsucht Websites nach Mail Adressen!\nSucht speziel nach dem mailto: befehl.\n\n")->pack();
  100. $web_url_angeben = $page3->Label (-text=>"Adresse:")->pack (-side=>"top",-anchor=>'w');
  101. $web_url = $page3->Entry (-width=>35)->pack(-side=>"top",-anchor=>'w');
  102. $web_checkbox = $page3->Checkbutton(-text => "Searchfile benutzen?",
  103.                                      -variable => \$web_checkbox_true,
  104.                                                                                           -onvalue => "ready",
  105.                                      -offvalue => "noe")
  106.                                                                                           ->pack(-side=>"top",-anchor=>'w');
  107. $web_button= $page3->Button(-text=>"Mails suchen",
  108.                              -font=>"system",
  109.                              -background=>"green",
  110.                                          -command=>[\&webscan])
  111.                                          ->pack(-side=>"bottom",-anchor=>'se');
  112. $trash_welcome = $page4->Label (-text=>"+++[ Trashscan ]+++\n",-font=>"system")->pack();
  113. $trash_erklaerung = $page4->Label (-text=>"Um die Scans wirksamer zu machen\nkann man hiermit nach Duplikaten sowie nach Trashmails suchen.\nDiese werden dann ausgemistet um ein besseres Ergebniss zu erzielen!\n\n")->pack();
  114. $trash_erkannte_header = $page4->Label (-text=>"+++++[Erkannte Trashmails]+++++",-font=>"system")->pack();
  115. $trash_erkannte_trashmails = $page4->Label (-text=>"-Trash-mail.com\n-sofort-mail.de\n-spambog.com\n-emaildienst.de\n-discardmail.com\n-jetable.org\n-eintagsmail .de\n-spamgourmet.com")->pack();
  116. $trash_button = $page4->Button(-text=>"Suche Trash",
  117.                                     -font=>"system",
  118.                                     -background=>"green",
  119.                                          -command=>[\&trashscan])
  120.                                          ->pack(-side=>"bottom",-anchor=>'e');
  121. $mailGEN_welcome = $page5->Label (-text=>"+++[ Mailgen ]+++",-font=>"system")->pack();
  122. $mailGEN_welcome = $page5->Label (-text=>"Generiert aus einer Wordlist, Mail-Adressen!")->pack();
  123. $mailGEN_checkbox1 = $page5->Checkbutton(-text => '@hotmail.com ',
  124.                                           -variable => \$AThotmail)
  125.                                                                                            ->pack(-side=>"top",-anchor=>'w');
  126. $mailGEN_checkbox2 = $page5->Checkbutton(-text => '@yahoo.de ',
  127.                                           -variable => \$ATyahoo)
  128.                                                                                            ->pack(-side=>"top",-anchor=>'w');
  129. $mailGEN_checkbox3 = $page5->Checkbutton(-text => '@gmail.com ',
  130.                                           -variable => \$ATgmail)
  131.                                                                                            ->pack(-side=>"top",-anchor=>'w');
  132. $mailGEN_checkbox4 = $page5->Checkbutton(-text => '@gmx.com ',
  133.                                           -variable => \$ATgmx)
  134.                                                                                            ->pack(-side=>"top",-anchor=>'w');
  135. $mailGEN_checkbox5 = $page5->Checkbutton(-text => '@web.de ',
  136.                                           -variable => \$ATweb)
  137.                                                                                            ->pack(-side=>"top",-anchor=>'w');
  138. $mailGEN_checkbox6 = $page5->Checkbutton(-text => '@mail.ru ',
  139.                                           -variable => \$ATmailru)
  140.                                                                                                      ->pack(-side=>"top",-anchor=>'w');
  141. $mailGEN_checkbox7 = $page5->Checkbutton(-text => '@msn.com ',
  142.                                           -variable => \$ATmsn)
  143.                                                                                                      ->pack(-side=>"top",-anchor=>'w');
  144. $mailGEN_checkbox8 = $page5->Checkbutton(-text => '@firemail.de ',
  145.                                           -variable => \$ATfiremail)
  146.                                                                                                      ->pack(-side=>"top",-anchor=>'w');
  147. $mailGEN_checkbox9 = $page5->Checkbutton(-text => '@directbox.com ',
  148.                                           -variable => \$ATdirectbox)
  149.                                                                                                      ->pack(-side=>"top",-anchor=>'w');
  150. $mailGEN_checkbox9 = $page5->Checkbutton(-text => '@lycos.de ',
  151.                                           -variable => \$ATlycos)
  152.                                                                                                      ->pack(-side=>"top",-anchor=>'w');
  153. $mailGEN_button = $page5->Button(-text=>"Generiere Mails",
  154.                                  -font=>"system",
  155.                                  -background=>"green",
  156.                                          -command=>[\&mailgen])
  157.                                          ->pack(-side=>"bottom",-anchor=>'se');
  158. $searchfile_header = $page6->Label(-text=>"+++[ Search File ]+++\n",-font=>"system")->pack();
  159. $searchfile_erklaerung = $page6->Label(-text=>"Hier kann man URL Adressen eintragen\ndie danach beim Webscan benutzt werden können!")->pack();
  160. $searchfile_button = $page6->Button(-text=>"Suchdatei erstellen",
  161.                                      -font=>"system",
  162.                                      -background=>"green",
  163.                                          -command=>[\&search_file])
  164.                                          ->pack(-side=>"bottom",-anchor=>'e');
  165. $input = $page6->Text(-height=>10,
  166.                        -width=>67)
  167.                                                    ->pack(-side => 'left');
  168. $entry->focus();
  169. print "=> GUI geladen."."\n";
  170. MainLoop();
  171. sub autoscan {
  172. print "=> Autoscan."."\n";
  173. $mailcount = 0;
  174. $pfad = $local_pfad->get;
  175. open(FILE,"<", "$pfad");
  176. open(SORTED,">", "sorted.scan");
  177. foreach $word (<FILE>) {
  178. $word =~ tr/           /\n/;
  179. $word =~ tr/:/\n/;
  180. $word =~ tr/'/\n/;
  181. $word =~ s/_at_/@/i;
  182. $word =~ s/_dot_/./i;
  183. $word =~ s/<at>/@/i;
  184. $word =~ s/<dot>/./i;
  185. $word =~ s/\[at\]/@/i;
  186. $word =~ s/\[dot\]/./i;
  187. $word =~ s/\{at\}/@/i;
  188. $word =~ s/\{dot\}/./i;
  189. print SORTED $word;
  190. }
  191. close(FILE);
  192. close(SORTED);
  193. open(SORTED,"<","sorted.scan");
  194. open(MAILS,">>", "nepokatneza-mails.txt");
  195. foreach $line (<SORTED>) {
  196. if ($line =~ m/(@)/) {
  197. if ($line =~ m/\.\w\w\w?/) {
  198. $mailcount++;
  199. chop($line);
  200. print MAILS "$line\n";
  201. $mail_liste->insert('end',"$line");
  202. }
  203. }
  204. }
  205. close(SORTED);
  206. close(MAILS);
  207. unlink "sorted.scan";
  208. $linksunten->Label(-text => "$mailcount")->pack(-side => 'left', -anchor=>'w');
  209. }
  210. sub userscan {
  211. print "=> Usercan."."\n";
  212. ($filter,$pfad) = ($user_filterinput->get,$user_fileinputENTRY->get);
  213. if ($user_checkbox_true =~ m/ready/i) {
  214. print "Userscan mit nutzung der Default Filter\n";
  215. open(FILE,"<", "$pfad");
  216. open(SORTED,">", "sorted.scan");
  217. foreach $word (<FILE>) {
  218. $word =~ tr/           /\n/;
  219. $word =~ tr/:/\n/;
  220. $word =~ tr/'/\n/;
  221. $word =~ s/_at_/@/i;
  222. $word =~ s/_dot_/./i;
  223. $word =~ s/<at>/@/i;
  224. $word =~ s/<dot>/./i;
  225. $word =~ s/\[at\]/@/i;
  226. $word =~ s/\[dot\]/./i;
  227. $word =~ s/\{at\}/@/i;
  228. $word =~ s/\{dot\}/./i;
  229. $word =~ s/$filter/\n/;
  230. print SORTED $word;
  231. }
  232. close(FILE);
  233. close(SORTED);
  234. open(SORTED,"<","sorted.scan");
  235. open(MAILS,">>", "nepokatneza-mails.txt");
  236. foreach $line (<SORTED>) {
  237. if ($line =~ m/(@)/) {
  238. if ($line =~ m/\.\w\w\w?/) {
  239. $mailcount++;
  240. chop($line);
  241. print MAILS "$line\n";
  242. $mail_liste->insert('end',"$line");
  243. }
  244. }
  245. }
  246. close(SORTED);
  247. close(MAILS);
  248. unlink "sorted.scan";
  249. $linksunten->Label(-text => "$mailcount")->pack(-side => 'left', -anchor=>'w');
  250. } else {
  251. print "Userscan ohne nutzung der Default Filter\n";
  252. open(FILE,"<", "$pfad");
  253. open(SORTED,">", "sorted.scan");
  254. foreach $word (<FILE>) {
  255. foreach $filter (@filter) {
  256. $word =~ tr/$filter/\n/;
  257. print SORTED $word;
  258. }
  259. }
  260. close(FILE);
  261. close(SORTED);
  262. open(SORTED,"<","sorted.scan");
  263. open(MAILS,">>", "nepokatneza-mails.txt");
  264. foreach $line (<SORTED>) {
  265. if ($line =~ m/(@)/) {
  266. if ($line =~ m/\.\w\w\w?/) {
  267. $mailcount++;
  268. chop($line);
  269. print MAILS "$line\n";
  270. $mail_liste->insert('end',"$line");
  271. }
  272. }
  273. }
  274. close(SORTED);
  275. close(MAILS);
  276. unlink "sorted.scan";
  277. $linksunten->Label(-text => "$mailcount")->pack(-side => 'left', -anchor=>'w');
  278. }
  279. }
  280. sub webscan {
  281. print "=> Web Benutzung mit URL File."."\n";
  282. $mailcount = 0;
  283. if ($web_checkbox_true =~ m/ready/i) {
  284. print "=> Web Benutzung mit Search File."."\n";
  285. open(SF,"<","nepokatneza.search");
  286. foreach $addy (<SF>) {
  287. chop($getTHEmails = "$addy");
  288. $agent = new LWP::UserAgent;
  289. $request = HTTP::Request->new('GET',$getTHEmails);
  290. $result = $agent->request($request);
  291. $getTHEmails =~ s/.*\///;
  292. $getTHEmails = "temp1.txt";
  293. open(lookME, ">>", "temp1.txt") || die print "Datei konnte nicht erstellt werden!\n";
  294. print lookME $result->content();
  295. close(lookME);
  296. }
  297. close(SF);
  298. open(IP,"<","temp1.txt") || die print "Datei konnte nicht geoeffnet werden!\n";
  299. foreach $line (<IP>) {
  300. $line =~ tr/<//;
  301. $line =~ tr/>//;
  302. $line =~ tr/\///;
  303. $line =~ tr/"/\n/;
  304. $line =~ s/HREF=//g;
  305. $line =~ s/mailto:/\n/g;
  306. push(@temp2,"$line");
  307. }
  308. close(IP);
  309. unlink "temp1.txt" || die print "Datei konnte nicht geloescht werden!\n";
  310. open(temp2, ">", "temp2.txt") || die print "Datei konnte nicht erstellt werden!\n";
  311. print temp2 @temp2;
  312. close(temp2);
  313. open(temp3, "<", "temp2.txt") || die print "Datei konnte nicht geoeffnet werden!\n";
  314. for $mails (<temp3>) {
  315. if ($mails =~ m/.@/) {
  316. if ($mails =~ m/\.\w\w\w?/) {
  317. $mailcount++;
  318. chop($mails);
  319. $mail_liste->insert('end',"$mails");
  320. push(@mails,"$mails");
  321. }
  322. }
  323. }
  324. close(temp3);
  325. unlink "temp2.txt" || die print "Datei konnte nicht geloescht werden!\n";
  326. open(output, ">>", "nepokatneza-mails.txt") || die print "Datei konnte nicht erstellt werden!\n";
  327. print output @mails;
  328. close(output);
  329. $linksunten->Label(-text => "$mailcount")->pack(-side => 'left', -anchor=>'w');
  330. } else {
  331. print "=> Web Benutzung ohne URL File."."\n";
  332. $pfad = $web_url->get;
  333. $getTHEmails = "$pfad";
  334. $agent = new LWP::UserAgent;
  335. $request = HTTP::Request->new('GET',$getTHEmails);
  336. $result = $agent->request($request);
  337. $getTHEmails =~ s/.*\///;
  338. $getTHEmails = "temp1.txt";
  339. open(lookME, ">", "temp1.txt") || die print "Datei konnte nicht erstellt werden!\n";
  340. print lookME $result->content();
  341. close(lookME);
  342. open(IP,"<","temp1.txt") || die print "Datei konnte nicht geoeffnet werden!\n";
  343. foreach $line (<IP>) {
  344. $line =~ tr/</\n/;
  345. $line =~ tr/>/\n/;
  346. $line =~ tr/\//\n/;
  347. $line =~ tr/"/\n/;
  348. $line =~ s/HREF=//;
  349. $line =~ s/mailto:/\n/g;
  350. push(@temp2,"$line");
  351. }
  352. close(IP);
  353. unlink "temp1.txt" || die print "Datei konnte nicht geloescht werden!\n";
  354. open(temp2, ">", "temp2.txt") || die print "Datei konnte nicht erstellt werden!\n";
  355. print temp2 @temp2;
  356. close(temp2);
  357. open(temp3, "<", "temp2.txt") || die print "Datei konnte nicht geoeffnet werden!\n";
  358. for $mails (<temp3>) {
  359. if ($mails =~ m/.@/) {
  360. if ($mails =~ m/\.\w\w\w?/) {
  361. $mailcount++;
  362. chop($mails);
  363. $mail_liste->insert('end',"$mails");
  364. push(@mails,"$mails");
  365. }
  366. }
  367. }
  368. close(temp3);
  369. unlink "temp2.txt" || die print "Datei konnte nicht geloescht werden!\n";
  370. open(output, ">>", "nepokatneza-mails.txt") || die print "Datei konnte nicht erstellt werden!\n";
  371. print output @mails;
  372. close(output);
  373. $linksunten->Label(-text => "$mailcount")->pack(-side => 'left', -anchor=>'w');
  374. }
  375. }
  376. sub trashscan {
  377. print "=> Duplikate und Trashmails loeschen"."\n";
  378. open(duplikate, "<", "nepokatneza-mails.txt") || die print "Datei konnte nicht geoeffnet werden!\n";
  379. $count_dups = 0;
  380. %hash = ();
  381. for (<duplikate>) {
  382. $hash{$_} = 1;
  383. $count_dups++;
  384. }
  385. close(duplikate);
  386. open(dupfrei, ">", "duplikate.scan") || die $page4->messageBox (-message=>"Scan File konnte nicht erstellt werden!");
  387. @dups = keys(%hash);
  388. @sorted_dups = sort(@dups);
  389. $sorted_dups = int(@sorted_dups);
  390. $anzahl_dups = $count_dups-$sorted_dups;
  391. print dupfrei @sorted_dups;
  392. close(dupfrei);
  393. open(TrashScan,"<","duplikate.scan") || die $page4->messageBox (-message=>"Scan File nicht gefunden!");
  394. open(Clean,">","nepokatneza-mails.txt") || die $page4->messageBox (-message=>"Mail File konnte nicht erstellt werden!");
  395. $TRASH = 0;
  396. for $MAILS (<TrashScan>) {
  397. if ($MAILS =~ m/\@trash-mail.com/i) {
  398. $MAILS =~ s/$MAILS//;
  399. $TRASH++;
  400. }
  401. if ($MAILS =~ m/\@sofort-mail.de/i) {
  402. $MAILS =~ s/$MAILS//;
  403. $TRASH++;
  404. }
  405. if ($MAILS =~ m/\@spambog.com/i) {
  406. $MAILS =~ s/$MAILS//;
  407. $TRASH++;
  408. }
  409. if ($MAILS =~ m/\@emaildienst.de/i) {
  410. $MAILS =~ s/$MAILS//;
  411. $TRASH++;
  412. }
  413. if ($MAILS =~ m/\@discardmail.com/i) {
  414. $MAILS =~ s/$MAILS//;
  415. $TRASH++;
  416. }
  417. if ($MAILS =~ m/\@jetable.org/i) {
  418. $MAILS =~ s/$MAILS//;
  419. $TRASH++;
  420. }
  421. if ($MAILS =~ m/\@eintagsmail.de/i) {
  422. $MAILS =~ s/$MAILS//;
  423. $TRASH++;
  424. }
  425. if ($MAILS =~ m/\@spamgourmet.com/i) {
  426. $MAILS =~ s/$MAILS//;
  427. $TRASH++;
  428. }
  429. print Clean $MAILS;
  430. }
  431. close(TrashScan);
  432. close(Clean);
  433. unlink "duplikate.scan";
  434. $page4->messageBox (-message=>"Duplikate: $anzahl_dups \nTrashMails: $TRASH \n\ngelöscht!");
  435. print "=> Duplikate und TrashMails geloescht."."\n";
  436. }
  437. sub mailgen {
  438. print "=> Mails generieren."."\n";
  439. print "=> Wordlist runterladen."."\n";
  440. $content=getstore('http://www.milw0rm.com/mil-dic.php','mil-dic.txt');
  441. open(mille,"<","mil-dic.txt");
  442. print "=> Wordlist runtergeladen."."\n";
  443. open(gen,">","nepokatneza-mgen.txt");
  444. foreach $string (<mille>) {
  445. $string =~ s/\n//;
  446. print gen $AThotmail?"$string".'@hotmail.com'."\n":"";
  447. print gen $ATyahoo?"$string".'@yahoo.de'."\n":"";
  448. print gen $ATgmail?"$string".'@gmail.com'."\n":"";
  449. print gen $ATgmx?"$string".'@gmx.com'."\n":"";
  450. print gen $ATweb?"$string".'@web.de'."\n":"";
  451. print gen $ATmailru?"$string".'@mail.ru'."\n":"";
  452. print gen $ATmsn?"$string".'@msn.com'."\n":"";
  453. print gen $ATfiremail?"$string".'@firemail.de'."\n":"";
  454. print gen $ATdirectbox?"$string".'@directbox.com'."\n":"";
  455. print gen $ATlycos?"$string".'@lycos.de'."\n":"";
  456. }
  457. close(mille);
  458. close(gen);
  459. unlink "mil-dic.txt";
  460. $page3->messageBox (-message=>"Mails erstellt!");
  461. print "=> Mails erstellt."."\n";
  462. }
  463. sub search_file {
  464. print "=> Search File erstellen."."\n";
  465. open(SF,">","nepokatneza.search");
  466. print SF $input->get('1.0', 'end');
  467. close(SF);
  468. $page6->messageBox (-message=>"Search File erstellt!");
  469. print "=> URL File erstellt."."\n";
  470. }
  471. sub helpautoscan {
  472. $main->messageBox (-message=>"-Autoscan-\nBeim Autoscan,\nfiltert Nepokatneza mit allen ihm bekannten Filtern.");
  473. }
  474. sub helpuserscan {
  475. $main->messageBox (-message=>"-Userscan-\nBeim Userscan,\nkann der Benutzer selber wählen,\nwelche Zeichen gefiltert werden sollen.");
  476. }
  477. sub helpwebscan {
  478. $main->messageBox (-message=>"-Webscan-\nBeim Webscan,\nwird in einer Website nach Mails gescannt.");
  479. }
  480. sub helptrashscan {
  481. $main->messageBox (-message=>"-Trashscan-\nBeim Trashcan,\nwerden Mailduplikate entfernt,\nund Trashmails aussortiert.");
  482. }
  483. sub helpmailgen {
  484. $main->messageBox (-message=>"-Mailgen-\nBeim Mailgen,\nwerden Mails von den Anbietern\n-Hotmail\n-Yahoo\n-Gmail\n-GMX\n-WEB\n-mail.ru\n-MSN\n-lycos\n-firemail\n-directbox\nerstellt.& quot;);
  485. }
  486. sub helpsearchfile {
  487. $main->messageBox (-message=>"-Search File-\nBei Search File,\nkann der Benutzer URLS eintragen,\ndie beim Webscan getestet werden!");
  488. }
  489. sub listboxclean {
  490. $size = $mail_liste->size();
  491. $mail_liste->delete(0,$size);
  492. }
  493. sub credits {
  494. $credits = MainWindow->new();
  495. $credits->Label(-text=>"\UNepokatneza v$version\E",-font=>"system")->pack();
  496. $credits->Label(-text=>"\nCoded by Perforin\n\nTrust your technolust!\n********************\nwww.dark-codez.org\nwww.perforins-software.de.vu")->pack();
  497. }
  498. sub exitus {
  499. exit;
  500. }
code pin board Back To Code Pin Board Post New Code
Please login to post comments.
Page 1 of 1
 
 
Part of the MyPingle Network
Development Blog :: Make A Donation :: Contact Me
Terms & Conditions :: Privacy Policy :: Documents 		Version 1.44.00
Copyright © 2007 - 2008, Scott Thompson, All Rights Reserved