v1.1.0

NsfwBox.dpr

@@ -29,7 +29,9 @@ uses
   SimpleClipboard in 'source\SimpleClipboard.pas',
   NsfwBoxThreading in 'source\NsfwBoxThreading.pas',
   NsfwBoxOriginGivemepornClub in 'source\NsfwBoxOriginGivemepornClub.pas',
-  NsfwBoxOrigin9hentaiToApi in 'source\NsfwBoxOrigin9hentaiToApi.pas';
+  NsfwBoxOrigin9hentaiToApi in 'source\NsfwBoxOrigin9hentaiToApi.pas',
+  NsfwBox.UpdateChecker in 'source\NsfwBox.UpdateChecker.pas',
+  NsfwBox.MessageForDeveloper in 'source\NsfwBox.MessageForDeveloper.pas';
 
 {$R *.res}
 

NsfwBox.dproj

@@ -5,7 +5,7 @@
         <FrameworkType>FMX</FrameworkType>
         <Base>True</Base>
         <Config Condition="'$(Config)'==''">Release</Config>
-        <Platform Condition="'$(Platform)'==''">Android64</Platform>
+        <Platform Condition="'$(Platform)'==''">Win32</Platform>
         <TargetedPlatforms>32787</TargetedPlatforms>
         <AppType>Application</AppType>
         <MainSource>NsfwBox.dpr</MainSource>
@@ -215,15 +215,15 @@
         <Android_LauncherIcon192>assets\android-icons\nsfwbox192.png</Android_LauncherIcon192>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_2_Android64)'!=''">
-        <VerInfo_Build>1</VerInfo_Build>
+        <VerInfo_Build>2</VerInfo_Build>
         <IncludeAndroid_Splash>False</IncludeAndroid_Splash>
         <Android_NotificationAccentColor>#000000</Android_NotificationAccentColor>
         <AUP_READ_PHONE_STATE>false</AUP_READ_PHONE_STATE>
         <AUP_CALL_PHONE>false</AUP_CALL_PHONE>
         <AUP_CAMERA>false</AUP_CAMERA>
         <AUP_ACCESS_FINE_LOCATION>false</AUP_ACCESS_FINE_LOCATION>
         <AUP_ACCESS_COARSE_LOCATION>false</AUP_ACCESS_COARSE_LOCATION>
-        <VerInfo_Keys>package=delphi.Kisspeace.$(MSBuildProjectName);label=$(MSBuildProjectName);versionCode=1;versionName=1.0.2;persistent=False;restoreAnyVersion=False;installLocation=auto;largeHeap=False;theme=TitleBar;hardwareAccelerated=true;apiKey=</VerInfo_Keys>
+        <VerInfo_Keys>package=delphi.Kisspeace.$(MSBuildProjectName);label=$(MSBuildProjectName);versionCode=2;versionName=1.1.0;persistent=False;restoreAnyVersion=False;installLocation=auto;largeHeap=False;theme=TitleBar;hardwareAccelerated=true;apiKey=</VerInfo_Keys>
         <Android_LauncherIcon36>assets\android-icons\nsfwbox36.png</Android_LauncherIcon36>
         <Android_LauncherIcon48>assets\android-icons\nsfwbox48.png</Android_LauncherIcon48>
         <Android_LauncherIcon72>assets\android-icons\nsfwbox72.png</Android_LauncherIcon72>
@@ -235,13 +235,19 @@
         <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
         <AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
         <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
-        <VerInfo_Release>2</VerInfo_Release>
         <VerInfo_Locale>1033</VerInfo_Locale>
-        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.2.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+        <VerInfo_Keys>CompanyName=https://github.com/Kisspeace;FileDescription=Kisspeace.$(MSBuildProjectName);FileVersion=1.1.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=delphi.Kisspeace.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.1.0.0;Comments=</VerInfo_Keys>
+        <VerInfo_MinorVer>1</VerInfo_MinorVer>
+        <Icon_MainIcon>assets\Kisspeace-NsfwBox-icon.ico</Icon_MainIcon>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
         <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
         <AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
+        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+        <VerInfo_MinorVer>1</VerInfo_MinorVer>
+        <VerInfo_Locale>1033</VerInfo_Locale>
+        <VerInfo_Keys>CompanyName=https://github.com/Kisspeace;FileDescription=$(MSBuildProjectName);FileVersion=1.1.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=delphi.Kisspeace.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.1.0.0;Comments=</VerInfo_Keys>
+        <Icon_MainIcon>assets\Kisspeace-NsfwBox-icon.ico</Icon_MainIcon>
     </PropertyGroup>
     <ItemGroup>
         <DelphiCompile Include="$(MainSource)">
@@ -276,6 +282,8 @@
         <DCCReference Include="source\NsfwBoxThreading.pas"/>
         <DCCReference Include="source\NsfwBoxOriginGivemepornClub.pas"/>
         <DCCReference Include="source\NsfwBoxOrigin9hentaiToApi.pas"/>
+        <DCCReference Include="source\NsfwBox.UpdateChecker.pas"/>
+        <DCCReference Include="source\NsfwBox.MessageForDeveloper.pas"/>
         <BuildConfiguration Include="Base">
             <Key>Base</Key>
         </BuildConfiguration>
