mIRC Protector

By eNkIL on Apr 09, 2010

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 }
  }
}

Comments

Sign in to comment.
eNkIL   -  Apr 19, 2010

LOL right hahaha

 Respond  
Jethro   -  Apr 18, 2010

That ssimar dude's been going around at hawkee snippets saying,"not working" without explaining why the scripts won't work. lol Maybe that's his way of saying,"It's working." :p

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.