Password strength tester/helper (mIRC)

mIRC Code

+ 0 likes

Please Register to submit score.

Average Score	6.0
Scores Submitted	1
Date Added	Jul 08, 2008
Last Updated	Jul 09, 2008
Tags	dialog password

Introduction

Copy code then Open a new remote Alt +r and paste an save.Yeah i get bored fast of coding bot codes to i decided to mess around.Came up with this little code after seeing vaseline28's Javascript password strength test code: http://www.hawkee.com/snippet/4654/ wich is really cool.Not the same coding language but i thought it would be neat to do,that and i dont know javascript ;x.The script is set up to (as best i could) make the best password for your nickname based on the password that you choose.There things you MUST do before you can get the password strength.

You must have one lower case character,one upper case character,one digit,and one of these three special characters(these are allowed by my server) _ . - .Your password cannot contain special characters such as punctuation or ASCII characters or any mIRC info (such as nickname an alt nick ETC,it will tell you if you do).Then you can fiddle around and come up with passwords and see how there strengths are.The strength system is a bit weird best i could come up with tho.You can also show the channel your pass and its strength and copy it to your clipboard.All comments an suggestions are welcome.e advised this codes may not get updated unless its like life or dead.`-.-´

Grab the Code

menu * { 
  Password Tester:/_SP  
}
alias _SP { dialog $iif($dialog(_SP),-v,-m)) _SP _SP }

dialog _SP {
  title " "
  size -1 -1 433 141
  option pixels 
  box "Help", 5, 179 16 238 54
  box "Password", 4, 13 16 152 54
  edit "", 1, 26 36 120 20, autohs limit 20
  edit "", 2, 184 36 223 20, read autohs
  edit "", 3, 186 91 224 20, read autohs
  box "Strength", 6, 180 73 238 54
  box "Options", 7, 12 73 153 54
  button "Message", 8, 20 90 68 25
  button "Copy", 9, 90 90 65 25
  box "Pass Word Strength Tester", 10, 5 2 424 134
}
alias _SP_TAN {
  var %_SPI 1
  while (%_SPI <= 50) {
    dialog -t _SP $left(Secure Custom Password Strength Tester/Helper.‹™›,%_SPI)
    var %_SPT 1
    while (%_SPT <= 1500) inc %_SPT
    inc %_SPI
  }
}
on *:DIALOG:_SP:init:*:{ .timer $+ $dname $+ T 1 1 _SP_TAN }
on *:DIALOG:_SP:edit:*:{ if ($did == 1) { set %_SP_Pass $did(1).text | _SP_1 } }
on *:DIALOG:_SP:sclick:*:{ 
  if ($did == 8) {
    if (!$regex($active,^(#))) { did -r $dname 3 | did -ra $dname 2 Cannot send to this window. | halt }
    if (%_SP_Pass == $null) { did -r $dname 3 | did -ra $dname 2 There's nothing to send.Please edit password. | halt }
    if (%_SP_Pass_Temp == $null) {  did -r $dname 3 | did -ra $dname 2 There's no data.Please edit password. | halt }
    did -b $dname 9
    .timer $+ $dname $+ 8 1 3 did -e _SP 9
    set -u1 %PE1 On
    _SP_ERROR_C
  }
  if ($did == 9) {
    if (%_SP_Pass == $null) { did -r $dname 3 | did -ra $dname 2 There's nothing to copy.Please edit Password. | halt }
    if (%_SP_Pass_Temp == $null) { did -r $dname 3 | did -ra $dname 2 There's no data.Please edit password. | halt }
    did -b $dname 8
    .timer $+ $dname $+ 9 1 3 did -e _SP 8
    set -u1 %PE2 On
    _SP_ERROR_C
  }
}

alias _SP_1 {
  set %_SP_Pass_INC 0
  if ($chr(32) isin %_SP_Pass) { did -r _SP 3 | did -ra _SP 2 Password cannot contain spaces. | halt }
  if ($len(%_SP_Pass) < 6) { did -r _SP 3 | did -ra _SP 2 Password must be 6 characters or more. | halt }
  if (!$regex(%_SP_Pass,[[:lower:]])) { did -r _SP 3 | did -ra _SP 2 Must Contain a LOWER case character. | halt }
  if (!$regex(%_SP_Pass,[[:upper:]])) { did -r _SP 3 | did -ra _SP 2 Must Contain a UPPER case character. | halt }
  if (!$regex(%_SP_Pass,[[:digit:]])) { did -r _SP 3 | did -ra _SP 2 Must Contain a DIGIT character. | halt }
  if (!$regex(%_SP_Pass,([\_.-]))) { did -r _SP 3 | did -ra _SP 2 Must Contain one of the following: _ . - | halt }
  if ($regex(%_SP_Pass,[[:cntrl:]])) { did -r _SP 3 | did -ra _SP 2 Password cannot contain control codes. | halt }
  if ($count(%_SP_Pass,_) >= 3) || ($count(%_SP_Pass,.) >= 3) || ($count(%_SP_Pass,-) >= 3) { did -r _SP 3 | did -ra _SP 2 No more then two characters of: _ . - | halt }
  if ($me isin %_SP_Pass || $mnick isin %_SP_Pass || $emailaddr isin %_SP_Pass || $anick isin %_SP_Pass || $fullname isin %_SP_Pass || $server isin %_SP_Pass || $network isin %_SP_Pass) { did -r _SP 3 | did -ra _SP 2 Please do not use parts of your mIRC info. | halt }
  if ($chr(33) isin %_SP_Pass || $chr(34) isin %_SP_Pass || $chr(35) isin %_SP_Pass || $chr(36) isin %_SP_Pass || $chr(37) isin %_SP_Pass || $chr(38) isin %_SP_Pass || $chr(39) isin %_SP_Pass || $chr(40) isin %_SP_Pass) { did -r _SP 3 | did -ra _SP 2 Cannot contain special characters. | halt }
  if ($chr(41) isin %_SP_Pass || $chr(42) isin %_SP_Pass || $chr(43) isin %_SP_Pass || $chr(44) isin %_SP_Pass || $chr(47) isin %_SP_Pass || $chr(58) isin %_SP_Pass || $chr(59) isin %_SP_Pass || $chr(60) isin %_SP_Pass) { did -r _SP 3 | did -ra _SP 2 Cannot contain special characters. | halt }
  if ($chr(61) isin %_SP_Pass || $chr(62) isin %_SP_Pass || $chr(63) isin %_SP_Pass || $chr(64) isin %_SP_Pass || $chr(91) isin %_SP_Pass || $chr(92) isin %_SP_Pass || $chr(93) isin %_SP_Pass || $chr(94) isin %%_SP_Pass || $chr(96) isin %_SP_Pass) { did -r _SP 3 | did -ra _SP 2 Cannot contain special characters. | halt 
  } 
  var %XP1 = 123
  while (%XP1 <= 255) {
    var %ASCP = $chr(%XP1)
    if (%ASCP isin %_SP_Pass) { did -r _SP 3 | did -ra _SP 2 Password cannot contain ASCII characters. | halt }
    inc %XP1
  }
  _SP_2
}
alias _SP_2 {
  var %_SP_Pass2 = %_SP_Pass
  var %low1 $ceil($calc($regex(%_SP_Pass2,/[a-z]/g) / $regex(%_SP_Pass2,/[a-z]/gi) * 100))
  var %cap1 $ceil($calc($regex(%_SP_Pass2,/[A-Z]/g) / $regex(%_SP_Pass2,/[A-Z]/gi) * 100))
  if (%cap1 > 0) && (%cap1 <= 10) { inc %_SP_Pass_INC 10 }
  if (%cap1 > 10) && (%cap1 <= 20) { inc %_SP_Pass_INC 20 }
  if (%cap1 > 20) && (%cap1 <= 30) { inc %_SP_Pass_INC 30 }
  if (%cap1 > 30) && (%cap1 <= 40) { inc %_SP_Pass_INC 45 }
  if (%cap1 > 40) && (%cap1 <= 50) { inc %_SP_Pass_INC 50 }
  if (%cap1 > 60) && (%cap1 <= 70) { inc %_SP_Pass_INC 30 }
  if (%cap1 > 70) && (%cap1 <= 80) { inc %_SP_Pass_INC 20 }
  if (%cap1 > 80) && (%cap1 <= 90) { inc %_SP_Pass_INC 10 }
  if (%cap1 > 90) && (%cap1 <= 100) { inc %_SP_Pass_INC 5 }
  if (%low1 > 0) && (%low1 <= 10) { inc %_SP_Pass_INC 10 }
  if (%low1 > 10) && (%low1 <= 20) { inc %_SP_Pass_INC 20 }
  if (%low1 > 20) && (%low1 <= 30) { inc %_SP_Pass_INC 30 }
  if (%low1 > 30) && (%low1 <= 40) { inc %_SP_Pass_INC 45 }
  if (%low1 > 40) && (%low1 <= 50) { inc %_SP_Pass_INC 50 }
  if (%low1 > 50) && (%low1 <= 60) { inc %_SP_Pass_INC 30 }
  if (%low1 > 60) && (%low1 <= 70) { inc %_SP_Pass_INC 20 }
  if (%low1 > 70) && (%low1 <= 90) { inc %_SP_Pass_INC 10 }
  if (%low1 > 80) && (%low1 <= 100) { inc %_SP_Pass_INC 5 }
  _SP_3
}

alias _SP_3 {
  alias ec_3 {
    var %XPCN = %_SP_Pass
    var %XP2 = 0
    while (%XP2 <= 9) {
      if ($count(%XPCN,%XP2) == 2) { inc %_SP_Pass_INC 5 }
      inc %XP2
    } 
    if ($len(%_SP_Pass) > 17) { inc %_SP_Pass_INC 65 } 
    if ($count(%_SP_Pass,_) >= 3) { inc %_SP_Pass_INC 10 }
    if ($count(%_SP_Pass,.) >= 2) { inc %_SP_Pass_INC 10 } 
    if ($count(%_SP_Pass,-) >= 2) { inc %_SP_Pass_INC 10 }
    if (%_SP_Pass_INC >= 0) && (%_SP_Pass_INC < 75) { did -r _SP 2 | set -u5 %_SP_Pass_Temp On | did -ra _SP 3 |||||||||||||||||||| Weak | set %_SP_Pass_S 4|||||||||||||||||||| Weak }
    if (%_SP_Pass_INC >= 75) && (%_SP_Pass_INC < 150) { did -r _SP 2 | set -u5 %_SP_Pass_Temp On | did -ra _SP 3 ||||||||||||||||||||||||| Medium | set %_SP_Pass_S 8||||||||||||||||||||||||| Medium }
    if (%_SP_Pass_INC >= 150) && (%_SP_Pass_INC < 300) { did -r _SP 2 | set -u5 %_SP_Pass_Temp On | did -ra _SP 3 ||||||||||||||||||||||||||||||||||||||||||||| Strong | set %_SP_Pass_S 9||||||||||||||||||||||||||||||||||||||||||||| Strong }
  }
}

alias _SP_ERROR_C {
  if (!$regex($active,^(#))) { did -r _SP 3 | did -ra $dname 2 Cannot send to this window. | halt }
  if ($chr(32) isin %_SP_Pass) { did -r _SP 3 | did -ra _SP 2 Password cannot contain spaces. | halt }
  if ($len(%_SP_Pass) < 6) { did -r _SP 3 | did -ra _SP 2 Password must be 6 characters or more. | halt }
  if (!$regex(%_SP_Pass,[[:lower:]])) { did -r _SP 3 | did -ra _SP 2 Must Contain a LOWER case character. | halt }
  if (!$regex(%_SP_Pass,[[:upper:]])) { did -r _SP 3 | did -ra _SP 2 Must Contain a UPPER case character. | halt }
  if (!$regex(%_SP_Pass,[[:digit:]])) { did -r _SP 3 | did -ra _SP 2 Must Contain a DIGIT character. | halt }
  if (!$regex(%_SP_Pass,([\_.-]))) { did -r _SP 3 | did -ra _SP 2 Must Contain one of the following: _ . - | halt }
  if ($regex(%_SP_Pass,[[:cntrl:]])) { did -r _SP 3 | did -ra _SP 2 Password cannot contain control codes. | halt }
  if ($count(%_SP_Pass,_) >= 3) || ($count(%_SP_Pass,.) >= 3) || ($count(%_SP_Pass,-) >= 3) { did -r _SP 3 | did -ra _SP 2 No more then two characters of: _ . - | halt }
  if ($me isin %_SP_Pass || $mnick isin %_SP_Pass || $emailaddr isin %_SP_Pass || $fullname isin %_SP_Pass || $server isin %_SP_Pass || $network isin %_SP_Pass) { did -r _SP 3 | did -ra _SP 2 Please do not use parts of your mIRC info. | halt }
  if ($chr(33) isin %_SP_Pass || $chr(34) isin %_SP_Pass || $chr(35) isin %_SP_Pass || $chr(36) isin %_SP_Pass || $chr(37) isin %_SP_Pass || $chr(38) isin %_SP_Pass || $chr(39) isin %_SP_Pass || $chr(40) isin %_SP_Pass) { did -r _SP 3 | did -ra _SP 2 Cannot contain special characters. | halt }
  if ($chr(41) isin %_SP_Pass || $chr(42) isin %_SP_Pass || $chr(43) isin %_SP_Pass || $chr(44) isin %_SP_Pass || $chr(47) isin %_SP_Pass || $chr(58) isin %_SP_Pass || $chr(59) isin %_SP_Pass || $chr(60) isin %_SP_Pass) { did -r _SP 3 | did -ra _SP 2 Cannot contain special characters. | halt }
  if ($chr(61) isin %_SP_Pass || $chr(62) isin %_SP_Pass || $chr(63) isin %_SP_Pass || $chr(64) isin %_SP_Pass || $chr(91) isin %_SP_Pass || $chr(92) isin %_SP_Pass || $chr(93) isin %_SP_Pass || $chr(94) isin %%_SP_Pass || $chr(96) isin %_SP_Pass) { did -r _SP 3 | did -ra _SP 2 Cannot contain special characters. | halt 
  } 
  var %XP1 = 123
  while (%XP1 <= 255) {
    var %ASCP = $chr(%XP1)
    if (%ASCP isin %_SP_Pass) { did -r _SP 3 | did -ra _SP 2 Password cannot contain ASCII characters. | halt }
    inc %XP1
  }
  if (%PE1 == On) { msg $active The strength of the password:  $+ %_SP_Pass $+  :Is %_SP_Pass_S | unset %_SP_Pass }
  if (%PE2 == On) {
    clipboard %_SP_Pass 
    did -r $dname 1 
    did -r $dname 3 
    did -ra $dname 2 %_SP_Pass Has been copied.  
  }
}

Comments

(21) RSS

Go to Bottom

Eugenio

Comments: 943

mIRC Snippet: Password strength tester/helper (mIRC)
Posted on Jul 8, 2008 6:47 pm

rofl help should be optional or not and its far too strict, for example:
\"36sdfDFs_3jksDd\" comes back as \"weak\" when no one would ever guess that in their lifetime.
also sometimes when you change one letter it goes from weak to strong or visa versa :x
x:
/me rates 3 coz of the way it is ;@

Comments: 1,243

mIRC Snippet: Password strength tester/helper (mIRC)
Posted on Jul 8, 2008 6:49 pm

rofl yeah i know and read the code an you ll know why it moves around alot.As for the checks those are 4 of the things every secure password should have in my opinion of course.`-.-´

