Разбор текста, Можно использовать для подбора пороля в Ultima online Опции

[pager]

set $string
set $message :Шел по озеру в седьмом году.
set %base [ 1 3 ] 0
///////////////////////////////////////
set %simbols [1] :
set %simbols [2] О
set %simbols [3] в
set %simbols [4] г
set %simbols [5] д
set %simbols [6] ж
set %simbols [7] з
set %simbols [8] е
set %simbols [9] к
set %simbols [10] л
set %simbols [11] м
set %simbols [12] н
set %simbols [13] ё
set %simbols [14] п
set %simbols [15] р
set %simbols [16] с
set %simbols [17] т
set %simbols [18] и
set %simbols [19] ш
set %simbols [20] щ
set %simbols [21] ы
set %simbols [22] ц
set %simbols [23] у
set %simbols [24] ф
set %simbols [25] ч
set %simbols [26] я
set %simbols [27] й
set %simbols [28] э
set %simbols [29] х
set %simbols [30] ъ
set %simbols [31] ь
set %simbols [32] о
set %simbols [33] а
set %simbols [34] .
set %simbols [35] ,

set %simbols [35] 0
set %simbols [35] 1
set %simbols [35] 2
set %simbols [35] 3
set %simbols [35] 4
set %simbols [35] 5
set %simbols [35] 6
set %simbols [35] 7
set %simbols [35] 8
set %simbols [35] 9


while 1
call proc_scan

for #i 1 3 1
set $s %base [ #i 1 ]
set $l %base [ #i 2 ]
set $num %base [#i 3 ]
msg $s $l $num
end_for
end_while
///////////////////////////////////////////////////
proc proc_scan
set #n 1
set $len 1
set #num 0
set $string
set %base [ #n ]
for #i 1 33 1
set $char %simbols.1 [ #i ]
set $str $string$char
set $lst $string $char
if $message.1 <= $str
set $string $string$char
set #num #num + #i
set %base.1 [ #n 1 ] %base.1 [ #n 1 ]$char

set %base.1 [ #n 3 ] #num
set #len #len + 1
set %base.1 [#n 2 ] #len
set #i 1
else
if $message.1 <= $lst
set #n #n + 1
set $string $string $char
set %base.1 [ #n 1 ] %base.1 [ #n 1 ] $char
set #len 1
set #i 1
end_if
end_if
if $message.1 = $string
set $string.1 $string
break
end_if
end_for
end_proc

say #summ
set #exit #summ * #summ
for #i 1 #exit 1
say #i
end_for

скрипт ставим в пилот под номером 1

[EL-GReeN]

Другая игра в подбор пароля пилотом в УО, оригинально.

[kklej]

А как с пилота законекцитца на другой пилот?