Added lot of junk laying around on harvie.cz

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

diff --git a/php/skripty/char_case_brute.php b/php/skripty/char_case_brute.php
new file mode 100644 (file)
index 0000000..7bc9ca9
--- /dev/null
+++ b/php/skripty/char_case_brute.php
@@ -0,0 +1,62 @@
+<?php\r
+\r
+//die(urldecode("http://www.aliveband.se/L%e5tar/07-HARD%20DAYS%20NIGHT.mp3"));\r
+\r
+$str = "Lo";\r
+\r
+\r
+///CODE//////////////////\r
+function str2lower($str) {\r
+  return strtolower($str);\r
+}\r
+function str2upper($str) {\r
+  return strtoupper($str);\r
+}\r
+\r
+function fill_notset($str, $len, $char) {\r
+  $strout = $str;\r
+  $start = strlen($strout);\r
+  for($i=$start;$i<$len;$i++) {\r
+    $strout[$i] = $char;\r
+  }\r
+  return($strout);\r
+}\r
+//echo(fill_notset("aa", 5, "b")); die();\r
+/////////////////////////\r
+$origstr = $str = str2lower($str);\r
+$len = strlen($str);\r
+$origlen = $len;\r
+\r
+$mask = "";\r
+for (;$len > 0;$len--) {\r
+  $mask = $mask."1";\r
+} //echo($mask);\r
+\r
+$i = base_convert($mask, 2, 10); //echo($i);\r
+while(1) {\r
+  $mask = base_convert($i, 10, 2);\r
+  $mask = fill_notset($mask, $len, "b");\r
+  if(strlen($mask) > strlen($str) || $i < 0) { die(); }\r
+  \r
+  //Regular\r
+  $str = $origstr;\r
+  for ($len = $origlen-1;$len>=0;$len--) {\r
+    if(isset($mask[$len]) && $mask[$len] == "1") {\r
+      $str[$len] = str2upper($str[$len]);\r
+    }\r
+  } echo($mask);\r
+  echo("$str\n");\r
+  \r
+  /*/Reversed\r
+  $mask = str_replace(array("0","1"), array("1","0"), $mask);\r
+  $str = $origstr;\r
+  for ($len = $origlen-1;$len>=0;$len--) {\r
+    if(isset($mask[$len]) && $mask[$len] == "1") {\r
+      $str[$len] = str2upper($str[$len]);\r
+    }\r
+  } //echo($mask);\r
+  echo("$str\n");\r
+  */\r
+\r
+$i--;\r
+}\r