|
IF .NOT. HEXC(M.PWD)=="8A 2C E4 70 46 51 57 A7 F3 BD 97 73 57 ED BE 1E"
WAIT WINDOW "Wrong password"
ENDIF
CLOSE DATABASES ALL
SET TALK OFF
SET SAFETY OFF
IF .NOT. FILE("tmp.dbf")
CREATE DATABASE tmp
CREATE TABLE tmp (F1 I)
ELSE
USE EXCLUSIVE tmp
ZAP
INSERT INTO tmp VALUES (100)
INDEX ON RECNO() TAG TMP DESCENDING
ENDIF
RAND(-1)
|