Online Highscores

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|617\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Article Home -> Website Information

Jayenkai	Created : 22 August 2008 Edited : 02 October 2008 Online Highscores How they work, and how to work them.
To create an online scoreboard for your own games. Step 1. Create a scoreboard. Click here, stick in the details, submit. Step 2. Download this example. Use the Highscores.bb file from it, and include it into your code. You can also read through and try out the example... That's why it's there, after all! Step 3 Define the following five globals at the top of your code. Global HighscoreTable_GameID=14 ; Which Highscore table we're using. Global HighscoreTable_Password$="Hungry Hungry Hippos" ;<--The password defined in it's admin page. Global HighscoreTable_EncryptionPasses=24 ; The number of passes, also defined in the table's admin page. Global HighscoreTable_MessageOfTheDay$="" ; If there's a MOTD, it'll be in here after you've done your online check. Global Returned_Table$="" ; And use this to dump the table into.. --v These should point to the table's number, password, and encryption passes that you defined within it's settings. (The number's in the board's url!) They'll also hold the table and MOTD if you have one. Step 4 Give each player a (roughly!) unique number, and then try to keep hold of it for future reference! Global MyUserNum=GetNewUser() --v You'll want to save this number somewhere safe, along with the player's highscore, and things like that. You can use the Encrypt(Txt$,Hashkey$) and Decrypt(txt$,Hashkey$) functions to keep things relatively secure in your save files. The point of this number is to (hopefully!) stop a single player from flooding the scoreboards. It should do the trick, but if not, you can easily edit the current board using it's edit page. Step 5 When ready, retrieve the scoreboard. Returned_Table$=SubmitHighscores$(MyName$+"\|"+MyUserNum+"\|"+Highscore) --v The Returned string will be a "\|" seperated list of names and scores. You can use the SplitText() function to split this up. (See the included example for more details) Notes Try not to overdo the connecting stuff. If you make it a "Click here to check online" thing, then it'll help to stop Socoder from getting overwhelmed! Also, if your scoreboard goes overboard (I'll be checking!) I might have to stop you from using it! There's some kind of super-weird issue with spaces inside the encrypt/decrypt function, when you save/load data. Probably best not to let the player use any!

