xD
::::::::::::::::::::::::::::
:::::: Coded By eNkIL ::::::
::::::::::::::::::::::::::::
::: Cambiale si sabes =) :::
::::::::::::::::::::::::::::
;Sistema de Proteccion con Contaseña
on *:start: {
;password
if (%ProtegeAS = on) { spcca }
}
menu menubar,channel,status {
Protect Script
.Password on start:spcc
.Lock Screen:block.p
-
}
alias spcc {
if (%password == $null) { resetpass }
if ($md5($md5($input(Please type your password to start mIRC. Is this is your first time please type: 1234,wp, HI!))) != %password) goto start2
else goto ok
:start2
if ($md5($md5($input(Wrong Password. Please try again. Is this is your first time please type: 1234,wp, Error - Wrong PASSWORD!))) != %password) goto fin
else goto ok
:ok
if ($dialog(spcc) == $null) { dialog -m spcc spcc }
else { .echo -a -Processing mIRC Protector... }
:fin
}
dialog spcc {
size -1 -1 50 50
option dbu
title "mIRC Acceso"
box "Config.", 1, 1 1 48 68
radio "On", 4, 2 8 15 10
radio "Off", 5, 30 8 33 10
button "Change Password", 6, 2 18 46 10
button "Reset Password", 7,2 28 46 10,
button "Close", 8, 2 38 46 10, ok defeault
}
;Alias Dialogo spcc
alias -l cargainfospcc {
if (%ProtegeAS = on) { did -c spcc 4 } | else { did -c spcc 5 }
}
alias resetpass { set %password $md5($md5(1234)) }
alias cambiapass {
if ($md5($md5($input(Please type your last password.,wp,Changing Password!))) != %password) goto start2
else goto set1
:start2
if ($md5($md5($input(Please try again,wp,Error - Wrong Password!.))) != %password) goto error
else goto set1
:set1
set %password $md5($md5($input(Type your new password.,wp,Changing Password!)))
if (%password == $null) goto set1
halt
:error
noop $input(No PASSWORD has been changed,o,Error - Wrong Password.)
halt
}
alias spcca {
showmirc -t
goto start
:start
if ($md5($md5($input(Please typed YOUR password to start mIRC.,wp,WELCOME!. Script Protected.))) != %password) goto start1
else goto ok
:start1
if ($md5($md5($input(Please try again.,wp,Error - Wrong Password.))) != %password) goto error
else goto ok
:error
noop $input(Sorry your password is incorrect. mIRC will not start,o,Error - Wrong Password)
exit
halt
:ok
showmirc -x
}
;Blockear Pantalla
alias block.p {
set %block.1 $md5($input(Please type any password to block your screen,wp,BLOCKING mIRC!!))
if (%block.1 != $null) {
pan.block
check1
}
else {
halt
}
}
alias check1 {
:check2
if $md5($input(Please type your password to unblock mIRC.,wp,Blocked Screen.)) != %block.1 goto check3
else { goto ok }
:check3
if $md5($input(Wrong Password. TRY AGAIN!.,wp,Blocked Screen.)) != %block.1 goto check3
else { goto ok }
:ok
unset %block.1
window -c @lock
return
}
alias pan.block {
/window -ax +b @Lock 300 300 300 300
/titlebar @Lock ***************Screen Blocked*****************
}
;Eventos dialogo
on *:dialog:spcc:*:* {
if ($devent == init) {
if ($did = 0) {
cargainfospcc
}
}
if ($devent == sclick) {
if ($did = 4) { set %ProtegeAS on | set %st.spcc On }
if ($did = 5) { set %ProtegeAS off | set %st.spcc Off }
if ($did = 6) { cambiapass }
if ($did = 7) { resetpass }
}
}