SuperStrict

Include "TCrypt.bmx"

CryptImage("bg.png" , "crypted.png")

CryptImage("crypted.png" , "crypted2.png")

Local img:TImage = loadImage3("crypted.png")

Graphics 800 , 600 , 0
Cls
DrawImage  img, 0 , 0
Flip
WaitKey()
End




Function loadImage3:TImage(path:String)
   Local crypt:TCrypt = New TXorCrypt
   crypt.setKey("1001")
   Local inbank:TBank = LoadBank(path)
   Local in:TStream = CreateBankStream(inbank)
   Local outbank:TBank = CreateBank()
   Local out:TStream = CreateBankStream(outbank)
   crypt.decipher(in , out)
   Return LoadImage(outbank)
End Function


Function CryptImage(path:String , outPath:String)
   Local crypt:TCrypt = New TXorCrypt
   crypt.setKey("1001")
   
   Local inbank:TBank = LoadBank(path)
   Local in:TStream = CreateBankStream(inbank)
   Local outbank:TBank = CreateBank()
   Local out:TStream = CreateBankStream(outbank)
   crypt.cipher(in , out)
   SaveBank(outbank,outPath)
End Function










Rem
   Easy Cryptography module by Christian Gei�ler (c) 2008
   about: delivers easy to use encryption and decryption classes for bmax.

End Rem


Rem
   bbdoc: Interface for encryption / decryption types
End Rem

Type TCrypt Abstract
   
   Rem
      bbdoc: ciphers a stream into another with the specified KEY
      also: setKey()
   End Rem
   Method cipher(in:TStream , out:TStream) Abstract
      
   Rem
      bbdoc: deciphers a stream into another with the specified KEY
      also: setKey()
   End Rem
   Method decipher(in:TStream , out:TStream) Abstract
      
   Rem
      bbdoc: sets the key for this encryption type
   End Rem
   Method setKey(key:String) Abstract

End Type



Rem
   bbdoc: Weak encryption type, uses XOR to encrypt files.
End Rem

Type TXorCrypt Extends TCrypt Final
   Field key:Int
   
   Method cipher(in:TStream , out:TStream)
      If in=Null Or out = Null Return
      While Not Eof(in)
         WriteInt(out,(ReadInt(in) ~ Self.key))
      Wend
   End Method
      

   Method decipher(in:TStream , out:TStream)
      If in = Null Or out = Null Return
      Self.cipher(in,out)
   End Method
      

   Method setKey(key:String)
      Self.key = Int(key)
   End Method
End Type