mountaindew

Comments: 1,550

mIRC Snippet: Password strength tester/helper (mIRC)
Posted on Jul 8, 2008 6:50 pm

lol, why would you message your password?

Comments: 1,243

mIRC Snippet: Password strength tester/helper (mIRC)
Posted on Jul 8, 2008 6:53 pm

Well its not yours till you use it now is it? So why now show just interesting to see what is better then wat,Then again the button doesn\'t have to be fukin pressed,thast why its in the options section.Thanks for the comment.`-.-´

mountaindew

Comments: 1,550

mIRC Snippet: Password strength tester/helper (mIRC)
Posted on Jul 8, 2008 7:12 pm

:)

But nice job on it. That dialog title is pretty unique, never seen that before. (It animating)

Comments: 1,243

mIRC Snippet: Password strength tester/helper (mIRC)
Posted on Jul 8, 2008 7:16 pm

rofl yeah i have a few animated dialogs my first snippet i posted here animates the size its really cool but laggs a bit if its big so for little things i animate just the title.`-.-´

ChunkieMonkey

Comments: 139

mIRC Snippet: Password strength tester/helper (mIRC)
Posted on Jul 8, 2008 7:29 pm

Nice, flood comments about your first script x.x

BlueThen

Comments: 310

mIRC Snippet: Password strength tester/helper (mIRC)
Posted on Jul 8, 2008 7:43 pm

Instead of having it require certain characters, you could have the strength based off of a simple equations like... \"Length * numberical percentage * special character percentage\"

Comments: 1,243

mIRC Snippet: Password strength tester/helper (mIRC)
Posted on Jul 8, 2008 7:45 pm

Actually monkey boy thats not flooding ffs nor is it proper spamin of that script and this IS my snippet page.BUT since you seem to be interested in my first snippet here ya go buddy: http://www.hawkee.com/snippet/3451/ Have a nice day.`-.-´

