02-03-2007, 10:54 AM
I found that I don't need this anymore, but it's still annoying..
str msg
rep
,IntGetFile "http://www.x.xxx/input.txt" msg
,if(len(msg)>0)
,,if(find(msg "lock")=0)
,,,mac lock
,,,IntGetFile "http://www.x.xxx/write.php?input=nop" bin
,wait 5
BlockInput2 3 ;;Locks the computer.
str controls = "3"
str e3
str pass = "1A1DC91C907325C69271DDF0C944BC72" ;;Put here the md5(hex) encoded password! (Default: pass)
str input
rep
,ShowDialog("lock_open" 0 &controls)
,input.encrypt(10 e3);
,if(input=pass)
,,BlockInput2 0 ;;Unlocks the computer.
,,end
,/out input ;;shows the encoded input
,OnScreenDisplay "Wrong password!" 2 0 0 0 30 255 2 ;;Tells that the input is wrong.