<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">

<html>

<!-- css_eqv /txt/cj_code.txt -->

<?php

$user_agent = "";

if(isset($_SERVER['HTTP_USER_AGENT']))
$user_agent = $_SERVER['HTTP_USER_AGENT'];

if(substr($user_agent,0,5) == "Emacs" || substr($user_agent,0,5) == "Links" || substr($user_agent,0,4) == "Lynx" || substr($user_agent,0,9) == "URL/Emacs")
header("location: http://insanelywittystupidity.com/html/css_eqv.html?../scrambler/scrambler.html");

?>

<!-- css_eqv end -->

<noscript>

You're trying to use scrambler without a javascript translator. It will be replaced in the future with a php equivalent. However, it's not finished yet. Keep checking this page.

</noscript>

<?php
$res_list = [];
$sub_arr = [];

$a_list = []; $b_list = []; $c_list = []; $d_list = []; $e_list = [];
$f_list = []; $g_list = []; $h_list = []; $i_list = []; $j_list = [];
$k_list = []; $l_list = []; $m_list = []; $n_list = []; $o_list = [];
$p_list = []; $q_list = []; $r_list = []; $s_list = []; $t_list = [];
$u_list = []; $v_list = []; $w_list = []; $x_list = []; $y_list = [];
$z_list = [];

function add_to_arr($str_arr, $add_arr)
{
$i = 0;

for($i=0; $i<sizeof($add_arr); $i++) // *js_array add_arr;*
$str_arr.push($add_arr[$i]);

return $str_arr;
}

function add_to_lst_arr($str_arr, $add_arr)
{
$i = 0;
$j = 0;
$k = 0;
$str = "";
$ret_arr = [];

if(sizeof($str_arr) > 0) // *js_array str_arr;*
{
for($i=0; $i<sizeof($str_arr); $i++) // *js_array str_arr;*
{
for($j=0; $j<sizeof($add_arr); $j++) // *js_array add_arr;*
{
$str = $str_arr[$i];
$str .= $add_arr[$j];
$ret_arr[$k] = $str;
$k = $k+1;
}
}
}

else
{
for($i=0; $i<sizeof($add_arr); $i++) // *js_array add_arr;*
$ret_arr[$i] = $add_arr[$i];

return $ret_arr;
}

return $ret_arr;
}

function alpha($str)
{
$i = 0;
$arr = [];

for($i=0; $i<strlen($str); $i++)
$arr[$i] = substr($str, $i,1);

$arr.sort();
$str = "";

for($i=0; $i<sizeof($arr); $i++) // *js_array arr;*
$str .= $arr[$i];

return $str;
}

function arr_int($arr)
{
$i = 0;
$int_arr = [];

for($i=0; $i<sizeof($arr); $i++) // *js_array arr;*
$int_arr[$i] = parseInt($arr[$i]);

return $int_arr;
}

function ch_lgth_arr($no_wds, $letters, $lgth_str, $str, $index, $err_msg, $err_str)
{
$i = 0;
$lgth_arr = [];

$lgth_arr = set_ast_arr($lgth_str);

if($str !== undefined && $str !== null)
$lgth_arr[$index] = parseInt($str);

$lgth_str = "";

for($i=0; $i<sizeof($lgth_arr); $i++) // *js_array lgth_arr;*
{
$lgth_str .= $lgth_arr[$i];
$lgth_str .= "*";
}

load_page($no_wds, $letters, $lgth_str, $err_msg, $err_str);
}

function chlg_if_ent($evt, $no_wds, $letters, $lgth_str, $str, $index, $err_msg, $err_str)
{
$var = $var;
//$evt = ($evt) ? $evt : window.event;
$var = $var;
//$char_code = ($evt.which) ? $evt.which : $evt.keyCode;

if($char_code == 13)
ch_lgth_arr($no_wds, $letters, $lgth_str, $str, $index, $err_msg, $err_str);
}

function chlg_if_ent_if_ls($evt, $no_wds, $letters, $lgth_str, $str, $index, $err_msg, $err_str)
{
$var = $var;
//$evt = ($evt) ? $evt : window.event;
$var = $var;
//$char_code = ($evt.which) ? $evt.which : $evt.keyCode;

if($char_code == 13)
ch_lgth_arr($no_wds, $letters, $lgth_str, $str, $index, $err_msg, $err_str);

if($char_code > 31 && ($char_code < 48 || $char_code > 57))
return false;

return true;
}

function chlg_if_ls($no_wds, $letters, $lgth_str, $str, $index, $err_msg, $err_str)
{
$non_int = false;

$i = 0; $j = 0;

for($i=0; $i < strlen($str); $i++)
{
if(!is_int(substr($str, $i,1)))
{
$non_int = true;
break;
}
}

if(!$non_int)
ch_lgth_arr($no_wds, $letters, $lgth_str, $str, $index, $err_msg, $err_str);
}