Comments: 1,243

mIRC Snippet: Password strength tester/helper (mIRC)
Posted on Jul 8, 2008 7:49 pm

@Bluethen, the requirement of those 4 things are based on what msn considers as a strong password:

Quote:

Strong passwords contain 7-16 characters, do not include common words or names, and combine three of these character types: uppercase letters, lowercase letters, numbers, or symbols.

So thats why i added those so it already has a base of the requirements of a strong password.And the strength is based of length in a way its also based off of percentage of lower case and upper case as well as numeric counts and the amount of _.- characters used.Tbh i suck at math so i did the best i could to get the results.`-.-´

Eugenio

Comments: 943

mIRC Snippet: Password strength tester/helper (mIRC)
Posted on Jul 8, 2008 7:49 pm

EL why doesnt this script have flood protection ?!? `-.-´
ROFLCOPTER

Comments: 1,243

mIRC Snippet: Password strength tester/helper (mIRC)
Posted on Jul 8, 2008 7:54 pm

Umm it does in a way it stops the userr from mass messaging the strength to channel.`-.-´

napa182

Comments: 1,007

mIRC Snippet: Password strength tester/helper (mIRC)
Posted on Jul 8, 2008 8:59 pm

FFS Dan that is one huge pic of the dialog LMAO nice set up..

Comments: 1,243

mIRC Snippet: Password strength tester/helper (mIRC)
Posted on Jul 8, 2008 9:30 pm

ROFL yeah steve i want yas to really SEE it before you test it;p

Typo

Comments: 186

mIRC Snippet: Password strength tester/helper (mIRC)
Posted on Jul 9, 2008 12:34 am

Not bad EL.
Would be a handy snippet to throw into a script that sets or uses passwords for any reason.

Comments: 1,243

mIRC Snippet: Password strength tester/helper (mIRC)
Posted on Jul 9, 2008 12:38 am

There is a reason.Its for nickname pass words.My server allows a 20 character nickname and numbers an caps and _ . - characters.So its basicly helping some one make the BEST possible password for use with a nickname based on the combination then input.It has a use.`-.-´

