PureBoard

Code: Alles auswählen

Enumeration
  #MDHash
EndEnumeration


Enumeration
  #String_0
  #Beenden
  #speichern
  #about
EndEnumeration



Procedure Open_MDHash()
  If OpenWindow(#MDHash, 343, 366, 214, 41, "Dein MD5 Hash",  #PB_Window_SystemMenu | #PB_Window_TitleBar )
    If CreateGadgetList(WindowID(#MDHash))
      StringGadget(#String_0, 0, 0, 210, 20, look$)
      ButtonGadget(#Beenden, 150, 20, 60, 20, "Beenden")
      ButtonGadget(#speichern, 0, 20, 100, 20, "Zwischensperichen")
      ButtonGadget(#about, 100, 20, 50, 20, "about")
      
    EndIf
  EndIf
EndProcedure


   Frage   =MessageRequester("Ein oder Ausgabe","Soll das Ergebnis in eine Datei geschrieben werden ? ",#PB_MessageRequester_YesNo)
If Frage = #PB_MessageRequester_Yes

  datei.s = InputRequester("Wort oder Satz", "Gib das Wort ein das Verschlüsselt werden soll" ,"")
  
  look$ =  MD5Fingerprint(@datei, StringByteLength(datei))
  CreateFile(1,"Hash.txt")
  WriteString(1,look$)
  CloseFile(1)
  MessageRequester("Super","Dein MD5 Hash lautet"+Chr(10)+""+look$+""+Chr(10)+"Die Datei wurde erstellt")

Else
  datei.s = InputRequester("Wort oder Satz", "Gib das Wort ein das Verschlüsselt werden soll" ,"")
  
  look$ =  MD5Fingerprint(@datei, StringByteLength(datei))




Open_MDHash()
SetGadgetText(#String_0,look$)
Repeat

    If EventID = #PB_Event_CloseWindow 
   Quit = 1
    EndIf

    
    If EventID = #PB_Event_Gadget
    If EventGadget() = #Beenden
    
    End 
    EndIf
   
    If eventID =#Speichern
    SetClipboardText(look$)
    EndIf
    

EndIf
   EventID = WaitWindowEvent() 
Until Quit=1
EndIf

Code: Alles auswählen

    If eventID =#Speichern
    SetGadgetText(#String_0,look$)
    SetClipboardText(look$)
    EndIf

Code: Alles auswählen

    If eventID =#Speichern
    SetClipboardText(#String_0)
    EndIf

Code: Alles auswählen

Enumeration
  #MDHash
EndEnumeration


Enumeration
  #String_0
  #Beenden
  #speichern
  #about
EndEnumeration



Procedure Open_MDHash()
  If OpenWindow(#MDHash, 343, 366, 214, 41, "Dein MD5 Hash",  #PB_Window_SystemMenu | #PB_Window_TitleBar )
    If CreateGadgetList(WindowID(#MDHash))
      StringGadget(#String_0, 0, 0, 210, 20, look$)
      ButtonGadget(#Beenden, 150, 20, 60, 20, "Beenden")
      ButtonGadget(#speichern, 0, 20, 100, 20, "Zwischensperichen")
      ButtonGadget(#about, 100, 20, 50, 20, "about")
      
    EndIf
  EndIf
EndProcedure


Frage   =MessageRequester("Ein oder Ausgabe","Soll das Ergebnis in eine Datei geschrieben werden ? ",#PB_MessageRequester_YesNo)
If Frage = #PB_MessageRequester_Yes
  
  datei.s = InputRequester("Wort oder Satz", "Gib das Wort ein das Verschlüsselt werden soll" ,"")
  
  look$ =  MD5Fingerprint(@datei, StringByteLength(datei))
  CreateFile(1,"Hash.txt")
  WriteString(1,look$)
  CloseFile(1)
  MessageRequester("Super","Dein MD5 Hash lautet"+Chr(10)+""+look$+""+Chr(10)+"Die Datei wurde erstellt")
  
Else
  datei.s = InputRequester("Wort oder Satz", "Gib das Wort ein das Verschlüsselt werden soll" ,"")
  
  look$ =  MD5Fingerprint(@datei, StringByteLength(datei))
  
  
  
  
  Open_MDHash()
  SetGadgetText(#String_0,look$)
  Repeat
    EventID=WaitWindowEvent()
   
 
    
    
    If EventID = #PB_Event_Gadget
     
      If EventGadget() = #Beenden
        
        End
      ElseIf EventGadget() =#speichern
          SetClipboardText(look$)
         
        EndIf
      EndIf
      
     
         If EventID = #PB_Event_CloseWindow
      Quit = 1
    EndIf
      
   
   
  Until Quit=1
EndIf