function chk_ltr($arr, $str, $index, $lgth_int)
{
$i = 0;
$j = 0;
$k = 0;
$num = 0;

$temp = "";
$temp_str = "";

$ret_arr = [];
$str_arr = [];

$str_arr = subsets($str, $lgth_int[$index]);

for($i=0; $i<sizeof($str_arr); $i++) // *js_array str_arr;*
$str_arr[$i] = alpha($str_arr[$i]);

for($i=0; $i<sizeof($arr); $i++) // *js_array arr;*
$arr[$i] = $arr[$i].toUpperCase();

$j = 0;

for($k=0; $k<sizeof($str_arr); $k++) // *js_array str_arr;*
{
$temp_str = $str_arr[$k];

for($i=0; $i<sizeof($arr); $i++) // *js_array arr;*
{
$temp = $arr[$i];
$temp = alpha($temp);

if($temp_str == $temp)
{
$ret_arr[$j] = $arr[$i];
$j = $j+1;
}
}
}

$ret_arr = rem_dup($ret_arr);
return $ret_arr;
}

function chk_ltrs($arr, $str)
{
$i = 0;
$j = 0;
$temp = "";
$ret_arr = [];

$str = alpha($str);

for($i=0; $i<sizeof($arr); $i++) // *js_array arr;*
$arr[$i] = $arr[$i].toUpperCase();

$j = 0;

for($i=0; $i<sizeof($arr); $i++) // *js_array arr;*
{
$temp = $arr[$i];
$temp = alpha($temp);

if($str == $temp)
{
$ret_arr[$j] = $arr[$i];
$j = $j+1;
}
}

return $ret_arr;
}

function fact($n)
{
$res = 1;
$i = 0;

for($i=$n; $i>1; $i--)
$res = $res * $i;

return $res;
}

function get_cki($cki_name)
{
$elm=1;
$i=0;
$j=0;
$cki="";
$cki_ret="";
$ind="";
$str="";
$cki_arr = split(';', $GLOBALS['cki']);

while(true)
{
$ind = strval($elm);

$str = $cki_name;
$str .= "_";
$str .= $ind;

if(strrpos($GLOBALS['cki'], $str) >= 0)
$elm = $elm+1;
else
break;
}

for($i=0; $i<sizeof($cki_arr); $i++) // *js_array cki_arr;*
{
$cki = $cki_arr[$i];

while (substr($cki, 0, 1)==' ')
$cki = js_substring($cki, 1);

for($j=0; $j<$elm; $j++)
{
$ind = strval($j);

$str = $cki_name;
$str .= "_";
$str .= $ind;
$str .= "=";

if(strrpos($cki, $str) == 0)
$cki_ret .= substr($cki, strlen($str), (strlen($cki) - strlen($str)));
}
}

return $cki_ret;
}

function in_list($str, $list)
{
$i = 0;
$temp = "";

for($i=0; $i<strlen($list); $i++)
{
$temp = $list[$i];
$temp = $temp.toUpperCase();

if($str == $temp)
return true;
}

return false;
}

function load_page($no_wds, $letters, $lgth_str, $err_msg, $err_str)
{
$i = 0;
$str = "";

if($err_str != "")
{
if($err_str != $letters)
{
$err_msg = "";
$err_str = "";
}
}

$str .= "@no_wds*";
$str .= $no_wds;
$str .= "@letters*";
$str .= $letters;
$str .= "@err_msg*";
$str .= $err_msg;
$str .= "@err_str*";
$str .= $err_str;
$str .= "@lgth_arr*";
$str .= $lgth_str;

$str .= "@res_list*";

for($i=0; $i<sizeof($GLOBALS['res_list']); $i++) // *js_array res_list;*
{
$str .= $GLOBALS['res_list'][$i];
$str .= "*";
}

set_cki("scrambler_cki", $str, 30);
$var = $var;
//location.replace("/scrambler/scrambler.html");
}

function lp_if_ent($evt, $no_wds, $letters, $lgth_str, $err_msg, $err_str)
{
$var = $var;
//$evt = ($evt) ? $evt : window.event;
$var = $var;
//$char_code = ($evt.which) ? $evt.which : $evt.keyCode;

if($char_code == 13)
load_page($no_wds, $letters, $lgth_str, $err_msg, $err_str);
}

function lp_if_ent_if_let($evt, $no_wds, $letters, $lgth_str, $err_msg, $err_str, $ltr_lgth)
{
$var = $var;
//$evt = ($evt) ? $evt : window.event;
$var = $var;
//$char_code = ($evt.which) ? $evt.which : $evt.keyCode;

if($char_code == 13)
{
if(strlen($letters) < $ltr_lgth)
{
msg = "There should be ";
msg .= $ltr_lgth;
msg .= " characters."

load_page($no_wds, $letters, $lgth_str, msg, $err_str);
}

else
scramble($no_wds, $letters, $lgth_str, "", $err_str);
}

if (($char_code > 31 && ($char_code < 65 || $char_code > 90)) &&
($char_code > 31 && ($char_code < 97 || $char_code > 122)))
return false;

return true;
}

function lp_if_ent_if_nw($evt, $no_wds, $letters, $lgth_str, $err_msg, $err_str)
{
$var = $var;
//$evt = ($evt) ? $evt : window.event;
$var = $var;
//$char_code = ($evt.which) ? $evt.which : $evt.keyCode;

if($char_code == 13)
load_page($no_wds, $letters, $lgth_str, $err_msg, $err_str);

if($char_code > 31 && ($char_code < 48 || $char_code > 57))
return false;

return true;
}

