egghelp/eggheads community

Encrypter Problems

2002-11-15T14:54:55-04:00

If you have { } around your text, you're probably passing the function a list ($args) when it wants a string.

To go through each character of a string, use this:

foreach char [split $text ""] {
...
}

To turn a char into a number, use the "scan" command like ppslim said.

From the man page: scan string format ?varName varName ...?

So your string is $char, and your format is "c". You choose the varname.

Statistics: Posted by stdragon — Fri Nov 15, 2002 2:54 pm

another problem!

2002-11-15T05:57:08-04:00

When a nick has of course {}()_ or any of them other ones.. I have been working on my script and still cant make it take the {} from around value for the last two days.. I have come to my last idea!

Code:

while {$asus_number <= [string length [lrange $msg 0 end]]} {  set asus_key [string index [split $asus(key)] $asus_poss]  set asus_word [string index $msg $asus_quest]

It works file with normal nicks.. but i can;t get it to work with nick with them chr in it.. I have looked at http://www.soft.net.uk/staffs/eggdrop/characters.html and still dont totally understand it... I hope someone can just give me a bump in the right direction.

------------
ThePope

Statistics: Posted by spyda — Fri Nov 15, 2002 5:57 am

Encrypter Problems

2002-11-08T19:59:43-04:00

You can do this using the scan command.

Statistics: Posted by ppslim — Fri Nov 08, 2002 7:59 pm

Encrypter Problems

2002-11-08T19:39:22-04:00

I started to write a encrption program that will work with my mirc one. But i cant get it to tell me what the number of the $chr is.

Code:

Mirc. : $calc($asc($mid($1-,%enc.letter,1))+$asc($left(%key,1))Tcl : [expr [string index [split $vasus] $asus_quest]]] + [string index [split $vasus] 0]]]

But i cant work out how get use $asc in TCL.. looked everywhere (about 5 hours all up) hope some one can help me

------------
ThePope

Statistics: Posted by spyda — Fri Nov 08, 2002 7:39 pm