Added lot of junk laying around on harvie.cz

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

diff --git a/php/skripty/rada_crack3.php b/php/skripty/rada_crack3.php
new file mode 100644 (file)
index 0000000..5214951
--- /dev/null
+++ b/php/skripty/rada_crack3.php
@@ -0,0 +1,125 @@
+<?php\r
+//Settings\r
+$start = 0;\r
+$stop = 1000;\r
+$places = strlen($stop);\r
+$tryes = 50; //Tryes to find better\r
+$base = 10;\r
+//Init\r
+error_reporting(0);\r
+srand(time());\r
+\r
+/////////////////////////////////////////////////////////////////\r
+//\r
+function rada_add($name, $istr) { //Funkce pro pridani do rady -> !!! OPTIMALIZOVAT !!! <-\r
+  if(!eregi($istr, $GLOBALS[$name])) {\r
+    if( $istr[0] == $GLOBALS[$name][strlen($GLOBALS[$name])-1] ) {\r
+        $istr = substr($istr, 1);\r
+        $GLOBALS[$name] = $GLOBALS[$name].$istr;\r
+      } elseif( $GLOBALS[$name][0] == $istr[strlen($istr)-1] ) { \r
+        $GLOBALS[$name] = substr($GLOBALS[$name], 1);\r
+        $GLOBALS[$name] = $istr.$GLOBALS[$name];\r
+      } else {\r
+\r
+        //Nahodne na zacetek nebo konec\r
+        if(rand(0,1)) { \r
+          $GLOBALS[$name] = $istr.$GLOBALS[$name];\r
+        } else {\r
+          $GLOBALS[$name] = $GLOBALS[$name].$istr;\r
+        }\r
+      \r
+      }\r
+  }\r
+    //$GLOBALS[$name]=$GLOBALS[$name].$istr; //Debug\r
+}\r
+\r
+//\r
+function rada_unique($name) { //Funkce pro vyhledani a smazani duplikatu (i potrebnych)\r
+  $length = $GLOBALS["places"];\r
+  $replacer = "%";\r
+\r
+  for($i=0;$i<(strlen($GLOBALS[$name])-$length);$i++) {\r
+  \r
+    $sub = substr($GLOBALS[$name], $i, $length);\r
+    for($x=0;$x<$length;$x++) {\r
+      $GLOBALS[$name][($i+$x)] = $replacer;\r
+    }\r
+    \r
+    $GLOBALS[$name] = str_replace($sub, "", $GLOBALS[$name]); //Smaze duplikaty\r
+  \r
+    $replace="";\r
+    for($x=0;$x<$length;$x++) {\r
+      $replace = $replace.$replacer;\r
+    }\r
+  \r
+    $GLOBALS[$name] = str_replace($replace, $sub, $GLOBALS[$name]);\r
+  }\r
+\r
+}\r
+\r
+//\r
+function add_zeroes($num, $places) { //Zarovna cislo na $places mist pridanim nul na zacatek\r
+  $str = "";\r
+  for($i=0;$i<$places;$i++) {\r
+    $str = $str."0";\r
+  }\r
+  //$num = base_convert($num, 10, $base); //BASE CONVERT -> !!! NOT WORKS YET !!! <-\r
+  $str=$str.$num;\r
+  $str = substr($str, strlen($str)-$places);\r
+  return $str;\r
+}\r
+\r
+///CODE///////////////////////////////////////////\r
+//Test\r
+//die(add_zeroes(23, 5));\r
+//////////////////////////////////////////////////\r
+$try = $tryes;\r
+$next = true;\r
+while($next) { //MAIN LOOP\r
+  $next = false;\r
+  \r
+  $rada = ""; //Vytvorime prazdnou radu\r
+  for($i=$start;$i<=$stop;$i++) { //Pridame vsechna n-cisli\r
+    $istr = add_zeroes($i, $places);\r
+    rada_add("rada", $istr);\r
+  }\r
+\r
+  rada_unique("rada");\r
+  \r
+  $notfound = 0;\r
+  for($i=$start;$i<=$stop;$i++) {\r
+    $istr = add_zeroes($i, $places);\r
+    if(!eregi($istr, $rada)) {\r
+      $notfound++;\r
+      //echo("Not found: $i\n");\r
+      $next = true;\r
+    }\r
+  }\r
+  \r
+  echo("Total not found: $notfound\n"); //Debug\r
+  \r
+  if($try > 0) {\r
+    if($notfound <= $minnotfound || !isset($minnotfound)) {\r
+      echo("-minnf: $notfound\n"); //Debug\r
+      $minnotfound = $notfound;\r
+      $try = $tryes;\r
+    } else {\r
+      $try--;\r
+    }\r
+  } else {\r
+    if($notfound <= $minnotfound || $notfound == 0) $next = false;\r
+  }\r
+  \r
+} //MAIN LOOP\r
+\r
+for($i=$start;$i<=$stop;$i++) { //Pridame vsechna zbyla n-cisli\r
+    $istr = add_zeroes($i, $places);\r
+    rada_add("rada", $istr);\r
+  }\r
+\r
+/////////OUTPUT///////////////////////////////////\r
+echo("\n");\r
+echo("Length: ".strlen($rada)." chars\n");\r
+echo("Total not found: $notfound\n");\r
+echo($rada);\r
+echo("\n\n");\r