function lp_if_nw($no_wds, $letters, $lgth_str, $err_msg, $err_str)
{
$non_int = false;
$i = 0;

for($i=0; $i < strlen($no_wds); $i++)
{
if(!is_int(substr($no_wds, $i,1)))
{
$non_int = true;
break;
}
}

if(!$non_int)
load_page($no_wds, $letters, $lgth_str, $err_msg, $err_str);
}

function is_letter($evt)
{
$var = $var;
//$evt = ($evt) ? $evt : window.event;
$var = $var;
//$char_code = ($evt.which) ? $evt.which : $evt.keyCode;

if (($char_code > 31 && ($char_code < 65 || $char_code > 90)) &&
($char_code > 31 && ($char_code < 97 || $char_code > 122)))
return false;

return true;
}

function is_int($str)
{
if($str == "0" || $str == "1" || $str == "2" || $str == "3" || $str == "4" ||
$str == "5" || $str == "6" || $str == "7" || $str == "8" || $str == "9")
return true;

return false;
}

function is_let($str)
{
if($str == "a" || $str == "b" || $str == "c" || $str == "d" || $str == "e" ||
$str == "f" || $str == "g" || $str == "h" || $str == "i" || $str == "j" ||
$str == "k" || $str == "l" || $str == "m" || $str == "n" || $str == "o" ||
$str == "p" || $str == "q" || $str == "r" || $str == "s" || $str == "t" ||
$str == "u" || $str == "v" || $str == "w" || $str == "x" || $str == "y" ||
$str == "z" || $str == "A" || $str == "B" || $str == "C" || $str == "D" ||
$str == "E" || $str == "F" || $str == "G" || $str == "H" || $str == "I" ||
$str == "J" || $str == "K" || $str == "L" || $str == "M" || $str == "N" ||
$str == "O" || $str == "P" || $str == "Q" || $str == "R" || $str == "S" ||
$str == "T" || $str == "U" || $str == "V" || $str == "W" || $str == "X" ||
$str == "Y" || $str == "Z")

return true;

return false;
}

function is_number($evt)
{
$var = $var;
//$evt = ($evt) ? $evt : window.event;
$var = $var;
//$char_code = ($evt.which) ? $evt.which : $evt.keyCode;

if ($char_code > 31 && ($char_code < 48 || $char_code > 57))
return false;

return true;
}

function rem_dup($arr)
{
$cs = false;
$i = 0;
$j = 0;
$k = 0;
$ret_arr = [];

for($i=0; $i<sizeof($arr); $i++) // *js_array arr;*
{
for($j=0; $j<sizeof($ret_arr); $j++) // *js_array ret_arr;*
{
if($ret_arr[$j] == $arr[$i])
{
$cs = true;
break;
}
}

if($cs == true)
{
$cs = false;
continue;
}

$ret_arr[$k] = $arr[$i];
$k = $k+1;
}

return $ret_arr;
}

function scr_if_ent($evt, $no_wds, $letters, $lgth_str, $err_msg, $err_str)
{
$var = $var;
//$evt = ($evt) ? $evt : window.event;
$var = $var;
//$char_code = ($evt.which) ? $evt.which : $evt.keyCode;

if($char_code == 13)
scramble($no_wds, $letters, $lgth_str, $err_msg, $err_str);
}

function scr_if_let($no_wds, $letters, $lgth_str, $err_msg, $err_str, $ltr_lgth)
{
$non_let = false;
$i = 0;
$msg = "";

for($i=0; $i < strlen($letters); $i++)
{
if(!is_let(substr($letters, $i,1)))
{
$non_let = true;
break;
}
}

if(!$non_let)
{
if(strlen($letters) < $ltr_lgth)
{
$msg = "There should be ";
$msg .= $ltr_lgth;
$msg .= " characters."

load_page($no_wds, $letters, $lgth_str, $msg, $err_str);
}

else
scramble($no_wds, $letters, $lgth_str, "", $err_str);
}
}

