Версия от 04.09.2018

rkn_bypasser_gui.dpr

@@ -0,0 +1,39 @@
+program rkn_tray;
+
+uses
+  Winapi.Windows,
+  Vcl.Forms,
+  uSettings in 'uSettings.pas' {fSettings},
+  Vcl.Themes,
+  Vcl.Styles,
+  uAbout in 'uAbout.pas' {fAbout},
+  uLogs in 'uLogs.pas' {fLogs};
+
+{$R *.res}
+
+var
+  hMutex: THandle;
+
+function Executed: Boolean;
+const
+  MUTEX_STR = '{24C8839B-0F77-4E68-B3BD-42E74C051CD6}';
+begin
+  hMutex := OpenMutex(MUTEX_ALL_ACCESS, False, MUTEX_STR);
+  Result := (hMutex <> 0);
+  if hMutex = 0 then
+    hMutex := CreateMutex(nil, False, MUTEX_STR);
+end;
+
+begin
+  if Executed then
+    Exit;
+  Application.Initialize;
+  Application.MainFormOnTaskbar := False;
+  Application.ShowMainForm := False;
+  TStyleManager.TrySetStyle('Carbon');
+  Application.CreateForm(TfSettings, fSettings);
+  Application.CreateForm(TfAbout, fAbout);
+  Application.CreateForm(TfLogs, fLogs);
+  Application.Run;
+end.
+

setup/license.txt

@@ -0,0 +1,17 @@
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.

setup/setup.iss

@@ -0,0 +1,69 @@
+#define MyAppName "RKN bypasser"
+#define MyAppVersion "1.0"
+#define MyAppPublisher "dimuls@yandex.ru & adm1n1strat1on@list.ru"
+#define MyAppURL "https://github.com/someanon/rkn-bypasser"
+#define MyAppExeName "rkn-bypasser-gui.exe"
+
+[Setup]
+AppId={{A6EF4A49-C0C4-4F70-AC86-F274E94CC68F}
+AppName={#MyAppName}
+AppVersion={#MyAppVersion}
+AppVerName={#MyAppName} {#MyAppVersion}
+AppPublisher={#MyAppPublisher}
+AppPublisherURL={#MyAppURL}
+AppSupportURL={#MyAppURL}
+AppUpdatesURL={#MyAppURL}
+DefaultDirName={pf}\{#MyAppName}
+DefaultGroupName={#MyAppName}
+DisableProgramGroupPage=yes
+LicenseFile=D:\Soft\rkn-bypasser\v1.0\license.txt
+OutputBaseFilename=setup
+SetupIconFile=D:\Soft\rkn-bypasser\v1.0\icon.ico
+Compression=lzma
+SolidCompression=yes
+ArchitecturesInstallIn64BitMode=x64
+
+[Languages]
+Name: "english"; MessagesFile: "compiler:Default.isl"
+Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"
+
+[Files]
+Source: "D:\Soft\rkn-bypasser\v1.0\Tor\libeay32.dll"; DestDir: "{app}\Tor\"; Flags: ignoreversion
+Source: "D:\Soft\rkn-bypasser\v1.0\Tor\libevent_core-2-0-5.dll"; DestDir: "{app}\Tor\"; Flags: ignoreversion
+Source: "D:\Soft\rkn-bypasser\v1.0\Tor\libevent_extra-2-0-5.dll"; DestDir: "{app}\Tor\"; Flags: ignoreversion
+Source: "D:\Soft\rkn-bypasser\v1.0\Tor\libevent-2-0-5.dll"; DestDir: "{app}\Tor\"; Flags: ignoreversion
+Source: "D:\Soft\rkn-bypasser\v1.0\Tor\libgcc_s_sjlj-1.dll"; DestDir: "{app}\Tor\"; Flags: ignoreversion
+Source: "D:\Soft\rkn-bypasser\v1.0\Tor\libssp-0.dll"; DestDir: "{app}\Tor\"; Flags: ignoreversion
+Source: "D:\Soft\rkn-bypasser\v1.0\Tor\ssleay32.dll"; DestDir: "{app}\Tor\"; Flags: ignoreversion
+Source: "D:\Soft\rkn-bypasser\v1.0\Tor\tor.exe"; DestDir: "{app}\Tor\"; Flags: ignoreversion
+Source: "D:\Soft\rkn-bypasser\v1.0\Tor\tor-gencert.exe"; DestDir: "{app}\Tor\"; Flags: ignoreversion
+Source: "D:\Soft\rkn-bypasser\v1.0\Tor\zlib1.dll"; DestDir: "{app}\Tor\"; Flags: ignoreversion
+Source: "D:\Soft\rkn-bypasser\v1.0\rkn-bypasser-gui.exe"; DestDir: "{app}"; Flags: ignoreversion
+Source: "D:\Soft\rkn-bypasser\v1.0\rkn-bypasser-x64.exe"; DestDir: "{app}"; DestName: "rkn-bypasser.exe"; Check: Is64BitInstallMode; Flags: ignoreversion
+Source: "D:\Soft\rkn-bypasser\v1.0\rkn-bypasser-x86.exe"; DestDir: "{app}"; DestName: "rkn-bypasser.exe"; Check: not Is64BitInstallMode; Flags: ignoreversion
+Source: "C:\Program Files (x86)\The Road To Delphi\VCL Styles Inno\VclStylesinno.dll"; DestDir: {app}; Flags: dontcopy
+Source: "C:\Program Files (x86)\The Road To Delphi\VCL Styles Inno\Styles\Carbon.vsf"; DestDir: {app}; Flags: dontcopy
+
+[Icons]
+Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
+Name: "{group}\{cm:ProgramOnTheWeb,{#MyAppName}}"; Filename: "{#MyAppURL}"
+Name: "{group}\{cm:UninstallProgram,{#MyAppName}}"; Filename: "{uninstallexe}"
+
+[Run]
+Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent
+
+[Code]
+procedure LoadVCLStyle(VClStyleFile: String); external 'LoadVCLStyleW@files:VclStylesInno.dll stdcall';
+procedure UnLoadVCLStyles; external 'UnLoadVCLStyles@files:VclStylesInno.dll stdcall';
+ 
+function InitializeSetup(): Boolean;
+begin
+  ExtractTemporaryFile('Carbon.vsf');
+  LoadVCLStyle(ExpandConstant('{tmp}\Carbon.vsf'));
+  Result := True;
+end;
+ 
+procedure DeinitializeSetup();
+begin
+  UnLoadVCLStyles;
+end;