Software License Request Module:

        Fill the form to receive via e-mail the Run-Time License

 

Name
Company
ID. Hard Disk
Pac Number
e-mail

 

"; } if ($_POST["invia"] == "Send Request"){ $nome = trim ($_POST["nome"]); $societa = trim ($_POST["societa"]); $pac = trim ($_POST["pac"]); $email = trim ($_POST["email"]); $pacstr = substr($pac,0,8); if (($pacstr != "321-TLR-") ||($pacstr != "Stalker-")){$pacval = "ko";} else {$pacval = "ok";} if(eregi('^([._a-z0-9-]+[._a-z0-9-]*)@(([a-z0-9-]+\.)*([a-z0-9-]+)(\.[a-z]{2,3}))$', $email)){ $emailval = "ok"; } else { $emailval = "ko"; } $hd = trim ($_POST["hd"]); $dh = strrev ($_POST["hd"]); $lung = strlen ($_POST["hd"]); if ($lung < 4) {$hdval = "ko";} else {$hdval = "ok";} // ********* richiesta licenza runtime per RTX ****** //if ($hdval == "ok" && $emailval == "ok" && $pacval = "ok"){--> if ($hdval == "ok" && $emailval == "ok" && $pacstr == "321-TLR-"){ for ($i=0;$i<$lung;$i++){ $soma[$i] = $hd[$i] + $dh[$i]; if (strlen($soma[$i]) == 1){$soma[$i]=$soma[$i];} if (strlen($soma[$i]) != 1){$soma[$i]=substr($soma[$i], -1);} $x[$i] = rand (0,9); $res[$i]= $x[$i].$soma[$i]; } $licenza = implode ("",$res); $messagio = " Your Software License Run-Time License Number: $licenza "; mail($email, "Software License - Tau Sistemi", $messagio, "From: TauSistemi\nTo: $email\nReply-To: tau@cometacom.it"); $msg = " Ha richiesto la licenza: Nome: $nome Societa: $societa ID. Hard Disk: $hd Pac Number: $pac Mail: $email "; $to = "tau@cometacom.it"; //$to = "giuseppe.dr@cometacom.it"; mail($to, "Richiesta Licenza On-Line", $msg, "From: OnLineLicense\nTo: tau@cometacom.it\nReply-To: tau@cometacom.it"); echo "         Thank you! Your Run-Time License was sent via e-mail at the address you supplied.

"; } //******** richiesta licenza runtime per Stalker ******** $code[0][0]=16; $code[0][1]=47; $code[0][2]=30; $code[0][3]=24; $code[0][4]=51;$code[0][5]= 66; $code[0][6]=16; $code[0][7]=47; $code[0][8]=30; $code[0][9]=24; $code[1][0]=14; $code[1][1]=24; $code[1][2]=30; $code[1][3]=48; $code[1][4]=50;$code[1][5]= 61; $code[1][6]=16; $code[1][7]=47; $code[1][8]=30; $code[1][9]=24; $code[2][0]=23; $code[2][1]=47; $code[2][2]=66; $code[2][3]=88; $code[2][4]=55;$code[2][5]= 18; $code[2][6]=16; $code[2][7]=47; $code[2][8]=30; $code[2][9]=24; $code[3][0]=35; $code[3][1]=27; $code[3][2]=55; $code[3][3]=90; $code[3][4]=11;$code[3][5]= 40; $code[3][6]=16; $code[3][7]=47; $code[3][8]=30; $code[3][9]=24; $code[4][0]=25; $code[4][1]=28; $code[4][2]=30; $code[4][3]=33; $code[4][4]=56;$code[4][5]= 60; $code[4][6]=16; $code[4][7]=47; $code[4][8]=30; $code[4][9]=24; $code[5][0]=90; $code[5][1]=82; $code[5][2]=17; $code[5][3]=81; $code[5][4]=28;$code[5][5]= 43; $code[5][6]=16; $code[5][7]=47; $code[5][8]=30; $code[5][9]=24; $code[6][0]=48; $code[6][1]=37; $code[6][2]=83; $code[6][3]=75; $code[6][4]=15;$code[6][5]= 51; $code[6][6]=16; $code[6][7]=47; $code[6][8]=30; $code[6][9]=24; $code[7][0]=73; $code[7][1]=39; $code[7][2]=34; $code[7][3]=42; $code[7][4]=44;$code[7][5]= 80; $code[7][6]=16; $code[7][7]=47; $code[7][8]=30; $code[7][9]=24; $code[8][0]=42; $code[8][1]=51; $code[8][2]=36; $code[8][3]=88; $code[8][4]=29;$code[8][5]= 37; $code[8][6]=16; $code[8][7]=47; $code[8][8]=30; $code[8][9]=24; $code[9][0]=51; $code[9][1]=40; $code[9][2]=73; $code[9][3]=89; $code[9][4]=17;$code[9][5]= 39; $code[9][6]=16; $code[9][7]=47; $code[9][8]=30; $code[9][9]=24; if ($hdval == "ok" && $emailval == "ok" && $pacstr == "Stalker-"){ $summa=0; $kycode = rand (0,9); // $kycode = 7; // da attivare solo per prova for ($i=0;$i<$lung;$i++){ $mycode[$i] = $code[$kycode][$i] + $hd[$i]; } // $licenza = implode ("",$mycode); // per test for ($i=0;$i<$lung;$i++){ $mycoderev[$i] = $mycode[$lung-($i+1)] ; } // $licenza = implode ("",$mycoderev); // per test for ($i=0;$i<$lung;$i++){ if($i==1){ $soma[1]=($kycode*3)+47; // aggiunta finale } else { $soma[$i] = $mycode[$i] + $mycoderev[$i]; if (strlen($soma[$i]) == 2){$soma[$i]=$soma[$i];} if (strlen($soma[$i]) > 2) {$soma[$i]=substr($soma[$i], -2);} // $x[$i] = rand (0,9); // $res[$i]= $x[$i].$soma[$i]; } } // $licenza = implode ("",$res); $licenza = implode ("",$soma); $messagio = " Your Stalker License Run-Time License Number: $licenza "; mail($email, "Software License - Tau Sistemi", $messagio, "From: TauSistemi\nTo: $email\nReply-To: tau@cometacom.it"); $msg = " Ha richiesto la licenza: Nome: $nome Societa: $societa ID. Hard Disk: $hd Pac Number: $pac Mail: $email "; $to = "tau@cometacom.it"; mail($to, "Richiesta Licenza On-Line", $msg, "From: OnLineLicense\nTo: tau@cometacom.it\nReply-To: tau@cometacom.it"); echo "         Thank you! Your Run-Time License was sent via e-mail at the address you supplied.

"; } } ?>