function scramble($no_wds, $letters, $lgth_str, $err_msg, $err_str)
{
$cs = false;

$i = 0;
$j = 0;
$k = 0;

$arr = [];
$lgth_arr = [];
$lgth_int = [];
$ltr_list = [];

$letters = $letters.toUpperCase();
$arr = set_arr($letters);
$lgth_arr = set_ast_arr($lgth_str);
$lgth_int = arr_int($lgth_arr);

for($i=0; $i<strlen($letters); $i++)
{
for($j=0; $j<sizeof($ltr_list); $j++) // *js_array ltr_list;*
{
if(substr($letters, $i,1) == $ltr_list[$j])
{
$cs = true;
break;
}
}

if($cs)
{
$cs = false;
continue;
}

$ltr_list[$k] = substr($letters, $i, 1);
$k = $k+1;
}

for($i=0; $i<$no_wds; $i++)
{
for($j=0; $j<sizeof($ltr_list); $j++) // *js_array ltr_list;*
{
if($ltr_list[$j] == "A") $GLOBALS['a_list'][$i] = wds("/scrambler/dictionary/a.txt", $i, $lgth_int, $letters);
else if($ltr_list[$j] == "B") $GLOBALS['b_list'][$i] = wds("/scrambler/dictionary/b.txt", $i, $lgth_int, $letters);
else if($ltr_list[$j] == "C") $GLOBALS['c_list'][$i] = wds("/scrambler/dictionary/c.txt", $i, $lgth_int, $letters);
else if($ltr_list[$j] == "D") $GLOBALS['d_list'][$i] = wds("/scrambler/dictionary/d.txt", $i, $lgth_int, $letters);
else if($ltr_list[$j] == "E") $GLOBALS['e_list'][$i] = wds("/scrambler/dictionary/e.txt", $i, $lgth_int, $letters);
else if($ltr_list[$j] == "F") $GLOBALS['f_list'][$i] = wds("/scrambler/dictionary/f.txt", $i, $lgth_int, $letters);
else if($ltr_list[$j] == "G") $GLOBALS['g_list'][$i] = wds("/scrambler/dictionary/g.txt", $i, $lgth_int, $letters);
else if($ltr_list[$j] == "H") $GLOBALS['h_list'][$i] = wds("/scrambler/dictionary/h.txt", $i, $lgth_int, $letters);
else if($ltr_list[$j] == "I") $GLOBALS['i_list'][$i] = wds("/scrambler/dictionary/i.txt", $i, $lgth_int, $letters);
else if($ltr_list[$j] == "J") $GLOBALS['j_list'][$i] = wds("/scrambler/dictionary/j.txt", $i, $lgth_int, $letters);
else if($ltr_list[$j] == "K") $GLOBALS['k_list'][$i] = wds("/scrambler/dictionary/k.txt", $i, $lgth_int, $letters);
else if($ltr_list[$j] == "L") $GLOBALS['l_list'][$i] = wds("/scrambler/dictionary/l.txt", $i, $lgth_int, $letters);
else if($ltr_list[$j] == "M") $GLOBALS['m_list'][$i] = wds("/scrambler/dictionary/m.txt", $i, $lgth_int, $letters);
else if($ltr_list[$j] == "N") $GLOBALS['n_list'][$i] = wds("/scrambler/dictionary/n.txt", $i, $lgth_int, $letters);
else if($ltr_list[$j] == "O") $GLOBALS['o_list'][$i] = wds("/scrambler/dictionary/o.txt", $i, $lgth_int, $letters);
else if($ltr_list[$j] == "P") $GLOBALS['p_list'][$i] = wds("/scrambler/dictionary/p.txt", $i, $lgth_int, $letters);
else if($ltr_list[$j] == "Q") $GLOBALS['q_list'][$i] = wds("/scrambler/dictionary/q.txt", $i, $lgth_int, $letters);
else if($ltr_list[$j] == "R") $GLOBALS['r_list'][$i] = wds("/scrambler/dictionary/r.txt", $i, $lgth_int, $letters);
else if($ltr_list[$j] == "S") $GLOBALS['s_list'][$i] = wds("/scrambler/dictionary/s.txt", $i, $lgth_int, $letters);
else if($ltr_list[$j] == "T") $GLOBALS['t_list'][$i] = wds("/scrambler/dictionary/t.txt", $i, $lgth_int, $letters);
else if($ltr_list[$j] == "U") $GLOBALS['u_list'][$i] = wds("/scrambler/dictionary/u.txt", $i, $lgth_int, $letters);
else if($ltr_list[$j] == "V") $GLOBALS['v_list'][$i] = wds("/scrambler/dictionary/v.txt", $i, $lgth_int, $letters);
else if($ltr_list[$j] == "W") $GLOBALS['w_list'][$i] = wds("/scrambler/dictionary/w.txt", $i, $lgth_int, $letters);
else if($ltr_list[$j] == "X") $GLOBALS['x_list'][$i] = wds("/scrambler/dictionary/x.txt", $i, $lgth_int, $letters);
else if($ltr_list[$j] == "Y") $GLOBALS['y_list'][$i] = wds("/scrambler/dictionary/y.txt", $i, $lgth_int, $letters);
else if($ltr_list[$j] == "Z") $GLOBALS['z_list'][$i] = wds("/scrambler/dictionary/z.txt", $i, $lgth_int, $letters);
}
}

sizeof($GLOBALS['res_list']) = 0; // *js_array res_list;*
str_psb_cmb($no_wds, $letters);
load_page($no_wds, $letters, $lgth_str, $err_msg, $err_str);
}

function set_arr($letters)
{
$i = 0;
$arr = [];

for($i=0; $i<strlen($letters); $i++)
$arr[$i] = substr($letters, $i,1);

return $arr;
}

function set_ast_arr($str)
{
$i = 0;
$j = 0;
$k = 0;

$arr = [];

for($i=0; $i<strlen($str); $i++)
{
if(substr($str, $i,1) == "*")
{
$arr[$j] = substr($str, $k, $i-$k);
$j = $j+1;
$k = $i+1;
}
}

return $arr;
}

function set_cki($cki_name, $cki_val, $exp_days)
{
$i = 0;
$str_l = 0;

$doc_cki_str = "";
$ind = "";
$temp = "";

$var = $var;
//$date = new Date();
$date = js_set_time(js_get_time( ($exp_days * 24 * 60 * 60 * 1000)));
$exp_date = "expires=" + js_to_utc_str($date);

$str_l = strlen($cki_val);

for($i=0; $i<(floor($str_l/4000)+1); $i++)
{
$ind = strval($i);

if(($str_l - ($i*4000)) > 0)
$temp = substr($cki_val, ($i*4000), 4000);
else
$temp = substr($cki_val, ($i*4000), ($str_l - ($i*4000)));

$doc_cki_str = $cki_name;
$doc_cki_str .= "_";
$doc_cki_str .= $ind;
$doc_cki_str .= "=";
$doc_cki_str .= $temp;
$doc_cki_str .= "; ";
$doc_cki_str .= $exp_date;

doc_cookie( $doc_cki_str);
}
}

function set_err_msg($str)
{
$i = 0;
$str_ret = "";

for($i=0; $i<strlen($str); $i++)
{
if(substr($str, $i,8) == "@err_msg")
{
$str_ret = substr($str, $i+9, ((strlen($str)+1) - ($i+9)));
break;
}
}

for($i=0; $i<strlen($str_ret); $i++)
{
if(substr($str_ret, $i,1) == "@")
{
$str_ret = substr($str_ret, 0,$i);
break;
}
}

return $str_ret;
}

function set_err_str($str)
{
$i = 0;
$str_ret = "";

for($i=0; $i<strlen($str); $i++)
{
if(substr($str, $i,8) == "@err_str")
{
$str_ret = substr($str, $i+9, ((strlen($str)+1) - ($i+9)));
break;
}
}

for($i=0; $i<strlen($str_ret); $i++)
{
if(substr($str_ret, $i,1) == "@")
{
$str_ret = substr($str_ret, 0,$i);
break;
}
}

return $str_ret;
}

function set_no_wds($str)
{
$i = 0;
$str_ret = "";

for($i=0; $i<strlen($str); $i++)
{
if(substr($str, $i,7) == "@no_wds")
{
$str_ret = substr($str, $i+8, ((strlen($str)+1) - ($i+8)));
break;
}
}

for($i=0; $i<strlen($str_ret); $i++)
{
if(substr($str_ret, $i,1) == "@")
{
$str_ret = substr($str_ret, 0,$i);
break;
}
}

if($str_ret == "" || $str_ret == "0")
return 1;

return parseInt($str_ret);
}

function set_letters($str)
{
$i = 0;
$str_ret = "";

for($i=0; $i<strlen($str); $i++)
{
if(substr($str, $i,8) == "@letters")
{
$str_ret = substr($str, $i+9, ((strlen($str)+1) - ($i+9)));
break;
}
}

for($i=0; $i<strlen($str_ret); $i++)
{
if(substr($str_ret, $i,1) == "@")
{
$str_ret = substr($str_ret, 0,$i);
break;
}
}

return $str_ret;
}

function set_lgth_arr($str, $no_wds)
{
$i = 0;
$j = 0;
$k = 0;

$str_ret = "";
$temp = "";

$ret_arr = [];

for($i=0; $i<$no_wds; $i++)
$ret_arr[$i] = "1";

for($i=0; $i<strlen($str); $i++)
{
if(substr($str, $i,10) == "@lgth_arr*")
{
$str_ret = substr($str, $i+10, ((strlen($str)+1) - ($i+10)));
break;
}
}

for($i=0; $i<strlen($str_ret); $i++)
{
if(substr($str_ret, $i,1) == "@")
{
$str_ret = substr($str_ret, 0,$i);
break;
}
}

$j = 0;
$k = 0;

for($i=0; $i<strlen($str_ret); $i++)
{
if(substr($str_ret, $i,1) == "*")
{
$temp = substr($str_ret, $k, $i-$k);

if($temp == "0")
$temp = "1";

$ret_arr[$j] = $temp;

$j = $j+1;

if($j == $no_wds)
break;

$k = $i+1;
}
}

for($i=0; $i<sizeof($ret_arr); $i++) // *js_array ret_arr;*
{
if($ret_arr[$i] === undefined || $ret_arr[$i] === null || $ret_arr[$i] == "NaN" || $ret_arr[$i] == "")
$ret_arr[$i] = "1";
}

return $ret_arr;
}

function set_res_list($str)
{
$cs = false;

$i = 0;
$j = 0;
$k = 0;

$str_ret = "";
$temp = "";

$ret_arr = [];

for($i=0; $i<strlen($str); $i++)
{
if(substr($str, $i,9) == "@res_list")
{
$str_ret = substr($str, $i+10, ((strlen($str)+1) - ($i+10)));
break;
}
}

for($i=0; $i<strlen($str_ret); $i++)
{
if(substr($str_ret, $i,1) == "@")
{
$str_ret = substr($str_ret, 0,$i);
break;
}
}

$j = 0;

for($i=0; $i<strlen($str_ret); $i++)
{
if(substr($str_ret, $i,1) == "*")
{
$temp = substr($str_ret, $k, $i-$k);

if($temp != "" && !(in_list($temp, $ret_arr)))
{
$ret_arr[$j] = $temp;
$j = $j+1;
$k = $i+1;
}

else
$k = $i+1;
}
}

return $ret_arr;
}

