Commit 92ecbb81 authored by Vicente Parra Hurtado's avatar Vicente Parra Hurtado

Funcional

parent e8b4b9ef
......@@ -65,13 +65,16 @@ main = do
g <- getStdGen
password1 <- crazyloop 64 1048576 g
g <- newStdGen
putStr "[------25%"
g <- newStdGen
password2 <- crazyloop 64 1048576 g
g <- newStdGen
putStr "------50%"
g <- newStdGen
password3 <- crazyloop 64 1048576 g
g <- newStdGen
putStr "------75%"
g <- newStdGen
password4 <- crazyloop 64 1048576 g
putStr "------100%]"
let passwords = B.unpack(password1) ++ B.unpack(password2) ++ B.unpack(password3) ++ B.unpack(password4)
g <- newStdGen
......@@ -82,8 +85,7 @@ main = do
let password = B.take 128 (B.pack (ordercrazy 30 passwords rows cols))
let passworda = B.drop 128 (B.pack (ordercrazy 30 passwords rows cols))
let passwordb = B.pack (B.zipWith (xor) ( password) ( passworda))
B.writeFile fileName1 password
let base64a = BS.encode passworda
......
......@@ -65,13 +65,16 @@ main = do
g <- getStdGen
password1 <- crazyloop 64 1048576 g
g <- newStdGen
putStr "[------25%"
g <- newStdGen
password2 <- crazyloop 64 1048576 g
g <- newStdGen
putStr "------50%"
g <- newStdGen
password3 <- crazyloop 64 1048576 g
g <- newStdGen
putStr "------75%"
g <- newStdGen
password4 <- crazyloop 64 1048576 g
putStr "------100%]"
let passwords = B.unpack(password1) ++ B.unpack(password2) ++ B.unpack(password3) ++ B.unpack(password4)
g <- newStdGen
......@@ -82,8 +85,7 @@ main = do
let password = B.take 128 (B.pack (ordercrazy 30 passwords rows cols))
let passworda = B.drop 128 (B.pack (ordercrazy 30 passwords rows cols))
let passwordb = B.pack (B.zipWith (xor) ( password) ( passworda))
B.writeFile fileName1 password
let base64a = BS.encode passworda
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment