И
о неплохо, а я чтото даже не подумал поинтересоваться этим. Спасибо
Size: a a a
2021 February 10
SZ
Иван
Я пищу скрипт который шифрует сообщения в набор чисел, который по задумке можно расшифровать только имея специальный ключ из чисел. Использую time() и формулу под ним для более менее сносного рандомера который позволит сделать сам шифр и ключ уникальным и даже если зашифровать одно и то же слово оно будет выглядеть по разному
Почему не взять готовое?
DM
Почему не взять готовое?
лаба небось
И
Нет пишу для собственного развития
И
И Perl мне нравится
DS
Та отличный язык, не понятно чо к нему сегодня петушило доебалось
И
у нас Perl не преподавали. Только C, C++, Java, Html, CSS, PHP, но все бегло только чтобы ознакомить в общих чертах
AP
ну у меня преподавали Алгол-68, и что? особо не помогло... :)
DS
У меня в универе перл был
DS
Потому что одна софтина для химии перловая. И софт для масс-спетрометров по какой-то неведомой мне причине перловый
SZ
Иван
у нас Perl не преподавали. Только C, C++, Java, Html, CSS, PHP, но все бегло только чтобы ознакомить в общих чертах
@PerlBanjoBot
my $keylen = 8;
sub key { int 10**$keylen*rand }
sub encode {
my ($data, $key) = @_;
my $count = 1 + int(length($data) / $keylen);
my $len = $count * $keylen;
$data = join "", map { sprintf "%03d", ord } split //, sprintf "%${len}s", $data;
say $data;
$key = $key x (3 * $count);
say $key;
}
my $key = key;
encode japh => $key;P
@PerlBanjoBot
my $keylen = 8;
sub key { int 10**$keylen*rand }
sub encode {
my ($data, $key) = @_;
my $count = 1 + int(length($data) / $keylen);
my $len = $count * $keylen;
$data = join "", map { sprintf "%03d", ord } split //, sprintf "%${len}s", $data;
say $data;
$key = $key x (3 * $count);
say $key;
}
my $key = key;
encode japh => $key;SZ
Осталось только обратимое шифрование туда сунуть, типа xor.
AT
Не нада xor
И
ну я все же сам попробую)
И
темболее только что обнаружил что мой скрипт работает но только с ограниченным количеством символов иначе выходят слишком большие числа и Perl начинает неадекватно считать
И
я же как шифрую: разбиваю введенную строку на ASCII код и с помощью матиматических манипуляций изменяю его. В итоге выходит число и ключ. Число нужно поделить на ключ и тогда выйдет ASCII код который уже можно преобразовать обратно в текст
И
По бомжатски но все же это работает)
AT
Нинада так "шифровать"
И
Почему?) ну по стути даже если ктото перехватит отправленные мной набор цифр 1) у него не будет ключа и он не знает как устроено это шифрование что делает эти цифры просто мусором. 2) каждая генерация шифра уникальна и даже если перехватчик какимто чудом расшифровал первое сообщение то он даже не поймет что второе сообщение несет в себе тот же смысл ибо они будут выглядеть по разному