function str_psb_cmb($no_wds, $letters)
{
$i = 0;
$j = 0;
$cur_arr = [];
$lst_arr = [];
$ret_arr = [];

for($i=0; $i<$no_wds; $i++)
{
sizeof($cur_arr) = 0; // *js_array cur_arr;*

if(sizeof($GLOBALS['a_list']) > 0) $cur_arr = add_to_arr($cur_arr, $GLOBALS['a_list'][$i]); // *js_array a_list;*
if(sizeof($GLOBALS['b_list']) > 0) $cur_arr = add_to_arr($cur_arr, $GLOBALS['b_list'][$i]); // *js_array b_list;*
if(sizeof($GLOBALS['c_list']) > 0) $cur_arr = add_to_arr($cur_arr, $GLOBALS['c_list'][$i]); // *js_array c_list;*
if(sizeof($GLOBALS['d_list']) > 0) $cur_arr = add_to_arr($cur_arr, $GLOBALS['d_list'][$i]); // *js_array d_list;*
if(sizeof($GLOBALS['e_list']) > 0) $cur_arr = add_to_arr($cur_arr, $GLOBALS['e_list'][$i]); // *js_array e_list;*
if(sizeof($GLOBALS['f_list']) > 0) $cur_arr = add_to_arr($cur_arr, $GLOBALS['f_list'][$i]); // *js_array f_list;*
if(sizeof($GLOBALS['g_list']) > 0) $cur_arr = add_to_arr($cur_arr, $GLOBALS['g_list'][$i]); // *js_array g_list;*
if(sizeof($GLOBALS['h_list']) > 0) $cur_arr = add_to_arr($cur_arr, $GLOBALS['h_list'][$i]); // *js_array h_list;*
if(sizeof($GLOBALS['i_list']) > 0) $cur_arr = add_to_arr($cur_arr, $GLOBALS['i_list'][$i]); // *js_array i_list;*
if(sizeof($GLOBALS['j_list']) > 0) $cur_arr = add_to_arr($cur_arr, $GLOBALS['j_list'][$i]); // *js_array j_list;*
if(sizeof($GLOBALS['k_list']) > 0) $cur_arr = add_to_arr($cur_arr, $GLOBALS['k_list'][$i]); // *js_array k_list;*
if(sizeof($GLOBALS['l_list']) > 0) $cur_arr = add_to_arr($cur_arr, $GLOBALS['l_list'][$i]); // *js_array l_list;*
if(sizeof($GLOBALS['m_list']) > 0) $cur_arr = add_to_arr($cur_arr, $GLOBALS['m_list'][$i]); // *js_array m_list;*
if(sizeof($GLOBALS['n_list']) > 0) $cur_arr = add_to_arr($cur_arr, $GLOBALS['n_list'][$i]); // *js_array n_list;*
if(sizeof($GLOBALS['o_list']) > 0) $cur_arr = add_to_arr($cur_arr, $GLOBALS['o_list'][$i]); // *js_array o_list;*
if(sizeof($GLOBALS['p_list']) > 0) $cur_arr = add_to_arr($cur_arr, $GLOBALS['p_list'][$i]); // *js_array p_list;*
if(sizeof($GLOBALS['q_list']) > 0) $cur_arr = add_to_arr($cur_arr, $GLOBALS['q_list'][$i]); // *js_array q_list;*
if(sizeof($GLOBALS['r_list']) > 0) $cur_arr = add_to_arr($cur_arr, $GLOBALS['r_list'][$i]); // *js_array r_list;*
if(sizeof($GLOBALS['s_list']) > 0) $cur_arr = add_to_arr($cur_arr, $GLOBALS['s_list'][$i]); // *js_array s_list;*
if(sizeof($GLOBALS['t_list']) > 0) $cur_arr = add_to_arr($cur_arr, $GLOBALS['t_list'][$i]); // *js_array t_list;*
if(sizeof($GLOBALS['u_list']) > 0) $cur_arr = add_to_arr($cur_arr, $GLOBALS['u_list'][$i]); // *js_array u_list;*
if(sizeof($GLOBALS['v_list']) > 0) $cur_arr = add_to_arr($cur_arr, $GLOBALS['v_list'][$i]); // *js_array v_list;*
if(sizeof($GLOBALS['w_list']) > 0) $cur_arr = add_to_arr($cur_arr, $GLOBALS['w_list'][$i]); // *js_array w_list;*
if(sizeof($GLOBALS['x_list']) > 0) $cur_arr = add_to_arr($cur_arr, $GLOBALS['x_list'][$i]); // *js_array x_list;*
if(sizeof($GLOBALS['y_list']) > 0) $cur_arr = add_to_arr($cur_arr, $GLOBALS['y_list'][$i]); // *js_array y_list;*
if(sizeof($GLOBALS['z_list']) > 0) $cur_arr = add_to_arr($cur_arr, $GLOBALS['z_list'][$i]); // *js_array z_list;*

$lst_arr = add_to_lst_arr($lst_arr, $cur_arr);
}

$ret_arr = chk_ltrs($lst_arr, $letters);

for($i=0; $i<sizeof($ret_arr); $i++) // *js_array ret_arr;*
$GLOBALS['res_list'].push($ret_arr[$i]);
}

function sub($str, $n)
{
$ch_arr = [];
sizeof($ch_arr) = $n; // *js_array ch_arr;*

sub_rec($str, $ch_arr, 0, 0);
}

