PureBasic

Code : Tout sélectionner

;encoder/Decoder Base 64 
; By Ar-S / http://ldvmultimedia.com
; P.B : 4.51

Enumeration
  #Win
  #BTE
  #BTD
  #CODE
  #TXT
  #BT_FULL
EndEnumeration

Procedure OpenWindow_Win()
  If OpenWindow(#Win, 450, 200, 400, 214, "Base64 Encoder/Decoder", #PB_Window_SystemMenu|#PB_Window_TitleBar|#PB_Window_ScreenCentered|#PB_Window_MinimizeGadget)
    
    ButtonGadget(#BTE, 5, 175, 176, 35, "Base64 Encoder")
    ButtonGadget(#BTD, 220, 175, 176, 35, "Base64 Decoder")
    EditorGadget(#CODE, 8, 27, 385, 145)
    RetourAuto(#CODE)
    TextGadget(#TXT, 1, 3, 398, 20, "Entrez le script à encoder / décoder en base64", #PB_Text_Center|#SS_CENTERIMAGE)
    
  EndIf
EndProcedure

OpenWindow_Win()

Repeat
  Select WaitWindowEvent()
    Case #PB_Event_Gadget
      Select EventGadget()
        Case #BTE
          test.s = GetGadgetText(#CODE)
          enc.s = Space(1024) 
          If GetGadgetText(#CODE)=""
            MessageRequester("Erreur","il ni a rien à convertir !",#MB_ICONINFORMATION)
          Else
            Base64Encoder(@test, StringByteLength(test), @enc, 1024)
            result=MessageRequester("Encode",enc+Chr(10)+"Copier dans le presse papier ?",#PB_MessageRequester_YesNo)
            SetGadgetText(#CODE,enc)
            If result=6
              SetClipboardText(enc)
              MessageRequester("Ok ! ",enc +" a été copié dans le presse papier")
            EndIf
          EndIf
          
          
        Case #BTD
          test.s = GetGadgetText(#CODE)
          dec.s = Space(1024) 
          If GetGadgetText(#CODE)=""
            MessageRequester("Erreur","il ni a rien à convertir !",#MB_ICONINFORMATION)
          Else
            D=Base64Decoder(@test, StringByteLength(test), @dec, 1024)
            If D=0
              MessageRequester("Erreur","Contenu Invalide !")
            Else
              result=MessageRequester("Decode",dec+Chr(10)+"Copier dans le presse papier ?",#PB_MessageRequester_YesNo) 
              SetGadgetText(#CODE,dec)
              If result=6
                SetClipboardText(dec)
                MessageRequester("Ok ! ",dec +" a été copié dans le presse papier")
              EndIf
            EndIf 
          EndIf
      EndSelect
    Case #PB_Event_CloseWindow
      Select EventWindow()
        Case #Win
          CloseWindow(#Win)
          Break
      EndSelect
  EndSelect
ForEver

Code : Tout sélectionner

Global etat$,encode$,decode$