PureBasic Forums - English

Code: Select all

KEYPAD$="123456789ABCDEF"
If OpenConsole()
   ConsoleTitle ("File Crypter")
   PrintN("Type in the filename to process.")
   FILE$= Input()
   If Len(FILE$) And FileSize(FILE$)>0
      If OpenFile(1,FILE$)
         PrintN("ENTER UP TO 16 CHARACTER KEY")
         KEY$= Input()
         LK= Len(KEY$)
         If LK>0 
            If LK>16
               KEY$= Mid(KEY$,1,16)
            Else
               If LK<16
                  KEY$= Mid(KEY$+KEYPAD$,1,16)
               EndIf   
            EndIf
            TOTSIZ= FileSize(FILE$)
            *DECRY= AllocateMemory(TOTSIZ)
            *ENCRY= AllocateMemory(TOTSIZ)            
GETTYPE:            
            PrintN("Enter E for ENCRYPTION, D for DECRYPTION, OR Q TO QUIT")
            TYPE$= Input()
            If TYPE$="E" Or TYPE$="e"
               ReadData(1,*DECRY,TOTSIZ)
               CloseFile(1)
               AESEncoder(*DECRY,*ENCRY,TOTSIZ,@KEY$,128,0,#PB_Cipher_ECB)
               OpenFile(2,FILE$)
               WriteData(2,*ENCRY,TOTSIZ)
               CloseFile(2)
               PrintN("FILE ENCRYPTED")
               Delay(3000)
            Else
               If TYPE$="D" Or TYPE$="d"
                  ReadData(1,*ENCRY,TOTSIZ)
                  CloseFile(1)
                  AESDecoder(*ENCRY,*DECRY,TOTSIZ,@KEY$,128,0,#PB_Cipher_ECB)
                  OpenFile(2,FILE$)
                  WriteData(2,*DECRY,TOTSIZ)
                  CloseFile(2)
                  PrintN("FILE DECRYPTED")
                  Delay(3000)
               Else
                  If TYPE$<>"Q" Or TYPE$<>"q"
                     Goto GETTYPE
                  EndIf   
               EndIf   
            EndIf           
         EndIf   
      EndIf      
   EndIf
   CloseConsole()
EndIf