PureBoard

Code: Alles auswählen

Structure User ;{
  sName.s{255}
  sPass.s{32}
EndStructure ;}

Global NewList User.User()

OpenConsole()

Define sInput.s, b1.b

Repeat
  Select LCase(Input())
    Case "new"
      AddElement(User())
      Print("  Name: ")
      User()\sName = Input()
      Debug  User()\sName
      Print("  Passwort: ")
      sInput = Input()
      User()\sPass = MD5Fingerprint(@sInput, Len(sInput))
    Case "exit"
      Break
  EndSelect
  
  Delay(20)
ForEver

End

Code: Alles auswählen

Structure User ;{
  sName.s{255}
  sPass.s{32}
EndStructure ;}

Global NewList User.User()

OpenConsole()

Define sInput.s, b1.b

Repeat
  sInput = LCase(Input())
  Select sInput
    Case "new"
      AddElement(User())
      Print("  Name: ")
      User()\sName = Input()
      Debug  User()\sName
      Print("  Passwort: ")
      sInput = Input()
      User()\sPass = MD5Fingerprint(@sInput, Len(sInput))
    Case "exit"
      Break
  EndSelect
  
  Delay(20)
ForEver

End