Start_Time := Clock; for a in 1..100 loop if a mod 2 = 0 then for b in 1..100 loop if b mod 2 = 0 then for c in 1..100 loop if c mod 2 = 0 then for d in 1..100 loop if d mod 2 = 0 then for e in 1..100 loop if e mod 2 = 0 then for f in 1..100 loop if f mod 2 = 0 then for g in 1..100 loop if g mod 2 = 0 then for h in 1..100 loop if h mod 2 = 0 then for i in 1..100 loop if i mod 2 = 0 then for j in 1..100 loop if j mod 2 = 0 then for k in 1..100 loop if k mod 2 = 0 then for l in 1..100 loop if l mod 2 = 0 then for m in 1..100 loop if m mod 2 = 0 then for n in 1..100 loop if n mod 2 = 0 then for o in 1..100 loop if o mod 2 = 0 then for p in 1..100 loop if p mod 2 = 0 then for q in 1..100 loop if q mod 2 = 0 then for r in 1..100 loop if r mod 2 = 0 then for s in 1..100 loop if s mod 2 = 0 then for t in 1..100 loop if t mod 2 = 0 then for u in 1..100 loop if u mod 2 = 0 then for v in 1..100 loop if v mod 2 = 0 then SMG_Serpent.Encrypt(W, Plain, Encr); Plain := Encr; end if; end loop; end if; end loop; end loop; end if; end loop; end if; end loop; end loop; end if; end loop; end if; end loop; end loop; end if; end loop; end if; end loop; end loop; end if; end loop; end if; end loop; End_Time := Clock;