function sub_rec($str, $ch_arr, $arr_start, $ch_start)
{
$i = 0;
$sub_str = "";

if($ch_start == sizeof($ch_arr)) // *js_array ch_arr;*
{
for($i=0; $i<sizeof($ch_arr); $i++) // *js_array ch_arr;*
$sub_str .= $ch_arr[$i];

$GLOBALS['sub_arr'].push($sub_str);
}
else if($arr_start < strlen($str))
{
$ch_arr[$ch_start] = substr($str, $arr_start, 1);
sub_rec($str, $ch_arr, $arr_start+1, $ch_start+1);
sub_rec($str, $ch_arr, $arr_start+1, $ch_start);
}
}

function subsets($str, $n)
{
$i = 0;

sub($str, $n);

return $GLOBALS['sub_arr'];
}

function wds($path, $index, $lgth_int, $letters)
{
$xmlhttp = null;

$i = 0;
$j = 0;
$k = 0;

$str = "";
$temp = "";

$arr = [];
$ret_arr = [];

if (true)
$xmlhttp="xmlhttprequest";
else
$xmlhttp="activexobject";

if ($xmlhttp != null)
{
$xmlhttp = $path;
$var = $var;
//$xmlhttp.send();
$str = file_str($xmlhttp);
}

$str = str_replace("\n", "", $str);
$j = 0;

for($i=0; $i<strlen($str); $i++)
{
if(substr($str, $i,3) == "***")
{
$temp = substr($str, $j, $i-$j);
$arr[$k] = $temp;
$j = $i+3;
$k = $k+1;
}
}

$j = 0;

for($i=0; $i<sizeof($arr); $i++) // *js_array arr;*
{
if($arr[strlen($i]) == $lgth_int[$index])
{
$ret_arr[$j] = $arr[$i];
$j = $j+1
}
}

sizeof($arr) = 0; // *js_array arr;*
$arr = chk_ltr($ret_arr, $letters, $index, $lgth_int);

return $arr;
}
?>

<head>

<title>Scrambler</title>

<meta name="viewport" content="width=device-width"/>

<meta name="description" content="Scrambler" />
<meta name="robots" content="index,follow" />
<meta http-equiv="imagetoolbar" content="no" />
<meta name="author" content="Michael Atkins" />
<meta http-equiv="Content-type" content="text/html;charset=UTF-8" />

</head>
<body link="#0099ff" vlink="#9999ff" alink="#cc3300" bgcolor="#000000">

<font face="Courier, Droid Sans Mono" size="4" color="#ffffff">

<!-- css_eqv /txt/iws_links.txt -->

<table align="center">
<tr>
<td>

<table style="float: left;">
<tr>
<td>
<center>
<a href="/" title="Main">
<img src="/Iconz/iws_sml.png" alt="Main"/></a>
</center>
</td>
</tr>
<tr>
<td>
<center>
<a href="/">
Main</a>
</center>
</td>
</tr>
</table>

<table style="float: left;">
<tr>
<td>
<center>
<a href="/html/Artwork.html" title="Artwork">
<img src="/Iconz/Artwork_64.png" alt="Artwork"/></a>
</center>
</td>
</tr>
<tr>
<td>
<center>
<a href="/html/Artwork.html">
Artwork</a>
</center>
</td>
</tr>
</table>

<table style="float: left;">
<tr>
<td>
<center>
<a href="/html/Books.html" title="Books">
<img src="/Iconz/Books_64.png" alt="Books"/></a>
</center>
</td>
</tr>
<tr>
<td>
<center>
<a href="/html/Books.html">
Books</a>
</center>
</td>
</tr>
</table>

<table style="float: left;">
<tr>
<td>
<center>
<a href="/html/Licenses.html" title="Licenses">
<img src="/Iconz/Licenses_64.png" alt="Licenses"/></a>
</center>
</td>
</tr>
<tr>
<td>
<center>
<a href="/html/Licenses.html">
Licenses</a>
</center>
</td>
</tr>
</table>

<table style="float: left;">
<tr>
<td>
<center>
<a href="/html/Shorts.html" title="Shorts">
<img src="/Iconz/Shorts_64.png" alt="Shorts"/></a>
</center>
</td>
</tr>
<tr>
<td>
<center>
<a href="/html/Shorts.html">
Shorts</a>
</center>
</td>
</tr>
</table>

<table style="float: left;">
<tr>
<td>
<center>
<a href="/html/Software.html" title="Software">
<img src="/Iconz/Software_64.png" alt="Software"/></a>
</center>
</td>
</tr>
<tr>
<td>
<center>
<a href="/html/Software.html">
Software</a>
</center>
</td>
</tr>
</table>

<table style="float: left;">
<tr>
<td>
<center>
<a href="/html/Source.html" title="Source">
<img src="/Iconz/Source_64.png" alt="Source"/></a>
</center>
</td>
</tr>
<tr>
<td>
<center>
<a href="/html/Source.html">
Source</a>
</center>
</td>
</tr>
</table>

</td>
</tr>
</table>

<!-- css_eqv end -->

</font>

<font face="Courier, Droid Sans Mono" size="4" color="#ffffff">

