File: authdelay

package info (click to toggle)
wims 2%3A4.29a%2Bdfsg1-3
  • links: PTS, VCS
  • area: main
  • in suites: trixie
  • size: 185,704 kB
  • sloc: xml: 366,687; javascript: 120,570; ansic: 62,341; java: 62,170; sh: 7,744; perl: 3,937; yacc: 3,217; cpp: 1,915; lex: 1,805; makefile: 1,084; lisp: 914; pascal: 601; python: 520; php: 318; asm: 7
file content (15 lines) | stat: -rw-r--r-- 470 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
# delay 5 minutes after wrong auth password.

currentauth=$wims_nowseconds
lastauth=!record 0 of wimshome/$wims_sesdir/lastauth
lastauth=!word 1 of $lastauth
!writefile wimshome/$wims_sesdir/lastauth $currentauth
!if $lastauth!=$empty and $lastauth>=$currentauth-5
  auth_password=?$[$currentauth-$lastauth]????
  delay=bad
!else
  delay=good
  auth_password_check=!passcheck $auth_password and $pass
  !!yet useful ??
  !!auth_password=!passcrypt $auth_password
!endif