» Личное дело #0 «

Гость
Читать ЛС ()
Группа: "Гости"
Репутация:
Ваш IP: 3.142.171.90


  • Страница 1 из 1
  • 1
Скрипты и Шаблоны для Ucoz » Скрипты для сайтов ucoz » Скрипты для ucoz » Кодировщик (рус)
Кодировщик (рус)
tetrogrammatonДата: Воскресенье, 25.10.2009, 05:47 | Сообщение # 1
Генерал-майор
Группа: Администраторы
Сообщений: 323
Репутация: 0
Статус: Offline
Code
<SCRIPT LANGUAGE="JavaScript">
<!-- Original: Francisco Ryan Tolmasky (iopossum@mailcity.com) -->
<!-- Web Site: http://iopossum.tripod.com -->

<!-- This script and many more are available free online at -->
<!-- The JavaScript Source!! http://javascript.internet.com -->

<!-- Begin
var TID = 0;
var longer = 0;
var thirdwrite = "";
var alphabet = new Array("0@","1#","2$","3%","4^", "5&", "6*", "7 = ","8-", "9+", "Аа", "Бб", "Вв", "Гг", "Дд", "Ее", "Жж", "Зз", "Ии", "Кк", "Лл", "Мм", "Нн", "Оо", "Пп", "Рр", "Сс", "Тт", "Уу", "Фф", "Хх", "Ъъ", "Цц", "Чч", "Ьь", "Шш", "Щщ", "Ыы", "Ээ", "Юю", "Яя", "Йй");
function preTime(coco, uinput, question) {
longer = coco.length - 1;
placement = 0;
ref = 0 ;
secondWrite = "";
firstWrite = "";
thirdWrite = "";
code1(coco, uinput, longer, question);
}
function findshift(letter) {
for (i = 0; i < 36; i++) {
if ((alphabet[i].substring(0,1) == letter) || (alphabet[i].substring(1,2) == letter)) {
if (alphabet[i].substring(0,1) == letter) {
x = 0;
}
if (alphabet[i].substring(1,2) == letter) {
x = 1;
}
return i;
}
}
}
function check(letter) {
bill = "no";
for (i = 0; i < 36; i++) {
if ((alphabet[i].substring(0,1) == letter) || (alphabet[i].substring(1,2) == letter)) {
bill = "yes";
}
}
if (bill == "yes") {
return true;
}
else {
return false;
}
}
function fixoffset(takin) {
if (takin > 35) {
return (takin - 36);
}
else {
return takin;
}
}
function code1(inval1,inval2,inval3,sage) {
if (check(inval2.charAt(placement))) {
if (check(inval1.charAt(ref))) {
if (sage == 0) {   
shift = findshift(inval1.charAt(ref));
}
if (sage == 1) {   
shift = 36 - findshift(inval1.charAt(ref));
}
}
else {
shift = 0;
}
orig = findshift(inval2.charAt(placement));
firstWrite = firstWrite+alphabet[fixoffset(orig+shift)].charAt(x);
}
else {
firstWrite = firstWrite+inval2.charAt(placement);
}
secondWrite = inval2.substring(placement+1,inval2.length+1);
thirdWrite = firstWrite+secondWrite;
document.inputo.written.value = thirdWrite;
placement++;
if (ref == inval3) {
ref = 0
}
else {
ref++;
}
if (placement == (inval2.length)) {
window.clearTimeout(TID);
return false;
}
one = inval1;
two = inval2;
three = inval3;
goer = sage;
TID = window.setTimeout("code1(one, two, three, goer)", 0);
}
// End -->
</script>
<center>
<form name="inputo">
<textarea name=written rows=12 cols=40>Напечатайте здесь лсообщение, требующее кодирования</textarea>
<br>
</font>
<font color="#000000" size="2">Кодовая фраза :<input type=text name=codeWord value="кодовая фраза здесь">
<input type=button value="Закодировать" onClick="preTime(codeWord.value,written.value, 0);" style="font-size: 8pt; font-family: Arial">
<input type=button value="Раскодировать" onClick="preTime(codeWord.value,written.value, 1);" style="font-size: 8pt; font-family: Arial">
</form>
</center>  


http://guitarspeed.ru/ -твой гитарный сайт
 
Скрипты и Шаблоны для Ucoz » Скрипты для сайтов ucoz » Скрипты для ucoz » Кодировщик (рус)
  • Страница 1 из 1
  • 1
Поиск:

Правила форума и объявления администрации!
 ФорумТемыОтветыОбновления
Поздравляем с Днем Рождения!

Телефонный справочник столицы - быстрое узнавание необходимых данных)
Транспортное средство в бизнесе производства керамогранита и ремонтным работам с использованием керамической плитки.)
Отличие SEO от SEM. Понятие landing page.)
+Казино+ .)
Готовые фирмы под перепродажу)
О пассивных компонентах волоконно-оптических линий связи)
Как разнообразить надоевший секс.)
Интернет-фильтр 1 июля не должен быть введен, по мнению Соединенных Штатов, усиливших натиск на Китай)
О преимуществах теплых полов Green Box)
Еще одной гордостью являются пансионаты в абхазии)
Телефонный справочник столицы - быстрое узнавание необходимых данных)
Транспортное средство в бизнесе производства керамогранита и ремонтным работам с использованием керамической плитки.)
Отличие SEO от SEM. Понятие landing page.)
+Казино+ .)
Готовые фирмы под перепродажу)
О пассивных компонентах волоконно-оптических линий связи)
Как разнообразить надоевший секс.)
Интернет-фильтр 1 июля не должен быть введен, по мнению Соединенных Штатов, усиливших натиск на Китай)
О преимуществах теплых полов Green Box)
Еще одной гордостью являются пансионаты в абхазии)