Magic Cube

///////////////////////////////////////////////////////////////////////////////////////////////////

// Copyright 2019 Leszek Koltunski                                                               //

//                                                                                               //

// This file is part of Magic Cube.                                                              //

//                                                                                               //

// Magic Cube is free software: you can redistribute it and/or modify                            //

// it under the terms of the GNU General Public License as published by                          //

// the Free Software Foundation, either version 2 of the License, or                             //

// (at your option) any later version.                                                           //

//                                                                                               //

// Magic Cube is distributed in the hope that it will be useful,                                 //

// but WITHOUT ANY WARRANTY; without even the implied warranty of                                //

// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the                                 //

// GNU General Public License for more details.                                                  //

//                                                                                               //

// You should have received a copy of the GNU General Public License                             //

// along with Magic Cube.  If not, see <http://www.gnu.org/licenses/>.                           //

///////////////////////////////////////////////////////////////////////////////////////////////////

package org.distorted.network;

import java.io.InputStream;

import java.net.HttpURLConnection;

import java.net.URL;

import java.net.UnknownHostException;

import java.security.MessageDigest;

import java.security.NoSuchAlgorithmException;

import android.app.Activity;

import android.content.pm.PackageInfo;

import android.content.pm.PackageManager;

import androidx.appcompat.app.AppCompatActivity;

import androidx.fragment.app.FragmentActivity;

import org.distorted.library.main.DistortedLibrary;

import org.distorted.objects.RubikObject;

import org.distorted.objects.RubikObjectList;

import static org.distorted.objects.RubikObjectList.MAX_LEVEL;

///////////////////////////////////////////////////////////////////////////////////////////////////

