<? $databasehost = "localhost"; $databasename = "xxxx"; $databaseusername ="xxxx"; $databasepassword = "xxxx"; $con = mysql_connect($databasehost,$databaseusername,$databasepassword) or die(mysql_error()); mysql_select_db($databasename) or die(mysql_error()); $query = file_get_contents("php://input"); $sth = mysql_query($query); if (mysql_errno()) { header("HTTP/1.1 500 Internal Server Error"); echo $query.'\n'; echo mysql_error(); } else { $rows = array(); while($r = mysql_fetch_assoc($sth)) { $rows[] = $r; } print json_encode($rows); } ?>
al = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z") x = Text1.Text key = Text2.Text Text2.Text = " " Call streamkey(key) For i = 1 To Len(x) m = UCase(Mid(x, i, 1)) n = UCase(Mid(key, i, 1)) For j = 0 To 25 If (m = al(j)) Then f = j End If Next j For k = 0 To 25 If (n = al(k)) Then g = k End If Next k a = (f + g) Mod 26 t = t & al(a) Next i Text2.Text = key Text3.Text = t End Sub Private Sub streamkey(key) For i = 1 To Abs(Len(Text1.Text) - Len(key)) c = Mid(key, i, 1) If (Len(key) <= Len(Text1.Text)) Then key = key & c End If Next i If (Len(key) > Len(Text1.Text)) Then key = Mid(key, i, Len(Text1.Text)) End If
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)