added PKGBUILD for openssh-dnssec

[mirrors/Programs.git] / php / skripty / xor_enc.php

<?php\r
\r
function bin_trim ($bin) {\r
\r
  $x = (8 - strlen($bin));\r
  $y = "";\r
  while($x) {\r
   $y = ($y."0");\r
   $x--;\r
  }\r
  return($y.$bin);\r
  \r
}\r
\r
function xor_bytes ($bina, $binb) {\r
  $bin = "";\r
  $x = 8;\r
  while($x) {\r
    if ($bina[$x-1] XOR $binb[$x-1])\r
      { $bin = ( 1 . $bin ); } else { $bin = ( 0 . $bin ); }\r
    $x--;\r
  }\r
  return $bin;\r
}\r
\r
//CODE/////////////////////////////////////////////////////\r
\r
$message = "POKUS CISLO JEDNA DVA TRI";\r
$message = ")-#&O&$6(.:E/-:H&#&*H--$.";\r