ascii encrypter (реализация на перл)

[vika]

Собственно, прошу помочь и ткнуть носом, где косяк. Довольно интересное решение нашла, вот пробую перевести на перл, вроде ничего сложного нету, массивы, а че то голова не фурычит.

Код: (Perl)

sub unEncrypt(theText) {
output = new String;
Temp = new Array();
Temp2 = new Array();
TextSize = theText.length;
for (i = 0; i < TextSize; i++) {
Temp[i] = theText.charCodeAt(i);
Temp2[i] = theText.charCodeAt(i + 1);
}
for (i = 0; i < TextSize; i = i+2) {
output += String.fromCharCode(Temp[i] - Temp2[i]);
}
return output;
}

Код: (Perl)

function unEncrypt(theText) {
$output;
@Temp;
@Temp2;
$TextSize = length( theText);
for ($i = 0; $i < $TextSize; $i++) {
$Temp[i] = theText.charCodeAt(i);
$Temp2[i] = theText.charCodeAt(i + 1);
}
for ($i = 0; $i < TextSize; $i = $i+2) {
$output += String.fromCharCode($Temp[i] - $Temp2[i]);
}
return $output;
}

[PooH]

charCodeAt, charCodeAt, "+="   кто будет к перлу приводить?

Что в этом решении интересного - не понятно. Также не понятно - зачем тут, вообще, два цикла и временные массивы?

[RXL]

vika, чтобы портировать программу с одного языка на другой, надо не заменять функции и операторы, а разобрать алгоритм. Опиши его на бумаге словами, попробуй выполнить прогон в уме, проверь результат. Только после этого у тебя получится написать что-то работоспособное.

[vika]

Смысл то более менее понятен. Не понятно только вот, что

а) в яваскрипте функция string.charCodeAt(index) возврашает юникодное представление строки, где index - длина строки, в перле вроде функция ord что то подобное делает, только не

совсем. Есть ли аналоги этой функции на перле, идентично яваскриптовой

б) fromCharCode из яваскрипта наоборот, в зависимости от уникод числа вернет строку. аналога в перле путного что то не найду. Подскажите, пожалуйста, решение

[RXL]

a) Длина строки? Ну-ну.
б) Судя по твоим вопросам, за год в изучении программирования ты нисколько не прогрессировала. Документацию то читала? Описание конструкций языка, внутреннее представление строки, встроенные функции работы со строками.

Вика, не пойму, чего ты прицепилась к Perl и Javascript? Это не самые подходящие кандидаты для изучения программирования. Да и задачу выбрала специфическую — не для начинающего.

[Sla]

RXL, все правильно
>Опиши его на бумаге словами...

Не имеет значения какой язык взят в качестве рабочего.
Первое и самое основное...
Читай вслух свою(чужую) программу.

Впрочем Vika уже ответила на один вопрос для себя (о многобайтовых кодировках). Вот только продолжения она не видит.

[vika]

А ларчик то открывается просто

Код: (Perl)

$txt =  ' ' ;

$TextSize = length ($txt);

for ($i = 0; $i < $TextSize; $i = $i+2) {

$Temp[i] = ord (substr($txt, $i));

$Temp2[i] = ord (substr($txt, $i + 1));

$output .= chr($Temp[i]-$Temp2[i]);

Всем спасибо за внимание. Жаль, что пакер Дэна Эдвордса не так прост

[RXL]

vika, ты считаешь, что задача решена? Не поняв алгоритма? Не говоря уже про страшный код...

[PooH]

vika, а зачем тебе $Temp и $Temp2 ?

Почему, например, не так?

Код: (Perl)

$txt =  ' ' ;
for ($i = 0; $i < length ($txt); $i = $i+2) { $output .= chr(ord (substr($txt, $i))-ord (substr($txt, $i + 1))); }

[Sla]

>а зачем тебе $Temp и $Temp2

я бы переспросил зачем массив Temp'ов

[vika]

vika, ты считаешь, что задача решена? Не поняв алгоритма? Не говоря уже про страшный код...

Ну почему же не поняв алгоритм, все понятно более менее. Пробегаем строку циклом, каждый символ сначала переводя в ascii код функцией ord, затем, с помощью функции chr переводим ascii код в символ. А по поводу корявости кода, ну в стране у нас тоже бардак творится, воры кругом, причем, начиная с верха и заканчивая всякими "срочными обновлениями броузеров", но живем ведь. Так и тут, работает, свою задачу выполняет и ладно.

Добавлено через 1 минуту и 21 секунду:

vika, а зачем тебе $Temp и $Temp2 ?

Почему, например, не так?

Код: (Perl)

$txt =  ' ' ;
for ($i = 0; $i < length ($txt); $i = $i+2) { $output .= chr(ord (substr($txt, $i))-ord (substr($txt, $i + 1))); }

А это промежуточные переменные, чтобы не усложнять, ну и , хотелось посмотреть, что они вернут

Добавлено через 44 секунды:

>а зачем тебе $Temp и $Temp2
я бы переспросил зачем массив Temp'ов

По аналогии с яваскриптом делала, проверяла построчно там и тут

[RXL]

vika, ты считаешь, что задача решена? Не поняв алгоритма? Не говоря уже про страшный код...

Ну почему же не поняв алгоритм, все понятно более менее. Пробегаем строку циклом, каждый символ сначала переводя в ascii код функцией ord, затем, с помощью функции chr переводим ascii код в символ. А по поводу корявости кода, ну в стране у нас тоже бардак творится, воры кругом, причем, начиная с верха и заканчивая всякими "срочными обновлениями броузеров", но живем ведь. Так и тут, работает, свою задачу выполняет и ладно.

Ты о чем? Мы не ели твой мозг — ты ела наши