kp

Passwort Creator

dialog pwg {
  title "Password Generator"
  size -1 -1 190 86
  option dbu
  text "Your Password is:", 1, 1 75 50 8
  edit "", 2, 50 75 140 10
  button "Create", 3, 120 0 30 10
  button "Save", 4, 0 0 20 10
  button "Run", 5, 20 0 20 10
  button "Del", 6, 40 0 20 10
  button "Recov.", 7, 60 0 20 10
  button "Close", 8, 80 0 20 10, cancel
  button "Nums", 9, 100 0 20 10
  button "µ@<>*#", 10, 150 0 30 10
  button "+", 11, 180 0 10 10
  text "How much Numbers", 12, 0 65 50 8
  edit "", 13, 50 65 50 10
  button "+", 14, 100 65 10 5
  button "-", 15, 100 70 10 5
  text "Acronyms:", 17, 110 65 30 8
  edit "", 18, 145 65 45 10, read
  check "Grossbuchstaben", 19, 2 17 50 10
  check "Acronyms", 20, 2 32 50 10
  check "Allow Numbers", 21, 2 47 50 10
  box "About this Dialog", 22, 58 11 130 50
  box "Passwort Safe", 23, 0 11 59 50
  text "This Dialog and the Stevenspedia-Logo are Copyright. This Dialog can greate a Random Password. And its run without the Dialog with:            /passwort <länge>                      Click on these Text for Updates and more. (In your Version de-activated.)", 24, 60 20 126 40, disable
}
on *:DIALOG:pwg:*:*:{
  if ($devent == sclick) {
    if ($did == 14) {
      inc %numbers.how
      did -ra pwg 13 %numbers.how

      if ($did == 15) {
        set %numbers.how $calc(%numbers.how - 1)
        did -ra pwg 13 %numbers.how
      }
      if ($did == 10) {
        set %acro.on
        set %set.read $read(E:Programmebotmircacronymer.txt)
        did -ra pwg 18 %set.read
        set %now.acro $did(pwg,18)
      }
      if ($did == 6) {
        did -ra pwg 13
        did -ra pwg 2
        did -ra pwg 18
      }
      if ($did == 9) {
        set %numbers.how $$?="Enter a valid Number"
        did -ra 13 %numbers.how
      }
      if ($did == 4) {
        write passwort.txt $did(pwg,2)
        echo Passwort gespeichert: $read passwort.txt
      }
      if ($did == 5) {
        set %passwort.current $read passwort.txt
        did -ra pwg 2 %passwort.current
        unset %passwort.current
      }
      if ($did == 3) {
        createpassword
      }
    }
  }
}
alias cratepassword {
  write only1.txt #
  write only1.txt ä
  write only1.txt ö
  write only1.txt ü
  write only1.txt ~
  write only1.txt ´
  write only1.txt `
  write only1.txt ?
  write only1.txt )
  write only1.txt (
  write only1.txt "
  write only1.txt %
  write only1.txt ^
  write only1.txt °

  set %incommence 1
  while (%incommence <= %numbers.how) {
    inc %i
    did -a pwg 2 $rand(a,z)
  }
  write target.txt $did(pwg,2)
  set %incro $read(target.txt)
  set %incromente   replace(%incro,a,$rand(1,9),e,$read(only1.txt),o,$read(only1.txt),u,$read(only1.txt),z,$read(only1.txt))
  did -ra pwg 2 %incromente
}
}
}
}
}