Page Menu
Home
DevCentral
Search
Configure Global Search
Log In
Files
F3938525
Tools.tcl
No One
Temporary
Actions
View File
Edit File
Delete File
View Transforms
Subscribe
Mute Notifications
Award Token
Flag For Later
Size
732 B
Referenced Files
None
Subscribers
None
Tools.tcl
View Options
# Collection of tools and gadgets, to boost
# your productivity or to have fun.
bind
dcc
-
genpass dcc:genpass
bind
dcc
-
strlen dcc:strlen
#
# .genpass <master password> <domain name>
# www.supergenpass.com/genpass legacy generator
#
proc
genpass
{
master
domain
}
{
string
range
[
md5
"$master:$domain"
]
0
8
}
proc
dcc:genpass
{
handle
idx arg
}
{
if
{[
llength
$arg
]
!=
2
}
{
putdcc
$idx
"Usage: .genpass <master password> <domain name>"
}
{
putcmdlog
"#$handle# genpass ..."
putdcc
$idx
[
genpass
[
lindex
$arg
0
]
[
lindex
$arg
1
]]
}
return
0
}
#
# .strlen <string>
# Gets the specified string's length
#
proc
dcc:strlen
{
handle
idx arg
}
{
putdcc
$idx
[
string
length
$arg
]
putcmdlog
"#$handle# strlen ..."
return
0
}
File Metadata
Details
Attached
Mime Type
text/plain
Expires
Thu, Dec 26, 02:52 (18 h, 30 m)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
2314106
Default Alt Text
Tools.tcl (732 B)
Attached To
Mode
rVIPERSERV ViperServ scripts [legacy Mercurial repo]
Attached
Detach File
Event Timeline
Log In to Comment