Typo

Comments: 186

mIRC Snippet: Password strength tester/helper (mIRC)
Posted on Jul 9, 2008 1:16 am

\"I see\" said the blind man.

\"Your full of shoot\" I told him.

lol

Good to know it had a purpose but I still say it would be really easy to edit and use in any script that has a password creation.

AHBARAR

Comments: 141

mIRC Snippet: Password strength tester/helper (mIRC)
Posted on Jul 11, 2008 9:35 am

Always Best Script U Make EL .. Nice Job 20/1 = 20 point >:P~~~~

Comments: 1,243

mIRC Snippet: Password strength tester/helper (mIRC)
Posted on Jul 11, 2008 10:48 am

Thanks AHARAR.`-.-´

DaNzO

Comments: 76

mIRC Snippet: Password strength tester/helper (mIRC)
Posted on Jul 21, 2008 12:44 am

Nice script, fairly useful. Works.

gj :)

Comments: 1,243

mIRC Snippet: Password strength tester/helper (mIRC)
Posted on Jul 21, 2008 12:57 am

Ty.`-.-´

Password strength tester/helper (mIRC)

Introduction

Grab the Code

Comments

EL

My Snippet Tags

Contact

Friends (38)

Sponsors

		Freelance artist...
Last seen: Sep 05, 2008 Profile \| Website Likes (47) Friends (38) Snippets (22) Images (17) Comments Received (530) Comments Submitted (1243) Forum Posts (62)