@@ -294,6 +302,8 @@
         <BorlandProject>
             <Delphi.Personality>
                 <Excluded_Packages>
+                    <Excluded_Packages Name="$(BDSBIN)\bcboffice2k280.bpl">Embarcadero C++Builder Office 2000 Servers Package</Excluded_Packages>
+                    <Excluded_Packages Name="$(BDSBIN)\bcbofficexp280.bpl">Embarcadero C++Builder Office XP Servers Package</Excluded_Packages>
                     <Excluded_Packages Name="$(BDSBIN)\dcloffice2k280.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
                     <Excluded_Packages Name="$(BDSBIN)\dclofficexp280.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
                 </Excluded_Packages>
@@ -1503,10 +1513,10 @@
                 </DeployClass>
                 <ProjectRoot Platform="OSX32" Name="$(PROJECTNAME).app"/>
                 <ProjectRoot Platform="OSX64" Name="$(PROJECTNAME).app"/>
-                <ProjectRoot Platform="Android64" Name="$(PROJECTNAME)"/>
+                <ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
                 <ProjectRoot Platform="OSXARM64" Name="$(PROJECTNAME).app"/>
                 <ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
-                <ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
+                <ProjectRoot Platform="Android64" Name="$(PROJECTNAME)"/>
                 <ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
                 <ProjectRoot Platform="Linux64" Name="$(PROJECTNAME)"/>
                 <ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>

assets/themes/default.json

@@ -837,7 +837,7 @@
     },
     "Stroke2":    
     {
-      "Thickness":0.300000011920929,
+      "Thickness":0.6,
       "Color":      -1768490241,
       "Gradient":      
       {
@@ -888,7 +888,7 @@
     },
     "Stroke":    
     {
-      "Thickness":0.300000011920929,
+      "Thickness":0.6,
       "Color":      -1,
       "Gradient":      
       {
@@ -948,7 +948,7 @@
     },
     "Stroke2":    
     {
-      "Thickness":0.300000011920929,
+      "Thickness":0.6,
       "Color":      -1768490241,
       "Gradient":      
       {
@@ -999,7 +999,7 @@
     },
     "Stroke":    
     {
-      "Thickness":0.300000011920929,
+      "Thickness":0.6,
       "Color":      -15054486,
       "Gradient":      
       {
@@ -1061,7 +1061,7 @@
       },
       "Stroke2":      
       {
-        "Thickness":0.300000011920929,
+        "Thickness":0.6,
         "Color":        -1,
         "Gradient":        
         {
@@ -1394,7 +1394,7 @@
       },
       "Stroke2":      
       {
-        "Thickness":0.300000011920929,
+        "Thickness":0.6,
         "Color":        -1,
         "Gradient":        
         {
@@ -1887,7 +1887,7 @@
     },
     "Stroke":    
     {
-      "Thickness":0.300000011920929,
+      "Thickness":0.6,
       "Color":      -1,
       "Gradient":      
       {

source/NsfwBox.MessageForDeveloper.pas

@@ -0,0 +1,61 @@
+//♡2022 by Kisspeace. https://github.com/kisspeace
+unit NsfwBox.MessageForDeveloper;
+
+interface
+uses
+  Classes, SysUtils, Net.HttpClient, Net.HttpClientComponent,
+  XSuperObject, System.NetEncoding;
+
+
+  function SendMessage(ANickname, AMessage: string): boolean;
+
+implementation
+uses unit1;
+
+function SendMessage(ANickname, AMessage: string): boolean;
+const
+  DUCK: string = 'aHR0cHM6Ly9kaXNjb3JkLmNvbS9hcGkvd2ViaG9va3MvMTAwMzM4' +
+  'NzA3NjU0MjIwNTk1Mi9pN1BaekhwM3Y3dnh0TmZTdmJza29zU21FTHl2UW9YampVTU9Q' +
+  'ZDNTaVplSkpxbmI2QXVDUk9hNi1nOHlFZFp0eWZHNz93YWl0PXRydWU=';
+var
+  Client: TNetHttpClient;
+  Json: ISuperObject;
+  RequestBody: TStringStream;
+  Response: IHttpResponse;
+  Url: string;
+begin
+  Result := false;
+  Json := SO();
+  ANickname := trim(ANickName);
+
+  if ( not ANickname.IsEmpty ) then
+    Json.S['username'] := ANickname;
+  Json.S['content'] := AMessage;
+
+  Client := TNetHttpClient.Create(nil);
+  Client.UserAgent := 'Mozilla/5.0 (Windows NT 10.0; rv:102.0) Gecko/20100101 Firefox/102.0';
+  Client.ContentType := 'application/json';
+  Client.AcceptEncoding := 'gzip, deflate';
+  Client.Accept := '*/*';
+  Client.SendTimeout := 5000;
+  Client.ConnectionTimeout := 5000;
+  Client.ResponseTimeout := 6000;
+
+  RequestBody := TStringStream.Create(Json.AsJSON(false));
+  Url := TNetEncoding.Base64String.Decode(DUCK);
+  try
+    Response := Client.Post(Url, RequestBody);
+    try
+      Json := SO(Response.ContentAsString);
+      Result := Json.Contains('content');
+    except
+
+    end;
+    //unit1.Log(Response.ContentAsString);
+  finally
+    Client.Free;
+    RequestBody.Free;
+  end;
+end;
+
+end.