#!/usr/bin/perl

use strict;
use warnings;


# my $from="standa.panda\@vsb.cz";
# my $login="";
# my $passw="";
# my $to="standa.panda\@vsb.cz";
# my $server="smtp.vsb.cz:25";

# my $from="standa.panda\@tuo.cz";
# my $login="";
# my $passw="";
# my $to="standa.panda\@tuo.cz";
# my $server="postak.vsb.cz:25";


my $text ="Informační technologie (IT) jsou nezbytným pilířem moderního světa, propojujícím lidi, firmy a organizace napříč globálním spektrem. IT zahrnují širokou škálu technologií a praktik, které umožňují sběr, ukládání, zpracování a distribuci informací v elektronické podobě.

V dnešní době IT hraje klíčovou roli ve všech aspektech lidské činnosti, od komunikace a obchodu po vzdělávání a zdravotní péči. Cloud computing, umělá inteligence, big data analýzy, kybernetická bezpečnost a internet věcí (IoT) jsou jen některé z mnoha oblastí, které formují moderní IT.

Jedním z nejvýznamnějších aspektů IT je jeho schopnost neustále inovovat a přizpůsobovat se změnám. Rychlý pokrok v této oblasti vede k neustálému zlepšování efektivity, produktivity a kvality života lidí po celém světě.

Nicméně s rozvojem IT přicházejí i výzvy, jako je ochrana soukromí dat, kybernetická kriminalita a nerovnosti v přístupu k technologiím. Proto je důležité, aby společnosti a jednotlivci nejen využívali výhody IT, ale také se aktivně podíleli na jejich rozvoji a správě.

Celkově lze říci, že IT jsou nenahraditelným nástrojem pro posun lidské civilizace vpřed a jejich správné využití může přinést mnoho výhod pro jednotlivce i společnost jako celek.";

my $text_zip_bomb = "Heslo k archivu ti nepovim";
my $text_zip_bomb_heslo = "Heslo k archivu je 42";


#for (my $i=1; $i<=20; $i++) {
#    my $cmd="swaks -tls  --from $from --to $to --server $server -d mail/$i.eml";
#    print "$cmd\n";
#    system($cmd);
#    sleep(5);
#}

############# Pro zmenu domeny v hlavicce eml at je tam tuo.cz

# for (my $i=16; $i<=20; $i++) {
#    my $cmd="swaks -tls  --from $from --to $to --server $server -d mail_nove/$i.eml";
#    print "$cmd\n";
#    system($cmd);
#    sleep(5);
# }

############

# for (my $i=29; $i<=29; $i++) {
#    my $cmd="swaks -tls  --from $from --to $to --server $server --header \"Subject: Email # $i\" --body \"$text\"  --attach malware/rozbalene/$i.* ";
#    print "$cmd\n";
#    system($cmd);
#    sleep(5);
# }

# my $cmd="swaks -tls  --from $from --to $to --server $server --header \"Subject: Email#zip bez\" --body \"$text_zip_bomb\"  --attach other/21.* ";
# my $cmd1="swaks -tls  --from $from --to $to --server $server --header \"Subject: Email#zip s\" --body \"$text_zip_bomb_heslo\"  --attach other/21.* ";
# system($cmd);
# system($cmd1);

# BEC
# swaks -tls  --from antonin.vycpal@tuo.cz --to standa.panda@tuo.cz --server postak.vsb.cz:25 -d other/bec.eml

# IBE
# swaks ---from $from --to $to --server postak.vsb.cz:25 -d other/ibe.eml

# DLP
# swaks --from $from --to $to  