public class RubikNetwork implements Runnable

  {

  public interface Receiver

    {

    void receive(String[][][] country, String[][][] name, float[][][] time);

    void message(String mess);

    void error(String error);

    }

  public static final int MAX_PLACES = 10;

  private static final int DOWNLOAD   = 0;

  private static final int SUBMIT     = 1;

  private static final int DEBUG      = 2;

  private static final int IDLE       = 3;

  private static final int REND_ADRENO= 0;

  private static final int REND_MALI  = 1;

  private static final int REND_POWER = 2;

  private static final int REND_OTHER = 3;

  private final String[] hex = {

    "%00", "%01", "%02", "%03", "%04", "%05", "%06", "%07",

    "%08", "%09", "%0a", "%0b", "%0c", "%0d", "%0e", "%0f",

    "%10", "%11", "%12", "%13", "%14", "%15", "%16", "%17",

    "%18", "%19", "%1a", "%1b", "%1c", "%1d", "%1e", "%1f",

    "%20", "%21", "%22", "%23", "%24", "%25", "%26", "%27",

    "%28", "%29", "%2a", "%2b", "%2c", "%2d", "%2e", "%2f",

    "%30", "%31", "%32", "%33", "%34", "%35", "%36", "%37",

    "%38", "%39", "%3a", "%3b", "%3c", "%3d", "%3e", "%3f",

    "%40", "%41", "%42", "%43", "%44", "%45", "%46", "%47",

    "%48", "%49", "%4a", "%4b", "%4c", "%4d", "%4e", "%4f",

    "%50", "%51", "%52", "%53", "%54", "%55", "%56", "%57",

    "%58", "%59", "%5a", "%5b", "%5c", "%5d", "%5e", "%5f",

    "%60", "%61", "%62", "%63", "%64", "%65", "%66", "%67",

    "%68", "%69", "%6a", "%6b", "%6c", "%6d", "%6e", "%6f",

    "%70", "%71", "%72", "%73", "%74", "%75", "%76", "%77",

    "%78", "%79", "%7a", "%7b", "%7c", "%7d", "%7e", "%7f",

    "%80", "%81", "%82", "%83", "%84", "%85", "%86", "%87",

    "%88", "%89", "%8a", "%8b", "%8c", "%8d", "%8e", "%8f",

    "%90", "%91", "%92", "%93", "%94", "%95", "%96", "%97",

    "%98", "%99", "%9a", "%9b", "%9c", "%9d", "%9e", "%9f",

    "%a0", "%a1", "%a2", "%a3", "%a4", "%a5", "%a6", "%a7",

    "%a8", "%a9", "%aa", "%ab", "%ac", "%ad", "%ae", "%af",

    "%b0", "%b1", "%b2", "%b3", "%b4", "%b5", "%b6", "%b7",

    "%b8", "%b9", "%ba", "%bb", "%bc", "%bd", "%be", "%bf",

    "%c0", "%c1", "%c2", "%c3", "%c4", "%c5", "%c6", "%c7",

    "%c8", "%c9", "%ca", "%cb", "%cc", "%cd", "%ce", "%cf",

    "%d0", "%d1", "%d2", "%d3", "%d4", "%d5", "%d6", "%d7",

    "%d8", "%d9", "%da", "%db", "%dc", "%dd", "%de", "%df",

    "%e0", "%e1", "%e2", "%e3", "%e4", "%e5", "%e6", "%e7",

    "%e8", "%e9", "%ea", "%eb", "%ec", "%ed", "%ee", "%ef",

    "%f0", "%f1", "%f2", "%f3", "%f4", "%f5", "%f6", "%f7",

    "%f8", "%f9", "%fa", "%fb", "%fc", "%fd", "%fe", "%ff"

    };

  private static String[][][] mCountry;

  private static String[][][] mName;

  private static float[][][] mTime;

  private static int[][] mPlaces;

  private static RubikNetwork mThis;

  private static String mScores = "";

  private static boolean mRunning = false;

  private static int mMode = IDLE;

  private static Receiver mReceiver;

  private static String mVersion;

  private static int mNumObjects;

///////////////////////////////////////////////////////////////////////////////////////////////////

  private static void initializeStatics()

    {

    int newNum = RubikObjectList.getNumObjects();

    if( mCountry==null || newNum!=mNumObjects ) mCountry = new String[newNum][MAX_LEVEL][MAX_PLACES];

    if( mName==null    || newNum!=mNumObjects ) mName    = new String[newNum][MAX_LEVEL][MAX_PLACES];

    if( mTime==null    || newNum!=mNumObjects ) mTime    = new  float[newNum][MAX_LEVEL][MAX_PLACES];

    if( mPlaces==null  || newNum!=mNumObjects ) mPlaces  = new int[newNum][MAX_LEVEL];

    mNumObjects = newNum;

    }

///////////////////////////////////////////////////////////////////////////////////////////////////

  private static String computeHash(String stringToHash, byte[] salt)

    {

    String generatedPassword;

    try

      {

      MessageDigest md = MessageDigest.getInstance("MD5");

      md.update(salt);

      byte[] bytes = md.digest(stringToHash.getBytes());

      StringBuilder sb = new StringBuilder();

      for (byte aByte : bytes)

        {

        sb.append(Integer.toString((aByte & 0xff) + 0x100, 16).substring(1));

        }

      generatedPassword = sb.toString();

      }

    catch (NoSuchAlgorithmException e)

      {

      return "NoSuchAlgorithm";

      }

    return generatedPassword;

    }

///////////////////////////////////////////////////////////////////////////////////////////////////

  private boolean fillValues()

    {

    int begin=-1 ,end, len = mScores.length();

    String row;

    if( len==0 )

      {

      if( mReceiver!=null ) mReceiver.error("1");

      return false;

      }

    else if( len<=2 )

      {

      if( mReceiver!=null ) mReceiver.error(mScores);

      return false;

      }

    for(int i=0; i<mNumObjects; i++)

      for(int j=0; j<MAX_LEVEL; j++)

        {

        mPlaces[i][j] = 0;

        }

    while( begin<len )

      {

      end = mScores.indexOf('\n', begin+1);

      if( end<0 ) end = len;

      try

        {

        row = mScores.substring(begin+1,end);

        fillRow(row);

        }

      catch(Exception ex)

        {

        // faulty row - ignore

        }

      begin = end;

      }

    return true;

    }

///////////////////////////////////////////////////////////////////////////////////////////////////

  private void fillRow(String row)

    {

    int s1 = row.indexOf(' ');

    int s2 = row.indexOf(' ',s1+1);

    int s3 = row.indexOf(' ',s2+1);

    int s4 = row.indexOf(' ',s3+1);

    int s5 = row.length();

    if( s5>s4 && s4>s3 && s3>s2 && s2>s1 && s1>0 )

      {

      int object = RubikObjectList.getOrdinal( row.substring(0,s1) );

      if( object>=0 && object<mNumObjects )

        {

        int level      = Integer.parseInt( row.substring(s1+1,s2) );

        String name    = row.substring(s2+1, s3);

        int time       = Integer.parseInt( row.substring(s3+1,s4) );

        String country = row.substring(s4+1, s5);

        if( country.equals("do") ) country = "dm"; // see RubikScores.setCountry()

        if(level>=0 && level<MAX_LEVEL)

          {

          int p = mPlaces[object][level];

          mPlaces[object][level]++;

          mCountry[object][level][p] = country;

          mName   [object][level][p] = name;

          mTime   [object][level][p] = ((float)(time/10))/100.0f;

          }

        }

      }

    else

      {

      tryDoCommand(row);

      }

    }

///////////////////////////////////////////////////////////////////////////////////////////////////

  private void tryDoCommand(String row)

    {

    if( row.startsWith("comm") )

      {

      int colon = row.indexOf(':');

      if( colon>0 )

        {

        String commandNumber = row.substring(4,colon);

        int number;

        try

          {

          number = Integer.parseInt(commandNumber);

          }

        catch(NumberFormatException ex)

          {

          number=0;

          }

        if(number==1)

          {

          String country = row.substring(colon+1);

          RubikScores scores = RubikScores.getInstance();

          scores.setCountry(country);

          }

        }

      }

    }

///////////////////////////////////////////////////////////////////////////////////////////////////

  private int getRendererType(String renderer)

    {

    if( renderer.contains("Adreno")  ) return REND_ADRENO;

    if( renderer.contains("Mali")    ) return REND_MALI;

    if( renderer.contains("PowerVR") ) return REND_POWER;

    return REND_OTHER;

    }

///////////////////////////////////////////////////////////////////////////////////////////////////

  private String parseRenderer(final int type, String renderer)

    {

    if( type==REND_ADRENO || type==REND_POWER )

      {

      int lastSpace = renderer.lastIndexOf(' ');

      String ret = renderer.substring(lastSpace+1);

      return URLencode(ret);

      }

    if( type==REND_MALI )

      {

      int firstHyphen = renderer.indexOf('-');

      String ret = renderer.substring(firstHyphen+1);

      return URLencode(ret);

      }

    return "other";

    }

///////////////////////////////////////////////////////////////////////////////////////////////////

  private String parseVersion(final int type, String version)

    {

    switch(type)

      {

      case REND_ADRENO: int aMonkey = version.indexOf('@');

                        int aDot = version.indexOf('.', aMonkey);

                        String ret1 = aDot>=3 ? version.substring(aDot-3,aDot) : "";

                        return URLencode(ret1);

      case REND_MALI  : int mV1 = version.indexOf("v1");

                        int mHyphen = version.indexOf('-', mV1);

                        String ret2 = mHyphen>mV1+3 && mV1>=0 ? version.substring(mV1+3,mHyphen) : "";

                        return URLencode(ret2);

      case REND_POWER : int pMonkey = version.indexOf('@');

                        int pSpace  = version.lastIndexOf(' ');

                        String ret3 = pSpace>=0 && pMonkey>pSpace+1 ? version.substring(pSpace+1,pMonkey) : "";

                        return URLencode(ret3);

      default         : return "";

      }

    }

///////////////////////////////////////////////////////////////////////////////////////////////////

  private String URLencode(String s)

    {

    StringBuilder sbuf = new StringBuilder();

    int len = s.length();

    for (int i = 0; i < len; i++)

      {

      int ch = s.charAt(i);

           if ('A' <= ch && ch <= 'Z') sbuf.append((char)ch);

      else if ('a' <= ch && ch <= 'z') sbuf.append((char)ch);

      else if ('0' <= ch && ch <= '9') sbuf.append((char)ch);

      else if (ch == ' '             ) sbuf.append('+');

      else if (ch == '-' || ch == '_'

            || ch == '.' || ch == '!'

            || ch == '~' || ch == '*'

            || ch == '\'' || ch == '('

            || ch == ')'             ) sbuf.append((char)ch);

      else if (ch <= 0x007f)           sbuf.append(hex[ch]);

      else if (ch <= 0x07FF)

        {

        sbuf.append(hex[0xc0 | (ch >> 6)]);

        sbuf.append(hex[0x80 | (ch & 0x3F)]);

        }

      else

        {

        sbuf.append(hex[0xe0 | (ch >> 12)]);

        sbuf.append(hex[0x80 | ((ch >> 6) & 0x3F)]);

        sbuf.append(hex[0x80 | (ch & 0x3F)]);

        }

      }

    return sbuf.toString();

    }

///////////////////////////////////////////////////////////////////////////////////////////////////

  private void sendDebug()

    {

    String url = constructDebugURL();

    try

      {

      java.net.URL connectURL = new URL(url);

      HttpURLConnection conn = (HttpURLConnection)connectURL.openConnection();

      conn.setDoInput(true);

      conn.setDoOutput(true);

      conn.setUseCaches(false);

      conn.setRequestMethod("GET");

      conn.connect();

      conn.getOutputStream().flush();

      conn.getInputStream();

      }

    catch( final Exception e )

      {

      // ignore

      }

    }

///////////////////////////////////////////////////////////////////////////////////////////////////

  private boolean network(String url)

    {

    try

      {

      java.net.URL connectURL = new URL(url);

      HttpURLConnection conn = (HttpURLConnection)connectURL.openConnection();

      conn.setDoInput(true);

      conn.setDoOutput(true);

      conn.setUseCaches(false);

      conn.setRequestMethod("GET");

      conn.connect();

      conn.getOutputStream().flush();

      try( InputStream is = conn.getInputStream() )

        {

        int ch;

        StringBuilder sb = new StringBuilder();

        while( ( ch = is.read() ) != -1 )

          {

          sb.append( (char)ch );

          }

        mScores = sb.toString();

        }

      catch( final Exception e)

        {

        if( mReceiver!=null ) mReceiver.message("Failed to get an answer from the High Scores server");

        return false;

        }

      }

    catch( final UnknownHostException e )

      {

      if( mReceiver!=null ) mReceiver.message("No access to Internet");

      return false;

      }

    catch( final SecurityException e )

      {

      if( mReceiver!=null ) mReceiver.message("Application not authorized to connect to the Internet");

      return false;

      }

    catch( final Exception e )

      {

      if( mReceiver!=null ) mReceiver.message(e.getMessage());

      return false;

      }

    if( mScores.length()==0 )

      {

      if( mReceiver!=null ) mReceiver.message("Failed to download scores");

      return false;

      }

    return true;

    }

///////////////////////////////////////////////////////////////////////////////////////////////////

  private String constructDebugURL()

    {

    RubikScores scores = RubikScores.getInstance();

    String name = URLencode(scores.getName());

    int numRuns = scores.getNumRuns();

    int numPlay = scores.getNumPlays();

    String country = scores.getCountry();

    String renderer = DistortedLibrary.getDriverRenderer();

    String version  = DistortedLibrary.getDriverVersion();

    renderer = URLencode(renderer);

    version  = URLencode(version);

    String url="https://distorted.org/magic/cgi-bin/debugs.cgi";

    url += "?n="+name+"&r="+numRuns+"&p="+numPlay+"&c="+country+"&e="+mVersion+"d"+"&d="+renderer+"&v="+version;

    return url;

    }

///////////////////////////////////////////////////////////////////////////////////////////////////

  private static String getObjectList()

    {

    StringBuilder list = new StringBuilder();

    for(int i=0; i<mNumObjects; i++)

      {

      RubikObject object = RubikObjectList.getObject(i);

      if( object!=null )

        {

        if( i>0 ) list.append(',');

        list.append(object.getName());

        }

      }

    return list.toString();

    }

///////////////////////////////////////////////////////////////////////////////////////////////////

  private String constructDownloadURL()

    {

    RubikScores scores = RubikScores.getInstance();

    String name = URLencode(scores.getName());

    String veri = scores.isVerified() ? name : "";

    int numRuns = scores.getNumRuns();

    int numPlay = scores.getNumPlays();

    String country = scores.getCountry();

    String url="https://distorted.org/magic/cgi-bin/download.cgi";

    url += "?n="+name+"&v="+veri+"&r="+numRuns+"&p="+numPlay+"&c="+country+"&e="+mVersion+"d";

    url += "&o="+getObjectList()+"&min=0&max="+MAX_LEVEL+"&l="+MAX_PLACES;

    return url;

    }

///////////////////////////////////////////////////////////////////////////////////////////////////

  private String constructSubmitURL()

    {

    RubikScores scores = RubikScores.getInstance();

    String name = URLencode(scores.getName());

    String veri = scores.isVerified() ? name : "";

    int numRuns = scores.getNumRuns();

    int numPlay = scores.getNumPlays();

    int deviceID= scores.getDeviceID();

    String reclist = scores.getRecordList("&o=","&l=","&t=");

    String country = scores.getCountry();

    long epoch = System.currentTimeMillis();

    String salt = "cubold";

    String renderer = DistortedLibrary.getDriverRenderer();

    String version  = DistortedLibrary.getDriverVersion();

    int type = getRendererType(renderer);

    renderer = parseRenderer(type,renderer);

    version  = parseVersion(type,version);

    String url1="https://distorted.org/magic/cgi-bin/submit.cgi";

    String url2 = "n="+name+"&v="+veri+"&r="+numRuns+"&p="+numPlay+"&i="+deviceID+"&e="+mVersion+"d";

    url2 += "&d="+renderer+"&s="+version;

    url2 += reclist+"&c="+country+"&f="+epoch+"&oo="+getObjectList();

    url2 += "&min=0&max="+MAX_LEVEL+"&lo="+MAX_PLACES;

    String hash = computeHash( url2+"d", salt.getBytes() );

    return url1 + "?" + url2 + "&h=" + hash;

    }

///////////////////////////////////////////////////////////////////////////////////////////////////

  private boolean gottaDownload()

    {

    return ((mScores.length()==0) && !mRunning);

    }

///////////////////////////////////////////////////////////////////////////////////////////////////

  @Override

  public void run()

    {

    boolean receiveValues=true;

    initializeStatics();

    try

      {

      if( mMode==DOWNLOAD && gottaDownload() )

        {

        mRunning = true;

        receiveValues = network(constructDownloadURL());

        }

      if( mMode==SUBMIT )

        {

        mRunning = true;

        if( RubikScores.getInstance().thereAreUnsubmittedRecords() )

          {

          receiveValues = network(constructSubmitURL());

          }

        }

      if( mMode==DEBUG )

        {

        sendDebug();

        receiveValues = false;

        mRunning = false;

        }

      }

    catch( Exception e )

      {

      if( mReceiver!=null ) mReceiver.message("Exception downloading records: "+e.getMessage() );

      }

    if( mRunning )

      {

      receiveValues = fillValues();

      mRunning = false;

      }

    if( receiveValues )

      {

      if( mReceiver!=null ) mReceiver.receive(mCountry, mName, mTime);

      if( mMode==SUBMIT )

        {

        RubikScores.getInstance().successfulSubmit();

        }

      }

    }

///////////////////////////////////////////////////////////////////////////////////////////////////

  private RubikNetwork()

    {

    }

///////////////////////////////////////////////////////////////////////////////////////////////////

// PUBLIC API

///////////////////////////////////////////////////////////////////////////////////////////////////

  public static void onPause()

    {

    mRunning = false;

    }

///////////////////////////////////////////////////////////////////////////////////////////////////

  public static RubikNetwork getInstance()

    {

    if( mThis==null )

      {

      mThis = new RubikNetwork();

      }

    return mThis;

    }

///////////////////////////////////////////////////////////////////////////////////////////////////

  private void start(Receiver receiver, Activity act, int mode)

    {

    mReceiver = receiver;

    mMode     = mode;

    try

      {

      PackageInfo pInfo = act.getPackageManager().getPackageInfo( act.getPackageName(), 0);

      mVersion = pInfo.versionName;

      }

    catch (PackageManager.NameNotFoundException e)

      {

      mVersion = "0.9.2";

      }

    Thread networkThrd = new Thread(this);

    networkThrd.start();

    }

///////////////////////////////////////////////////////////////////////////////////////////////////

  public void download(Receiver receiver, FragmentActivity act)

    {

    start(receiver, act, DOWNLOAD);

    }

///////////////////////////////////////////////////////////////////////////////////////////////////

  public void submit(Receiver receiver, FragmentActivity act)

    {

    start(receiver, act, SUBMIT);

    }

///////////////////////////////////////////////////////////////////////////////////////////////////

  public void debug(AppCompatActivity act)

    {

    start(null, act, DEBUG);

    }

}