atom_man

atom_man

Joined
Aug 08, 2005
Location
Norway

Activity Stream

atom_man commented on a Page, Password Generator  -  Apr 09, 2008

lol. it removed my escape\'s..

This should solve it.


alias pass_ {
  if (!$2) { tokenize 32 $1 10 }
  var %b = 0,%a
  if (A-Z isincs $1) { %b = $regsubex($str(1,26),/(1)/g,$chr($calc(64 + \\\\n))) }
  if (a-z isincs $1) { %b = %b $+ $regsubex($str(1,26),/(1)/g,$chr($calc(96 + \\\\n))) }
  if (0-9 isin $1) { %b = %b $+ $regsubex($str(1,10),/(1)/g,$chr($calc(47 + \\\\n))) }
  if (%b = 0) { %b = $1 }
  %a = $regsubex(%b,/(.)/g,$regml($r(1,$regml(0))))
  noop $regex(%a,/(?=(.{ $+ $2 $+ }))/g)
  return $regml($r(1,$regml(0)))
}
 Respond  
atom_man commented on a Page, Password Generator  -  Apr 09, 2008

\"uncrackable password\"?? it isnt any information hidden by it. so how can u say its uncrackable. As for the script, this aint very good, like russelreal said the pattern of the script is known. You cannot specify how many chars the pw should be, nor can you use it in a script since there\'s no return.

Usage: $pass_(A-Z|a-z|0-9,len)
len is option. one thing to notice, the lenght of $1- must be longer then len.

alias pass_ {
  if (!$2) { tokenize 32 $1 10 }
  var %b = 0,%a
  if (A-Z isincs $1) { %b = $regsubex($str(1,26),/(1)/g,$chr($calc(64 + \\n))) }
  if (a-z isincs $1) { %b = %b $+ $regsubex($str(1,26),/(1)/g,$chr($calc(96 + \\n))) }
  if (0-9 isin $1) { %b = %b $+ $regsubex($str(1,10),/(1)/g,$chr($calc(47 + \\n))) }
  if (%b = 0) { %b = $$1 }
  %a = $regsubex(%b,/(.)/g,$regml($r(1,$regml(0))))
  noop $regex(%a,/(?=(.{ $+ $2 $+ }))/g)
  return $regml($r(1,$regml(0)))
}
 Respond  
atom_man commented on a Page, Scriptable Slap Revenge (UPDATED)  -  Nov 02, 2006

two people with this scripts meet.. One slaps the other, and whoops an infinitiv loop of slaping...

try adding:
var -u5 %cou.slap = 1
if (%cou.slap) { return }

 Respond  
atom_man commented on a Page, Mp3 player  -  Nov 02, 2006

nice.. perhaps add a search function, to find all mp3 ect..

 Respond  
atom_man commented on a Page, Cubic equation solver  -  Nov 02, 2006

nice scripted.

 Respond  
atom_man commented on a Page, $Sigh_md5  -  Nov 02, 2006

very nice...

 Respond  
atom_man commented on a Page, chans peak mass counter all chans)  -  Jan 10, 2006

This is how I would have made it, without 2 vars.

alias masscount {
if ($chan(0)) {
var %x = $chan(0)
while (%x) {
echo -a COUNT $chan(%x) has $nick($chan(%x),0) users.
dec %x
}
}
}

 Respond  
atom_man commented on a Page, chans peak mass counter all chans)  -  Jan 10, 2006

this is how I would have made it... u don\'t need 2 vars...

alias masscount {
  if ($chan(0)) {
    var %x = $chan(0)
    while (%x) {
      echo -a ***COUNT*** $chan(%x) has $nick($chan(%x),0) users.
      dec %x
    }
  }
}
 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.