home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / chkpassp.lzh / chekpass.cmd < prev    next >
OS/2 REXX Batch file  |  1993-07-25  |  573b  |  27 lines
  1. /*
  2. Nukes new users with passwords found in file badpass.txt when they
  3. use CallMe.
  4. */
  5. "@echo off"
  6. arg pwd
  7. if lines(badpass.flg)<>0 then do
  8.      a=stream(badpass.flg,c,"close")
  9.     "del badpass.flg"
  10. end 
  11.  
  12. badpwd="false"
  13. j=lines(badpass.txt)
  14.  
  15.         do while (j<>0) & (badpwd<>"true")
  16.                  a=linein(badpass.txt)
  17.                  if pwd=a then do
  18.                    a=lineout(badpass.flg,pwd)
  19.                    badpwd="true"
  20.                  end
  21.                  j=lines(badpass.txt)
  22.          end
  23.  
  24. a=stream(badpass.txt,c,"close")
  25. exit
  26.  
  27.