Comments
Saturday, 23 August 2008, 07:36
flying_cucco	A cobra version, with some changes. The network code and parser rewritten, SplitText dropped in favour of a linked list table, and player ID generation has been simplified. \|edit\| Encrypt/Decrypt port provided by Hoboben and now working (thanks!) \|edit\| Highscores.cps unit uses pure2d const SERVER = "www.socoder.net" URL = "https://www.socoder.net/soscoreme.php?gameid=" TIMEOUT = 2000 type highscores_column = record value :string endtype ;export type highscores_row = record name :string scores :list of highscores_column endtype ;export var highscores_id :integer ;export highscores_password :string ;export highscores_table :list of highscores_row ;export function SubmitHighscores(name :string, score :string) :string ;export // * Send the scores to the server // * // * name = Player name (ID is Random) // * score = player scores. for more than one column, separate values with "\|" var tcp : element send : string table : string time : integer begin //open connection to scoreboard server tcp := CreateClient(PROT_TCP, SERVER, 80) OpenConnection(tcp) //wait for connection while ConnectionState(tcp) <> NETSTATE_CONNECTED Flip //check for error if (ConnectionState(tcp) = NETSTATE_INVALID) or (ConnectionState(tcp) = NETSTATE_CLOSED) then result := "N/A" exit endif wend //send scores send := Now xor (Rand(0, $FF) shl 20) send := Encrypt(name + "\|" + send + "\|" + score, highscores_password) NetSend(tcp, "GET " + URL + highscores_id + "&info=" + send + " HTTP/1.0" + Chr(13) + Chr(10)) NetSend(tcp, "Host: " + SERVER + Chr(13) + Chr(10)) NetSend(tcp, "User-Agent: Cobra" + Chr(13) + Chr(10)) NetSend(tcp, Chr(13) + Chr(10)) //wait for reply time := Millisecs while MsgDataAvailable(tcp) = 0 Flip //check for timeout if time < Millisecs-TIMEOUT then result := "N/A" exit endif wend //read table table := NetRecv(tcp) //disconnect CloseConnection(tcp) FreeConnection(tcp) //parse table table := Mid(table, Instr(table, Chr(13) + Chr(10) + Chr(13) + Chr(10)) + 4) result := Decrypt(table, highscores_password) end Function Encrypt(txt : String, pass : String) : String// ; Export { Takes txt$ - ABC and Pass$ - 123 Plucks ascii value of one of the letters of Pass, and moves ABC that much.. ie, Moves to BCA adds the ascii value of the chrs of 123 to the ascii value of BCA } Var out, tout : String = "" move, newpos : Integer n, v : Integer Begin If (txt = "") or (pass = "") then result = "" Exit Endif // Wrap output by x chrs. move = (Asc(Mid(pass,(Length(txt) Mod Length(pass))+1 ,1)) Mod Length(txt)) For n = 1 To Length(txt) newpos = (((n-1)+move) Mod Length(txt))+1 tout = tout + Mid(txt, newpos, 1) Next // Add ascii of pass to ascii of txt For n = 1 To Length(txt) v = Asc(Mid(tout,n,1))-32 v = (v + (Asc(Mid(pass,(n Mod Length(pass))+1,1 ))-32) ) Mod 95 out = out + Chr(v+32) Next out = Replace(out,"&",Chr(129),FALSE) out = Replace(out,"?",Chr(130),FALSE) out = Replace(out,"+",Chr(131),FALSE) out = Replace(out,"\",Chr(132),FALSE) out = Replace(out,":",Chr(133),FALSE) out = Replace(out,"/",Chr(134),FALSE) out = Replace(out,"#",Chr(135),FALSE) out = Replace(out,"'",Chr(136),FALSE) out = Replace(out,Chr(34),Chr(137),FALSE) out = Replace(out,Chr(32),Chr(138),FALSE) out = Replace(out,"<",Chr(139),FALSE) out = Replace(out,">",Chr(140),FALSE) out = Replace(out,"%",Chr(141),FALSE) Result = out End Function Decrypt(txt : String, pass : String) : String// ; Export { Encrypt's opposite } Var out, tout : String = "" move, newpos : Integer n, v : Integer Begin If (txt = "") or (pass = "") then result = "" Exit Endif txt = Replace(txt,Chr(129),"&",FALSE) txt = Replace(txt,Chr(130),"?",FALSE) txt = Replace(txt,Chr(131),"+",FALSE) txt = Replace(txt,Chr(132),"\",FALSE) txt = Replace(txt,Chr(133),":",FALSE) txt = Replace(txt,Chr(134),"/",FALSE) txt = Replace(txt,Chr(135),"#",FALSE) txt = Replace(txt,Chr(136),"'",FALSE) txt = Replace(txt,Chr(137),Chr(34),FALSE) txt = Replace(txt,Chr(138),Chr(32),FALSE) txt = Replace(txt,Chr(139),"<",FALSE) txt = Replace(txt,Chr(140),">",FALSE) txt = Replace(txt,Chr(141),"%",FALSE) // Subtract ascii of pass to ascii of txt For n = 1 To Length(txt) v = Asc(Mid(txt,n,1))-32 v = ((v+95) - (Asc(Mid(pass,(n Mod Length(pass))+1,1 ))-32) ) Mod 95 tout= tout + Chr(v+32) Next // Unwrap output by x chrs. move = (Asc(Mid(pass,(Length(txt) Mod Length(pass))+1 ,1)) Mod Length(txt)) For n = 1 To Length(txt) newpos = ((((n+Length(txt))-1)-move) Mod Length(txt))+1 out = out + Mid(tout,newpos,1) Next Result = out End procedure TabulateHighscores(packed :string, columns :integer) ;export // * Makes a nice linked list "table" from the packed data. // * // * packed = decrypted, packed table data // * columns = number of score columns per row (not including player name) var i,j :integer c :integer rp :^highscores_row cp :^highscores_column cell :string begin //clear old table loop rp through highscores_table loop cp through rp.scores free(cp) endloop free(rp) endloop //parse packed table repeat //get cell j := Instr(packed, "\|", i + 1) cell := Mid(packed, i + 1, j - i - 1) if c = 0 then //new row rp := newitem(highscores_table) rp.name := cell c := columns else //new column cp := newitem(rp.scores) cp.value := cell dec(c) endif i := j until j = 0 end begin end --v Test.cps program uses Pure2D, HighScores var rp :^highscores_row cp :^highscores_column table :string begin Randomize OpenScreen highscores_id:=9 highscores_password:="asdf" table := SubmitHighscores("cucco"+ToHex(Rand($FFFF),4), Rand($FFFF)) debugmsg("table: "+table) if table<>"N/A" then TabulateHighscores(table,1) loop rp through highscores_table loop cp through rp.scores debugmsg(rp.name+": "+cp.value) endloop endloop else debugmsg("Connection Error!") endif end --v
Saturday, 23 August 2008, 07:49
Tikihead	Well this should make Wednesday Workshops and such a bit more fun. Nice, Jay.
Saturday, 23 August 2008, 12:16
HoboBen	Nice one, cucco! Hey Jay - is there a way to delete scoreboards? Mine is messed up!
Saturday, 23 August 2008, 14:51
Jayenkai	Yeah, I can delete them for you, don't worry. Well done Cucco, assuming that works, can't tell. I was very very very very tempted to buy a copy of Cobra, yesterday, but you did it for me, so no need now (PHP Version, Updated to Method 1 Encryption) function Encrypt2($txt,$pass,$EncryptionPasses) { $checksum=0; For ($n=0;$n<strlen($txt);$n++) { $checksum=($checksum+ord($txt[$n])) % 65535; } $txt=$txt.strtoupper(substr("0000".dechex($checksum),-4)); //echo $txt.'<br>'; $txt=XorEncrypt($txt); $origpass=$pass; for ($passes=$EncryptionPasses;$passes>0;$passes--) { $pass=$origpass; for ($n=1;$n<$passes+1;$n++) { $pass=substr($pass.XorEncrypt($pass),-128); } $out=""; $move=(ord(substr($pass,((strlen($txt)+($passes3)) % strlen($pass)) ,1)) % strlen($txt)); for ($n=0;$n<strlen($txt);$n++) { $newpos=(((($n+strlen($txt)))+$move) % strlen($txt)); $out=$out.substr($txt,$newpos,1); } $txt=$out; $tout=""; for ($n=0;$n<strlen($txt);$n++) { $v=ord($txt[$n]); $v=(($v) + (ord($pass[((($n+1)+($passes7)) % strlen($pass))] ) ) ) % 256; $tout=$tout.chr($v); } $txt=$tout; $txt=XorEncrypt($tout); //echo 'Pass '.$passes.' : '.$txt.'<br>'; } $out=""; for ($n=0;$n<strlen($txt);$n++) { $out=$out.strtoupper(substr("0000".dechex(ord($txt[$n])),-2)); } return $out; } function Decrypt2($txt,$pass,$EncryptionPasses) { //echo $txt.':'.$pass.':'.$EncryptionPasses; $out=$txt; $txt=""; for ($n=0;$n<strlen($out);$n=$n+2) { $txt=$txt.chr(hexdec($out[$n].$out[$n+1])); } for ($passes=1;$passes<$EncryptionPasses+1;$passes++) { $pass=substr($pass.XorEncrypt($pass),-128); $txt=XorDecrypt($txt); $tout=""; for ($n=0;$n<strlen($txt);$n++) { $v=ord($txt[$n]); $v=(($v+256) - (ord($pass[((($n+1)+($passes7)) % strlen($pass))] ) ) ) % 256; $tout=$tout.chr($v); } $txt=$tout; $out=""; $move=(ord(substr($pass,((strlen($txt)+($passes3)) % strlen($pass)) ,1)) % strlen($txt)); for ($n=0;$n<strlen($txt);$n++) { $newpos=(((($n+strlen($txt)))-$move) % strlen($txt)); $out=$out.substr($txt,$newpos,1); } //echo 'Pass '.$passes.' : '.$out.'<br>'; $txt=$out; } $out=XorDecrypt($out); $mycheck=strtoupper(substr($out,-4)); $out=substr($out,0,strlen($out)-4); $checksum=0; For ($n=0;$n<strlen($out);$n++) { $checksum=($checksum+ord($out[$n])) % 65535; } If (!(strtoupper(substr("0000".dechex($checksum),-4))==$mycheck)) {$out="";} return $out; } Function XorEncrypt($in){ For ($n=0;$n<strlen($in);$n++) { //; Each chr //;Take the value $Inval=ord($in[$n]); //;Take the next value $Stepval=ord($in[(($n+2) % strlen($in))]); If ( (((($n+1)+$Stepval) % strlen($in)))==$n) {$Stepval++;} //; Use that value to find our xor value. $Xorval=ord($in[((($n+1)+$Stepval) % strlen($in))]); $Newval=$Inval ^ $Xorval; $temp=$in; $in=""; If ($n>0) {$in=substr($temp,0,$n);} $in=$in.chr($Newval); If ($n<strlen($temp)-1) {$in=$in.substr($temp,$n+1,strlen($temp));} } Return $in; } Function XorDecrypt($in){ //This is the same, but backwards... For ($n=strlen($in)-1;$n>-1;$n--) { //; Each chr //;Take the value $Inval=ord($in[$n]); //;Take the next value $Stepval=ord($in[(($n+2) % strlen($in))]); If ( (((($n+1)+$Stepval) % strlen($in)))==$n) {$Stepval++;} //; Use that value to find our xor value. $Xorval=ord($in[((($n+1)+$Stepval) % strlen($in))]); $Newval=$Inval ^ $Xorval; $temp=$in; $in=""; If ($n>0) {$in=substr($temp,0,$n);} $in=$in.chr($Newval); If ($n<strlen($temp)-1) {$in=$in.substr($temp,$n+1,strlen($temp));} } Return $in; } --v That should* be a nice working PHP version of the basic encrypt/decrypt stuff. If you'd like to use that to create your own scoreboard script, or whatever, then feel free. (Not that you have to, of course!) * It's mostly a copy+paste, but I had the two functions using global variables, writing to them, and returning int variables instead of the strings.. So, I might've messed up in the tweaking! It's untested! \|edit\| Although, Hobo, you can EDIT the scoreboard, and empty the text box that contains the scores..!.. or.. you should be able to, anyway! \|edit\|
Sunday, 24 August 2008, 09:03
JL235	I'll take a look at making a Java port.
Friday, 05 September 2008, 04:40
Jayenkai	To get the scoreboards working in BlitzMax, throw in these functions. (Updated to work with Encryption Method 1) Works in exactly the same way as the BB example, so you still use the same globals and SubmitHighscores(Name+"\|"+Number+"\|"+Score) setup to send and receive things.. Function SplitText$(in$,Split$,e,alsospace=1) 'Splits text... Local out:String="" Local start:Int=1 Local nomore:Int=0 Local shift:Int Local size:Int in:String=Trim(in) e=e-1 For shift=1 To e If Instr(in$,Split$,start)+1<=nstart Then nomore=1 If Instr(in$,Split$,start)+1>nstart Then nstart=Instr(in$,Split$,start)+1 If AlsoSpace=1 Then If Instr(in$," ",start)+1<nstart And Instr(in$," ",start)>0 Then nstart=Instr(in$," ",start)+1 start=nstart Next size=(Instr(in$,Split$,start))-start If AlsoSpace=1 Then If (Instr(in$," ",start))-start<size And Instr(in$," ",start)>0 Then size=(Instr(in$," ",start))-start out$=Mid$(in$,start,size) If nomore=1 Then out$="-+-" Return out End Function Function GetNewUser() ' This should give you a nice big random number. ' The chances of 2 people getting the same number are ... ... slim.. ish! ' Same usernumbers overwrite each other on the scoreboard. Local out SeedRnd MilliSecs()100 out=MilliSecs() out=out+Rand(37171650) Local time$=CurrentTime() time$=Replace(time$,":","") out=out+Int(time$) time$=Left$(CurrentDate(),2)+Right$(CurrentDate(),4) out=out-Int(time$) If out=0 Then out=Rand(37171650) Return Abs(out) End Function Function SubmitHighscores$(txt$) 'Submits a nicely formatted highscore String To the site, And returns a similarly nicely formatted highscore table! 'Wootsocks! Local send$="" Local sendy$="" Local temp$,out$,in$,lastin$ sendy$=encrypt$(txt$,HighscoreTable_Password$,HighscoreTable_Passes) ' Encrypt everything. send$=sendy$ ' Send.. Local http:THTTP = New THTTP If http.Open("www.socoder.net") Returned$=http.Get("soscoreme.php?gameid="+HighscoreTable_GameID+"&info="+send$) EndIf http.Close() Local tag=0 ' Get the reply n=0 Repeat HighscoreTable_MessageOfTheDay$=lastin$ lastin$=in$ in$=splittext(Returned,"~n",n,0) y=y+12;n=n+1 ' DebugLog in$ Until in="-+-" 'Done ' The returned highscore table is also encrypted, so we decrypt it before returning.. If lastin$<>"" Then Return decrypt$(lastin$,HighscoreTable_Password$,HighscoreTable_Passes) End Function Function Encrypt$(txt$,Pass$,EncryptionPasses=12,mode=1) If txt$="" Or pass$="" Then Return "" ' Takes txt$ - ABC and Pass$ - 123 ' ' Plucks ascii value of one of the letters of Pass, and moves ABC that much.. ' ie, Moves to BCA ' adds the ascii value of the chrs of 123 to the ascii value of BCA ' ' = TVR Local tout$="" Local out$="" Local origpass$ Local move Local n Local v 'Add ascii of pass$ to ascii of txt$ If mode=0 'Wrap output by x chrs. move=(Asc(Mid$(pass$,(Len(txt$) Mod Len(pass$))+1 ,1)) Mod (Len(txt$))) For n=1 To Len(txt$) newpos=(((n-1)+move) Mod Len(txt$))+1 tout$=tout$+Mid$(txt$,newpos,1) Next For n=1 To Len(txt$) v=Asc(Mid$(tout$,n,1))-32 v=(v+ (Asc(Mid$(pass$,(n Mod Len(pass$))+1,1 ))-32) ) Mod 95 out$=out$+Chr$(v+32) Next out$=Replace$(out$,"&",Chr$(129)) out$=Replace$(out$,"?",Chr$(130)) out$=Replace$(out$,"+",Chr$(131)) out$=Replace$(out$,"\",Chr$(132)) out$=Replace$(out$,":",Chr$(133)) out$=Replace$(out$,"/",Chr$(134)) out$=Replace$(out$,"#",Chr$(135)) out$=Replace$(out$,"'",Chr$(136)) out$=Replace$(out$,Chr$(34),Chr$(137)) out$=Replace$(out$,Chr$(32),Chr$(138)) out$=Replace$(out$,"<",Chr$(139)) out$=Replace$(out$,">",Chr$(140)) out$=Replace$(out$,"%",Chr$(141)) EndIf If mode=1 Checksum=0 For n=1 To Len(txt$) checksum=(checksum+Asc(Mid$(txt$,n,1))) Mod 65535 Next txt$=txt$+Right$(Hex$(checksum),4) txt$=XorEncrypt$(txt$) origpass$=pass$ For passes=EncryptionPasses To 1 Step -1 pass$=origpass$ ' Scramble the key For n=1 To passes pass$=Right$(pass$+xorencrypt(pass$),128) Next tout$="" 'Wrap output by x chrs. move=(Asc(Mid$(pass$,((Len(txt$)+(passes3)) Mod (Len(pass$)))+1 ,1)) Mod (Len(txt$))) For n=1 To Len(txt$) newpos=(((n-1)+move) Mod Len(txt$))+1 tout$=tout$+Mid$(txt$,newpos,1) Next 'Wrap ASCII out$="" For n=1 To Len(txt$) v=Asc(Mid$(tout$,n,1)) v=(v+ (Asc(Mid$(pass$,((n +(passes7)) Mod Len(pass$))+1,1 ))) ) Mod 256 out$=out$+Chr$(v) Next 'Xor txt$=XorEncrypt$(out$) ' DebugLog passes+":"+txt$ Next out$="" For n=1 To Len(txt$) out$=out$+Right$(Hex$(Asc(Mid$(txt$,n,1))),2) Next EndIf Return out$ End Function Function Decrypt$(txt$,Pass$,EncryptionPasses=12,Mode=1) If txt$="" Or pass$="" Then Return "" ' Undoes what Encrypt did! Local tout$="" Local out$="" Local move Local n Local v If mode=0 txt$=Replace$(txt$,Chr$(129),"&") txt$=Replace$(txt$,Chr$(130),"?") txt$=Replace$(txt$,Chr$(131),"+") txt$=Replace$(txt$,Chr$(132),"\") txt$=Replace$(txt$,Chr$(133),":") txt$=Replace$(txt$,Chr$(134),"/") txt$=Replace$(txt$,Chr$(135),"#") txt$=Replace$(txt$,Chr$(136),"'") txt$=Replace$(txt$,Chr$(137),Chr$(34)) txt$=Replace$(txt$,Chr$(138),Chr$(32)) txt$=Replace$(txt$,Chr$(139),"<") txt$=Replace$(txt$,Chr$(140),">") txt$=Replace$(txt$,Chr$(141),"%") 'Subtract ascii of pass$ to ascii of txt$ For n=1 To Len(txt$) v=Asc(Mid$(txt$,n,1))-32 v=((v+256) - (Asc(Mid$(pass$,(n Mod Len(pass$))+1,1 ))-32) ) Mod 95 tout$=tout$+Chr$(v+32) Next 'Unwrap output by x chrs. move=(Asc(Mid$(pass$,(Len(txt$) Mod Len(pass$))+1 ,1)) Mod Len(txt$)) For n=1 To Len(txt$) newpos=((((n+Len(txt$))-1)-move) Mod Len(txt$))+1 out$=out$+Mid$(tout$,newpos,1) Next EndIf If mode=1 hexval$=txt$ txt$="" For n=1 To Len(hexval$) Step 2 txt$=txt$+Chr$(Hex2Int(Mid$( hexval$,n,2)) ) Next For passes=1 To EncryptionPasses ' Scramble the key pass$=Right$(pass$+xorencrypt(pass$),128) ' Xor txt$=XorDecrypt(txt$) ' Wrap Ascii tout$="" For n=1 To Len(txt$) v=Asc(Mid$(txt$,n,1)) v=((v+256) - (Asc(Mid$(pass$,((n +(passes7) )Mod Len(pass$))+1,1 )) ) ) Mod 256 tout$=tout$+Chr$(v) Next txt$=tout$ 'Unwrap output by x chrs. out$="" move=(Asc(Mid$(pass$,((Len(txt$)+(passes*3)) Mod (Len(pass$)))+1 ,1)) Mod Len(txt$)) For n=1 To Len(txt$) newpos=((((n+Len(txt$))-1)-move) Mod Len(txt$))+1 out$=out$+Mid$(tout$,newpos,1) Next txt$=out$ Next out$=XorDecrypt$(out$) Checksum=0 mycheck$=Right$(out$,4) out$=Left$(out$,Len(out$)-4) For n=1 To Len(out$) checksum=(checksum+Asc(Mid$(out$,n,1))) Mod 65535 Next If Right$(Hex$(checksum),4)<>mycheck Then out$="" EndIf Return out$ End Function Function Hex2Int(hx$) out=0 For n=1 To Len(hx$) out=out Shl 4 letr$=Mid$(hx$,n,1) Select letr$ Case "A" val=10 Case "B" val=11 Case "C" val=12 Case "D" val=13 Case "E" val=14 Case "F" val=15 Default val=Int(letr$) End Select out=out+val Next Return out End Function Function XorEncrypt$(in$) out$="" For n=1 To Len(in$) ' Each chr 'Take the value Inval=Asc(Mid$(in$,n,1)) 'Take the next value Stepval=Asc(Mid$(in$,((n+1) Mod Len(in$))+1,1)) ' We use mod to ensure it doesn't go over the end of the chrs. If (((n+Stepval) Mod Len(in$))+1)=n Then Stepval=Stepval+1 ' And also ensure we don't hit the same letter! ' Use that value to find our xor value. Xorval=Asc(Mid$(in$,((n+Stepval) Mod Len(in$))+1,1)) 'Do the Xor Newval=Inval ~ Xorval 'Switch in the chr. temp$=in$ in$="" If n>1 Then in$=Left$(temp$,n-1) in$=in$+Chr$(Newval) If n<Len(temp$) Then in$=in$+Right$(temp$,Len(temp$)-(n)) Next Return in$ End Function Function XorDecrypt$(in$) 'This is the same, but backwards... For n=Len(in$) To 1 Step -1 ' Each chr 'Take the value Inval=Asc(Mid$(in$,n,1)) 'Take the next value Stepval=Asc(Mid$(in$,((n+1) Mod Len(in$))+1,1)) ' We use mod to ensure it doesn't go over the end of the chrs. If (((n+Stepval) Mod Len(in$))+1)=n Then Stepval=Stepval+1':If Stepval>Len(in$) Then Stepval=1 ' Use that value to find our xor value. Xorval=Asc(Mid$(in$,((n+Stepval) Mod Len(in$))+1,1)) Newval=Inval ~ Xorval temp$=in$ in$="" If n>1 Then in$=Left$(temp$,n-1) in$=in$+Chr$(Newval) If n<Len(temp$) Then in$=in$+Right$(temp$,Len(temp$)-(n)) Next Return in$ End Function '- Nicked from BB.com! Dum-dum-durrrr 'Under HTTP/1.1 all connections are kept alive by default unless stated otherwise with the 'following header: "Connection: close" 'Therefore it is important to use HTTP/1.0! we do not want our socket to freeze and timeout Type Thttp Field sock:TSocket Field stream:TStream Field host:String Field agent:String = "BlitzThttp/1.0" Field autoClose:Int Method Open:Int(host:String, autoClose:Int = False) Self.sock = CreateTCPSocket() If ConnectSocket(Self.sock, HostIp(host), 80) Self.host = host Self.stream = CreateSocketStream(Self.sock) Self.autoClose = autoClose Return True Else Return False End If End Method Method Get:String(get:String = "") Local buffer:String WriteLine(stream, "GET /" + get + " HTTP/1.0~nHost: " + Self.host + "~nUser-Agent: " + Self.agent + "~n~n") While Not Eof(stream) buffer:+ReadLine(stream) + "~n" Wend If autoClose Close() Return Left(buffer, Len(buffer) - 1) End Method Method Post:String(page:String = "", keys:String[] , values:String[] ) Local buffer:String Local data:String Local i:Int For i = 0 To keys.Length - 1 data:+UrlEncode(keys[i] ) + "=" + UrlEncode(values[i] ) + "&" Next data = Left(data, Len(data) - 1) WriteLine(stream, "POST /" + page + " HTTP/1.0~nHost: " + Self.host + "~nUser-Agent: " + Self.agent + "~nContent-Length: " + Len(data) + "~nContent-Type: application/x-www-form-urlencoded~n~n" + data) While Not Eof(stream) buffer:+ReadLine(stream) + "~n" Wend If autoClose Close() Return Left(buffer, Len(buffer) - 1) End Method Method Close() If Self.stream CloseStream(Self.stream) If Self.sock CloseSocket(Self.sock) End Method Function UrlEncode:String(url:String) Local buffer:String Local Char:Int Local i:Int For i = 1 To Len(url) Char = Asc(Mid(url, i, 1)) If(Char >= 48 And Char <= 57) Or (Char >= 65 And Char <= 90) Or (Char >= 97 And Char <= 122) Or Char = 43 Or Char = 45 Or Char = 46 Or Char = 95 buffer = buffer + Chr(Char) Else buffer = buffer + "%" + Right(Hex(Char), 2) End If Next Return buffer End Function Function UrlDecode:String(url:String) Local sHex:String = "0123456789ABCDEF" Local buffer:String Local i:Int For i = 1 To Len(url) If Mid(url, i, 1) = "%"Then buffer = buffer + Chr(Instr(sHex, Mid(url, i + 1, 1)) Shl 4 + Instr(sHex, Mid(url, i + 2, 1)) - 17) i:+2 Else buffer = buffer + Mid(url, i, 1) End If Next Return buffer End Function End Type --v I've included the bit of code from the BB.com code snippets, purely because it actually works!
Thursday, 02 October 2008, 07:15
Jayenkai	OK, Whole thing rejiggered for extra encryption. The topmost download now contains an updated edition of the highscores.bb file, and it's functions with smush data much more cryptically! I've also updated the PHP and BlitzMax code posts to work with the new versions. Cucco and Hobo can fight over who does the Cobra one, 'cos I haven't a clue what I'm doing in that!

Online Highscores

Comments