<font size="4">
<h2>
<center>
Scrambler
</center>
</h2>
</font>

<table width="100%">

<tr>

<td width="10%">
</td>

<td width="80%">

<?php
$i = 0;
$j = 0;
$k = 0;
$ltr_lgth = 0;
$no_cmb = 0;
$no_wds = 0;

$err_msg = "";
$err_str = "";
$letters = "";
$lgth_str = "";
$old_cki = "";

$lgth_arr = [];
$lgth_int = [];
$res_list = [];

$old_cki = get_cki("scrambler_cki");

$no_wds = set_no_wds($old_cki);
$letters = set_letters($old_cki);
$lgth_arr = set_lgth_arr($old_cki, $no_wds);
$res_list = set_res_list($old_cki);
$err_msg = set_err_msg($old_cki);
$err_str = set_err_str($old_cki);

for($i=0; $i<sizeof($lgth_arr); $i++) // *js_array lgth_arr;*
{
$lgth_int[$i] = parseInt($lgth_arr[$i]);
$lgth_str .= $lgth_arr[$i];
$lgth_str .= "*";
$ltr_lgth = $ltr_lgth + parseInt($lgth_arr[$i]);
}

$no_cmb = fact($ltr_lgth);

echo 'Number of words: ' . $no_wds . '<br>';

?><form action='<?php lp_if_nw($_POST["no_wds_id"], $letters, $lgth_str, "", $err_str); ?>' method="post"> <?php echo "<input type=\"text\" class=\"textfield\" value=\"\" maxlength=\"2\" size=\"2\" style=\"font-family: courier, droid sans; font-size: 18px\"/>";

echo "&nbsp;";

echo "<input type=\"submit\" value=\"Change\">";

for($i=0; $i<$no_wds; $i++)
{
echo 'Word ' . (strval($i+1)) . ' length: ' . $lgth_arr[$i] . '<br>';

echo "</form>";

?><form action='<?php chlg_if_ls($no_wds, $letters, $lgth_str, $_POST["wrd_lgth_id_$i"], "$i", "", $err_str); ?>' method="post"> <?php echo "<input type=\"text\" class=\"textfield\" value=\"\" maxlength=\"2\" size=\"2\" style=\"font-family: courier, droid sans; font-size: 18px\"/>";

echo "&nbsp;";

echo "<input type=\"submit\" value=\"Change\">";
}

echo 'Letters (' . $ltr_lgth . '): ' . $letters . '<br>';

echo "</form>";

?><form action='<?php scr_if_let($no_wds, $_POST["letters_id"], $lgth_str, "", $err_str, $ltr_lgth); ?>' method="post"> <?php echo "<input type=\"text\" class=\"textfield\" value=\"' . $err_str . '\" maxlength=\"' . $ltr_lgth . '\" size=\"' . $ltr_lgth . '\" style=\"font-family: courier, droid sans; font-size: 18px\"/>";

echo "&nbsp;";

echo "<input type=\"submit\" value=\"Scramble\">";

echo $err_msg + '<br>';
echo 'Result: <br><br>';

if($no_wds == 1)
{
for($i=0; $i<sizeof($res_list); $i++) // *js_array res_list;*
echo $res_list[$i] + '<br>';
}
else
{
$j = 0;

for($i=0; $i<sizeof($res_list); $i++) // *js_array res_list;*
{
$k = 0;

for($j=0; $j<sizeof($lgth_int); $j++) // *js_array lgth_int;*
{
echo $res_list[substr($i], $k, $lgth_int[$j]);
echo ' ';
$k = $k + $lgth_int[$j];
}

echo '<br>';
}
}

echo '<br>';
echo 'Combinations (' . $ltr_lgth . '!): ' . $no_cmb;
echo "</form>";

?>

<noscript>
Ordinarily, some html text boxes, labels, and links would show up here. But apparently... you're using a web browser that doesn't support Javascript? Really? In this day and age? How pitiful! But seriously, you should get to a computer with a modern browser and at least check out my Scrambler page. I'm sorry I used a platform that's not supported by older web browsers and command based browsers like Lynx and Links. But, I'm not a fan of PHP. I don't like the idea of executing code on my server for multiple users. I say let their browser download my code and translate it. Anything else would defeat the purpose of hosting web software! Don't you think?
</noscript>

<br><br>
<center>
<a href="/scrambler/scrambler_portal.html">Back</a>
</center>

</td>

<td width="10%">
</td>

</tr>
</table>

<center>
<p>
_______________________<wbr>_______________________
<p>

Follow me on:
<p>

<!-- css_eqv /txt/follow_links.txt -->

<table align="center">
<tr>
<td>

<table style="float: left;">
<tr>
<td>
<center>
<a href="https://www.facebook.com/them11" title="Facebook">
<img src="/Iconz/facebook_64.png" alt="Facebook" /></a>
</center>
</td>
</tr>
</table>

<table style="float: left;">
<tr>
<td>
<center>
<a href="http://twitter.com/them11001" title="Twitter">
<img src="/Iconz/twitter_64.png" alt="Twitter" /></a>
</center>
</td>
</tr>
</table>

</td>
</tr>
</table>

<!-- css_eqv end -->

</center>

</body>
</font>
</html>