├── .gitignore ├── .gitmodules ├── README.md └── TaurusTLS ├── .gitignore ├── Demos ├── FTPServer │ ├── TaurusFTPServer.dpr │ ├── TaurusFTPServer.dproj │ ├── Win32 │ │ ├── Debug │ │ │ ├── makecert.bat │ │ │ └── openssl.cnf │ │ └── Release │ │ │ ├── makecert.bat │ │ │ └── openssl.cnf │ └── Win64 │ │ ├── Debug │ │ ├── makecert.bat │ │ └── openssl.cnf │ │ └── Release │ │ ├── makecert.bat │ │ └── openssl.cnf ├── TaurusFTPClient │ ├── AcceptableCerts.pas │ ├── CertViewer.dfm │ ├── CertViewer.pas │ ├── ProgUtils.pas │ ├── TaurusFTPClient.dpr │ ├── TaurusFTPClient.dproj │ ├── TaurusFTPClient_Icon.ico │ ├── WindowsDarkMode.pas │ ├── bull-silhouette-clipart (1).ico │ ├── bull_150.png │ ├── bull_44.png │ ├── bullhead_150.png │ ├── bullhead_44.png │ ├── bullshead.ico │ ├── bwIndy_victory_64x64.png │ ├── dkgFTPConnect.dfm │ ├── dkgFTPConnect.pas │ ├── dlgFTPProxySettings.dfm │ ├── dlgFTPProxySettings.pas │ ├── dlgNATSettings.dfm │ ├── dlgNATSettings.pas │ ├── dlgProxySettings.dfm │ ├── dlgProxySettings.pas │ ├── frmAbout.dfm │ ├── frmAbout.pas │ ├── frmBookmarks.dfm │ ├── frmBookmarks.pas │ ├── frmProgress.dfm │ ├── frmProgress.pas │ ├── mainform.dfm │ ├── mainform.pas │ ├── settingsdlg.dfm │ └── settingsdlg.pas ├── TaurusFTPConsole │ ├── bullshead.ico │ ├── taurusftp.dpr │ ├── taurusftp.dproj │ ├── taurusftp.ico │ ├── taurusftp.lpi │ ├── taurusftp.lpr │ ├── taurusftp.lps │ ├── taurusftp.prjmgc │ └── taurusftp_unit.pas └── TaurusHTTPServer │ ├── taurusHTTPServer.dpr │ ├── taurusHTTPServer.dproj │ ├── taurusHTTPServer.lpi │ ├── taurusHTTPServer.lpr │ ├── taurusHTTPServer.lps │ └── taurushttpserver_unit.pas ├── DifferencesBetweenIndyOpenSSLAndTaurusTLS.md ├── Help └── chm │ └── TaurusForIndy290All.chm ├── Icons ├── 16-colors │ ├── TIdBaseClient.bmp │ ├── TIdBaseServer.bmp │ ├── TTaurusTLSIOHandlerSocket.bmp │ ├── TTaurusTLSIOHandlerSocket.png │ ├── TTaurusTLSServerIOHandler.bmp │ ├── TTaurusTLSServerIOHandler.png │ ├── TaurusTLS_Dsn_Register.dcr │ ├── TaurusTLS_Dsn_Register.lrs │ ├── TaurusTLS_Dsn_Register_16.dcr │ ├── buildlrs.bat │ ├── buildres.bat │ └── splash.bmp ├── TIdSSLIOHandlerSocketOpenSSL.xcf ├── TTaurusTLSIOHandlerSocket.bmp ├── TTaurusTLSIOHandlerSocket.png ├── TTaurusTLSIOHandlerSocket.xcf ├── TTaurusTLSServerIOHandler.bmp ├── TTaurusTLSServerIOHandler.png ├── TTaurusTLSServerIOHandler.xcf ├── TaurusTLSRegister.aps ├── TaurusTLS_Dsn_Register.dcr ├── buildres.bat ├── splash.bmp └── splash.png ├── LICENSE.md ├── LICENSE_MPL_1_1.txt ├── Logo ├── GetIt.png ├── GetIt.xcf ├── bull-silhouette-clipart (1).png ├── bull-silhouette-clipart (1).xcf ├── bullhead.png └── bullhead.xcf ├── Modified_BSD_LICENSE.md ├── OpenSSL └── binaries │ └── README.md ├── Packages ├── d11 │ ├── TaurusAll.groupproj │ ├── TaurusForIndy280All.groupproj │ ├── TaurusTLS_DT.dpk │ ├── TaurusTLS_DT.dproj │ ├── TaurusTLS_DTForIndy280.dpk │ ├── TaurusTLS_DTForIndy280.dproj │ ├── TaurusTLS_RT.dpk │ ├── TaurusTLS_RT.dproj │ ├── TaurusTLS_RTForIndy280.dpk │ └── TaurusTLS_RTForIndy280.dproj ├── d12 │ ├── TaurusAll.groupproj │ ├── TaurusForIndy290All.diproj │ ├── TaurusForIndy290All.groupproj │ ├── TaurusTLS_DT.dpk │ ├── TaurusTLS_DT.dproj │ ├── TaurusTLS_DTForIndy290.dpk │ ├── TaurusTLS_DTForIndy290.dproj │ ├── TaurusTLS_RT.dpk │ ├── TaurusTLS_RT.dproj │ ├── TaurusTLS_RTForIndy290.dpk │ └── TaurusTLS_RTForIndy290.dproj ├── d13 │ ├── TaurusAll.groupproj │ ├── TaurusForIndy300All.groupproj │ ├── TaurusTLS_DT.dpk │ ├── TaurusTLS_DT.dproj │ ├── TaurusTLS_DTForIndy300.dpk │ ├── TaurusTLS_DTForIndy300.dproj │ ├── TaurusTLS_RT.dpk │ ├── TaurusTLS_RT.dproj │ ├── TaurusTLS_RTForIndy300.dpk │ └── TaurusTLS_RTForIndy300.dproj ├── dberlin │ ├── TaurusAll.groupproj │ ├── TaurusForIndy240All.groupproj │ ├── TaurusTLS_DT.dpk │ ├── TaurusTLS_DT.dproj │ ├── TaurusTLS_DTForIndy240.dpk │ ├── TaurusTLS_DTForIndy240.dproj │ ├── TaurusTLS_RT.dpk │ ├── TaurusTLS_RT.dproj │ ├── TaurusTLS_RTForIndy240.dpk │ └── TaurusTLS_RTForIndy240.dproj ├── drio │ ├── TaurusAll.groupproj │ ├── TaurusForIndy260All.groupproj │ ├── TaurusTLS_DT.dpk │ ├── TaurusTLS_DT.dproj │ ├── TaurusTLS_DTForIndy260.dpk │ ├── TaurusTLS_DTForIndy260.dproj │ ├── TaurusTLS_RT.dpk │ ├── TaurusTLS_RT.dproj │ ├── TaurusTLS_RTForIndy260.dpk │ └── TaurusTLS_RTForIndy260.dproj ├── dseattle │ ├── TaurusAll.groupproj │ ├── TaurusForIndy230All.groupproj │ ├── TaurusTLS_DT.dpk │ ├── TaurusTLS_DT.dproj │ ├── TaurusTLS_DTForIndy230.dpk │ ├── TaurusTLS_DTForIndy230.dproj │ ├── TaurusTLS_Dsn_Register.dcr │ ├── TaurusTLS_Dsn_Register_16.dcr │ ├── TaurusTLS_RT.dpk │ ├── TaurusTLS_RT.dproj │ ├── TaurusTLS_RTForIndy230.dpk │ └── TaurusTLS_RTForIndy230.dproj ├── dsydney │ ├── TaurusAll.groupproj │ ├── TaurusForIndy270All.groupproj │ ├── TaurusTLS_DT.dpk │ ├── TaurusTLS_DT.dproj │ ├── TaurusTLS_DTForIndy270.dpk │ ├── TaurusTLS_DTForIndy270.dproj │ ├── TaurusTLS_Dsn_Register.dcr │ ├── TaurusTLS_Dsn_Register_16.dcr │ ├── TaurusTLS_RT.dpk │ ├── TaurusTLS_RT.dproj │ ├── TaurusTLS_RTForIndy270.dpk │ └── TaurusTLS_RTForIndy270.dproj ├── dtokyo │ ├── TaurusAll.groupproj │ ├── TaurusForIndy250All.groupproj │ ├── TaurusTLS_DT.dpk │ ├── TaurusTLS_DT.dproj │ ├── TaurusTLS_DTForIndy250.dpk │ ├── TaurusTLS_DTForIndy250.dproj │ ├── TaurusTLS_Dsn_Register.dcr │ ├── TaurusTLS_Dsn_Register_16.dcr │ ├── TaurusTLS_RT.dpk │ ├── TaurusTLS_RT.dproj │ ├── TaurusTLS_RTForIndy250.dpk │ └── TaurusTLS_RTForIndy250.dproj └── lazarus │ ├── taurustlsldsgn.lpk │ ├── taurustlsldsgn.pas │ ├── taurustlsrt.lpk │ └── taurustlsrt.pas ├── README.md ├── Source ├── TaurusTLS.pas ├── TaurusTLSCompilerDefines.inc ├── TaurusTLSConsts.pas ├── TaurusTLSExceptionHandlers.pas ├── TaurusTLSFIPS.pas ├── TaurusTLSHeaders_aes.pas ├── TaurusTLSHeaders_asn1.pas ├── TaurusTLSHeaders_asn1_mac.pas ├── TaurusTLSHeaders_asn1err.pas ├── TaurusTLSHeaders_asn1t.pas ├── TaurusTLSHeaders_async.pas ├── TaurusTLSHeaders_asyncerr.pas ├── TaurusTLSHeaders_bio.pas ├── TaurusTLSHeaders_bioerr.pas ├── TaurusTLSHeaders_blowfish.pas ├── TaurusTLSHeaders_bn.pas ├── TaurusTLSHeaders_bnerr.pas ├── TaurusTLSHeaders_buffer.pas ├── TaurusTLSHeaders_buffererr.pas ├── TaurusTLSHeaders_camellia.pas ├── TaurusTLSHeaders_cast.pas ├── TaurusTLSHeaders_cmac.pas ├── TaurusTLSHeaders_cms.pas ├── TaurusTLSHeaders_cmserr.pas ├── TaurusTLSHeaders_comp.pas ├── TaurusTLSHeaders_comperr.pas ├── TaurusTLSHeaders_conf.pas ├── TaurusTLSHeaders_conf_api.pas ├── TaurusTLSHeaders_conferr.pas ├── TaurusTLSHeaders_core.pas ├── TaurusTLSHeaders_crypto.pas ├── TaurusTLSHeaders_cryptoerr.pas ├── TaurusTLSHeaders_ct.pas ├── TaurusTLSHeaders_cterr.pas ├── TaurusTLSHeaders_des.pas ├── TaurusTLSHeaders_dh.pas ├── TaurusTLSHeaders_dherr.pas ├── TaurusTLSHeaders_dsa.pas ├── TaurusTLSHeaders_dsaerr.pas ├── TaurusTLSHeaders_ebcdic.pas ├── TaurusTLSHeaders_ec.pas ├── TaurusTLSHeaders_ecerr.pas ├── TaurusTLSHeaders_engine.pas ├── TaurusTLSHeaders_engineerr.pas ├── TaurusTLSHeaders_err.pas ├── TaurusTLSHeaders_evp.pas ├── TaurusTLSHeaders_evperr.pas ├── TaurusTLSHeaders_hmac.pas ├── TaurusTLSHeaders_idea.pas ├── TaurusTLSHeaders_kdferr.pas ├── TaurusTLSHeaders_obj_mac.pas ├── TaurusTLSHeaders_objects.pas ├── TaurusTLSHeaders_objectserr.pas ├── TaurusTLSHeaders_ocsperr.pas ├── TaurusTLSHeaders_ossl_typ.pas ├── TaurusTLSHeaders_pem.pas ├── TaurusTLSHeaders_pemerr.pas ├── TaurusTLSHeaders_pkcs12.pas ├── TaurusTLSHeaders_pkcs7.pas ├── TaurusTLSHeaders_pkcs7err.pas ├── TaurusTLSHeaders_provider.pas ├── TaurusTLSHeaders_quic.pas ├── TaurusTLSHeaders_rand.pas ├── TaurusTLSHeaders_randerr.pas ├── TaurusTLSHeaders_rc4.pas ├── TaurusTLSHeaders_rsa.pas ├── TaurusTLSHeaders_rsaerr.pas ├── TaurusTLSHeaders_safestack.pas ├── TaurusTLSHeaders_sha.pas ├── TaurusTLSHeaders_srtp.pas ├── TaurusTLSHeaders_ssl.pas ├── TaurusTLSHeaders_ssl3.pas ├── TaurusTLSHeaders_sslerr.pas ├── TaurusTLSHeaders_stack.pas ├── TaurusTLSHeaders_storeerr.pas ├── TaurusTLSHeaders_tls1.pas ├── TaurusTLSHeaders_ts.pas ├── TaurusTLSHeaders_tserr.pas ├── TaurusTLSHeaders_txt_db.pas ├── TaurusTLSHeaders_ui.pas ├── TaurusTLSHeaders_uierr.pas ├── TaurusTLSHeaders_whrlpool.pas ├── TaurusTLSHeaders_x509.pas ├── TaurusTLSHeaders_x509_vfy.pas ├── TaurusTLSHeaders_x509err.pas ├── TaurusTLSHeaders_x509v3.pas ├── TaurusTLSLinkDefines.inc ├── TaurusTLSLoader.pas ├── TaurusTLSNoRetValOff.inc ├── TaurusTLSNoRetValOn.inc ├── TaurusTLSSymbolDeprecatedOff.inc ├── TaurusTLSSymbolDeprecatedOn.inc ├── TaurusTLSUnusedParamOff.inc ├── TaurusTLSUnusedParamOn.inc ├── TaurusTLSUnusedUnitOff.inc ├── TaurusTLSUnusedUnitOn.inc ├── TaurusTLS_Dsn_AboutDlg.pas ├── TaurusTLS_Dsn_ComponentEditor.pas ├── TaurusTLS_Dsn_Register.dcr ├── TaurusTLS_Dsn_Register.lrs ├── TaurusTLS_Dsn_Register.pas ├── TaurusTLS_Dsn_Register_16.dcr ├── TaurusTLS_Dsn_ResourceStrings.pas ├── TaurusTLS_Files.pas ├── TaurusTLS_NTLM.pas ├── TaurusTLS_ResourceStrings.pas ├── TaurusTLS_Utils.pas ├── TaurusTLS_Vers.inc └── TaurusTLS_X509.pas ├── Tests ├── TaurusTLS.Tests.dpr ├── TaurusTLS.Tests.dproj ├── TaurusTLS.Tests.prjmgc └── Tests.Http.pas ├── What_needs_to_be_done.MD ├── devtools ├── VersionManager │ ├── dmod_main.dfm │ ├── dmod_main.pas │ ├── mainform.dfm │ ├── mainform.pas │ ├── versionmanager.dpr │ └── versionmanager.dproj ├── syncsrc.sh └── syncvers.sh ├── tmsbuild.yaml └── version.txt /.gitignore: -------------------------------------------------------------------------------- 1 | # Git ignore-list optimized for Delphi projects 2 | 3 | # General Ignore Patterns 4 | ## Node artifact files 5 | node_modules/ 6 | dist/ 7 | 8 | 9 | ## Compiled Java class files 10 | *.class 11 | 12 | ## Compiled Python bytecode 13 | *.py[cod] 14 | 15 | ## Log files 16 | *.log 17 | 18 | ## Package files 19 | *.jar 20 | 21 | ## Unit test reports 22 | TEST*.xml 23 | 24 | ## Generated by MacOS 25 | .DS_Store 26 | 27 | ## Generated by Windows 28 | Thumbs.db 29 | 30 | ## Large media files 31 | *.mp4 32 | *.tiff 33 | *.avi 34 | *.flv 35 | *.mov 36 | *.wmv 37 | 38 | ## Applications 39 | *.app 40 | *.exe 41 | *.war 42 | 43 | # IDE and Build Tools 44 | ## JetBrains IDE 45 | .idea/ 46 | 47 | ## Maven 48 | target/ 49 | 50 | # SCM/versioning files 51 | .hg/ 52 | .svn/ 53 | 54 | # Boss dependency manager vendor folder 55 | modules/ 56 | 57 | # Delphi Compiler-Generated Files 58 | ## Compiler-generated binaries (safe to delete) 59 | *.dll 60 | *.bpl 61 | *.bpi 62 | *.dcp 63 | *.so 64 | *.apk 65 | *.drc 66 | *.map 67 | *.dres 68 | *.rsm 69 | *.tds 70 | *.dcu 71 | *.lib 72 | *.a 73 | *.o 74 | *.ocx 75 | 76 | ## Autogenerated files (duplicated info) 77 | *.cfg 78 | *.hpp 79 | *Resource.rc 80 | 81 | ## Local files (user-specific info) 82 | *.local 83 | *.identcache 84 | *.projdata 85 | *.tvsconfig 86 | *.dsk 87 | *.user 88 | 89 | ## Backup and Autosave files 90 | *.~bpl 91 | *.~dsk 92 | *.~pas 93 | *.~dfm 94 | *.~* 95 | *.save 96 | *.cbk 97 | 98 | ## Unit State (cache) files 99 | *.dcu.* 100 | *.state 101 | 102 | # Delphi History and Backups 103 | __history/ 104 | __recovery/ 105 | 106 | # Delphi Specific Build Directories 107 | Release/ 108 | Debug/ 109 | DCU/ 110 | 111 | # Default Platform Output Directories 112 | Linux64/ 113 | OSX32/ 114 | OSX64/ 115 | Win32/ 116 | Win64/ 117 | Android/ 118 | 119 | # Project Intermediate Files 120 | *.il* 121 | *.tlib* 122 | 123 | # Delphi Related Temporary Build Folders 124 | __build/ 125 | 126 | # Miscellaneous Files 127 | ~$*.* 128 | _Release-Binaries 129 | 130 | # Delphi-Specific Ignore Patterns 131 | ## Resource files (manifest, project icon, version info) 132 | *.res 133 | 134 | ## Type library file (binary) 135 | *.tlb 136 | 137 | ## Diagram Portfolio file (used up to Delphi 7) 138 | *.ddp 139 | 140 | ## C++ Object Files 141 | *.obj 142 | 143 | ## TMS WebCore Output 144 | TMSWeb/ 145 | 146 | #FreePascal and Lazarus specifics 147 | ## May share duplicates with the section above 148 | 149 | ## FreePascal compiled units and libraries 150 | *.ppu 151 | *.o 152 | *.a 153 | *.so 154 | *.dll 155 | *.dylib 156 | 157 | ## Lazarus project files 158 | *.lps 159 | *.lpi 160 | *.or 161 | lib/ 162 | backup/ 163 | bin/ 164 | *.lps.bak 165 | 166 | ## Temporary and log files 167 | *.compiled 168 | *.log 169 | *.tmp 170 | *.bak 171 | *.rst -------------------------------------------------------------------------------- /.gitmodules: -------------------------------------------------------------------------------- 1 | [submodule "submodules/DUnitX"] 2 | path = submodules/DUnitX 3 | url = https://github.com/VSoftTechnologies/DUnitX.git 4 | -------------------------------------------------------------------------------- /TaurusTLS/.gitignore: -------------------------------------------------------------------------------- 1 | # Compiled source # 2 | ################### 3 | *.dcu 4 | *.obj 5 | *.exe 6 | *.bpl 7 | *.bpi 8 | *.dcp 9 | *.rsm 10 | *.stat 11 | *.map 12 | *.lib 13 | 14 | # Generated source # 15 | ################### 16 | *.hpp 17 | 18 | # Backup files # 19 | ################### 20 | *.~* 21 | *.bak 22 | *.#00 23 | *.pch 24 | *.Patch 25 | __history/ 26 | __recovery/ 27 | 28 | # IDE Files # 29 | ################### 30 | *.dproj.local 31 | *.groupproj.local 32 | *.identcache 33 | *.dsk 34 | *.tvsconfig 35 | *.otares 36 | *.drc 37 | *.rc 38 | *.res 39 | *.local 40 | 41 | # Output Folders # 42 | ################### 43 | /Win32 44 | /Win64 45 | /OSX32 46 | 47 | # C++ Files # 48 | ################### 49 | *.prjmgc 50 | 51 | Packages/Sydney/CBuilder/Win64/ 52 | Packages/Sydney/cpp/ 53 | -------------------------------------------------------------------------------- /TaurusTLS/Demos/FTPServer/Win32/Debug/makecert.bat: -------------------------------------------------------------------------------- 1 | openssl genrsa -out ssl-key.pem 4096 2 | openssl req -new -key ssl-key.pem -out ssl.csr -config openssl.cnf 3 | openssl x509 -req -in ssl.csr -signkey ssl-key.pem -out ssl-cert.pem 4 | 5 | -------------------------------------------------------------------------------- /TaurusTLS/Demos/FTPServer/Win32/Debug/openssl.cnf: -------------------------------------------------------------------------------- 1 | # 2 | # OpenSSL configuration file. 3 | # 4 | 5 | # Establish working directory. 6 | 7 | dir = . 8 | 9 | [ ca ] 10 | default_ca = CA_default 11 | 12 | [ CA_default ] 13 | serial = $dir/serial 14 | database = $dir/certindex.txt 15 | new_certs_dir = $dir/certs 16 | certificate = $dir/cacert.pem 17 | private_key = $dir/private/cakey.pem 18 | default_days = 365 19 | default_md = md5 20 | preserve = no 21 | email_in_dn = no 22 | nameopt = default_ca 23 | certopt = default_ca 24 | policy = policy_match 25 | 26 | [ policy_match ] 27 | countryName = match 28 | stateOrProvinceName = match 29 | organizationName = match 30 | organizationalUnitName = optional 31 | commonName = supplied 32 | emailAddress = optional 33 | 34 | [ req ] 35 | default_bits = 1024 # Size of keys 36 | default_keyfile = key.pem # name of generated keys 37 | default_md = md5 # message digest algorithm 38 | string_mask = nombstr # permitted characters 39 | distinguished_name = req_distinguished_name 40 | req_extensions = v3_req 41 | 42 | [ req_distinguished_name ] 43 | # Variable name Prompt string 44 | #------------------------- ---------------------------------- 45 | 0.organizationName = Organization Name (company) 46 | organizationalUnitName = Organizational Unit Name (department, division) 47 | emailAddress = Email Address 48 | emailAddress_max = 40 49 | localityName = Locality Name (city, district) 50 | stateOrProvinceName = State or Province Name (full name) 51 | countryName = Country Name (2 letter code) 52 | countryName_min = 2 53 | countryName_max = 2 54 | commonName = Common Name (hostname, IP, or your name) 55 | commonName_max = 64 56 | 57 | # Default values for the above, for consistency and less typing. 58 | # Variable name Value 59 | #------------------------ ------------------------------ 60 | 0.organizationName_default = My Company 61 | localityName_default = My Town 62 | stateOrProvinceName_default = State or Providence 63 | countryName_default = US 64 | 65 | [ v3_ca ] 66 | basicConstraints = CA:TRUE 67 | subjectKeyIdentifier = hash 68 | authorityKeyIdentifier = keyid:always,issuer:always 69 | 70 | [ v3_req ] 71 | basicConstraints = CA:FALSE 72 | subjectKeyIdentifier = hash -------------------------------------------------------------------------------- /TaurusTLS/Demos/FTPServer/Win32/Release/makecert.bat: -------------------------------------------------------------------------------- 1 | openssl genrsa -out ssl-key.pem 4096 2 | openssl req -new -key ssl-key.pem -out ssl.csr -config openssl.cnf 3 | openssl x509 -req -in ssl.csr -signkey ssl-key.pem -out ssl-cert.pem 4 | 5 | -------------------------------------------------------------------------------- /TaurusTLS/Demos/FTPServer/Win32/Release/openssl.cnf: -------------------------------------------------------------------------------- 1 | # 2 | # OpenSSL configuration file. 3 | # 4 | 5 | # Establish working directory. 6 | 7 | dir = . 8 | 9 | [ ca ] 10 | default_ca = CA_default 11 | 12 | [ CA_default ] 13 | serial = $dir/serial 14 | database = $dir/certindex.txt 15 | new_certs_dir = $dir/certs 16 | certificate = $dir/cacert.pem 17 | private_key = $dir/private/cakey.pem 18 | default_days = 365 19 | default_md = md5 20 | preserve = no 21 | email_in_dn = no 22 | nameopt = default_ca 23 | certopt = default_ca 24 | policy = policy_match 25 | 26 | [ policy_match ] 27 | countryName = match 28 | stateOrProvinceName = match 29 | organizationName = match 30 | organizationalUnitName = optional 31 | commonName = supplied 32 | emailAddress = optional 33 | 34 | [ req ] 35 | default_bits = 1024 # Size of keys 36 | default_keyfile = key.pem # name of generated keys 37 | default_md = md5 # message digest algorithm 38 | string_mask = nombstr # permitted characters 39 | distinguished_name = req_distinguished_name 40 | req_extensions = v3_req 41 | 42 | [ req_distinguished_name ] 43 | # Variable name Prompt string 44 | #------------------------- ---------------------------------- 45 | 0.organizationName = Organization Name (company) 46 | organizationalUnitName = Organizational Unit Name (department, division) 47 | emailAddress = Email Address 48 | emailAddress_max = 40 49 | localityName = Locality Name (city, district) 50 | stateOrProvinceName = State or Province Name (full name) 51 | countryName = Country Name (2 letter code) 52 | countryName_min = 2 53 | countryName_max = 2 54 | commonName = Common Name (hostname, IP, or your name) 55 | commonName_max = 64 56 | 57 | # Default values for the above, for consistency and less typing. 58 | # Variable name Value 59 | #------------------------ ------------------------------ 60 | 0.organizationName_default = My Company 61 | localityName_default = My Town 62 | stateOrProvinceName_default = State or Providence 63 | countryName_default = US 64 | 65 | [ v3_ca ] 66 | basicConstraints = CA:TRUE 67 | subjectKeyIdentifier = hash 68 | authorityKeyIdentifier = keyid:always,issuer:always 69 | 70 | [ v3_req ] 71 | basicConstraints = CA:FALSE 72 | subjectKeyIdentifier = hash -------------------------------------------------------------------------------- /TaurusTLS/Demos/FTPServer/Win64/Debug/makecert.bat: -------------------------------------------------------------------------------- 1 | openssl genrsa -out ssl-key.pem 4096 2 | openssl req -new -key ssl-key.pem -out ssl.csr -config openssl.cnf 3 | openssl x509 -req -in ssl.csr -signkey ssl-key.pem -out ssl-cert.pem 4 | 5 | -------------------------------------------------------------------------------- /TaurusTLS/Demos/FTPServer/Win64/Debug/openssl.cnf: -------------------------------------------------------------------------------- 1 | # 2 | # OpenSSL configuration file. 3 | # 4 | 5 | # Establish working directory. 6 | 7 | dir = . 8 | 9 | [ ca ] 10 | default_ca = CA_default 11 | 12 | [ CA_default ] 13 | serial = $dir/serial 14 | database = $dir/certindex.txt 15 | new_certs_dir = $dir/certs 16 | certificate = $dir/cacert.pem 17 | private_key = $dir/private/cakey.pem 18 | default_days = 365 19 | default_md = md5 20 | preserve = no 21 | email_in_dn = no 22 | nameopt = default_ca 23 | certopt = default_ca 24 | policy = policy_match 25 | 26 | [ policy_match ] 27 | countryName = match 28 | stateOrProvinceName = match 29 | organizationName = match 30 | organizationalUnitName = optional 31 | commonName = supplied 32 | emailAddress = optional 33 | 34 | [ req ] 35 | default_bits = 1024 # Size of keys 36 | default_keyfile = key.pem # name of generated keys 37 | default_md = md5 # message digest algorithm 38 | string_mask = nombstr # permitted characters 39 | distinguished_name = req_distinguished_name 40 | req_extensions = v3_req 41 | 42 | [ req_distinguished_name ] 43 | # Variable name Prompt string 44 | #------------------------- ---------------------------------- 45 | 0.organizationName = Organization Name (company) 46 | organizationalUnitName = Organizational Unit Name (department, division) 47 | emailAddress = Email Address 48 | emailAddress_max = 40 49 | localityName = Locality Name (city, district) 50 | stateOrProvinceName = State or Province Name (full name) 51 | countryName = Country Name (2 letter code) 52 | countryName_min = 2 53 | countryName_max = 2 54 | commonName = Common Name (hostname, IP, or your name) 55 | commonName_max = 64 56 | 57 | # Default values for the above, for consistency and less typing. 58 | # Variable name Value 59 | #------------------------ ------------------------------ 60 | 0.organizationName_default = My Company 61 | localityName_default = My Town 62 | stateOrProvinceName_default = State or Providence 63 | countryName_default = US 64 | 65 | [ v3_ca ] 66 | basicConstraints = CA:TRUE 67 | subjectKeyIdentifier = hash 68 | authorityKeyIdentifier = keyid:always,issuer:always 69 | 70 | [ v3_req ] 71 | basicConstraints = CA:FALSE 72 | subjectKeyIdentifier = hash -------------------------------------------------------------------------------- /TaurusTLS/Demos/FTPServer/Win64/Release/makecert.bat: -------------------------------------------------------------------------------- 1 | openssl genrsa -out ssl-key.pem 4096 2 | openssl req -new -key ssl-key.pem -out ssl.csr -config openssl.cnf 3 | openssl x509 -req -in ssl.csr -signkey ssl-key.pem -out ssl-cert.pem 4 | 5 | -------------------------------------------------------------------------------- /TaurusTLS/Demos/FTPServer/Win64/Release/openssl.cnf: -------------------------------------------------------------------------------- 1 | # 2 | # OpenSSL configuration file. 3 | # 4 | 5 | # Establish working directory. 6 | 7 | dir = . 8 | 9 | [ ca ] 10 | default_ca = CA_default 11 | 12 | [ CA_default ] 13 | serial = $dir/serial 14 | database = $dir/certindex.txt 15 | new_certs_dir = $dir/certs 16 | certificate = $dir/cacert.pem 17 | private_key = $dir/private/cakey.pem 18 | default_days = 365 19 | default_md = md5 20 | preserve = no 21 | email_in_dn = no 22 | nameopt = default_ca 23 | certopt = default_ca 24 | policy = policy_match 25 | 26 | [ policy_match ] 27 | countryName = match 28 | stateOrProvinceName = match 29 | organizationName = match 30 | organizationalUnitName = optional 31 | commonName = supplied 32 | emailAddress = optional 33 | 34 | [ req ] 35 | default_bits = 1024 # Size of keys 36 | default_keyfile = key.pem # name of generated keys 37 | default_md = md5 # message digest algorithm 38 | string_mask = nombstr # permitted characters 39 | distinguished_name = req_distinguished_name 40 | req_extensions = v3_req 41 | 42 | [ req_distinguished_name ] 43 | # Variable name Prompt string 44 | #------------------------- ---------------------------------- 45 | 0.organizationName = Organization Name (company) 46 | organizationalUnitName = Organizational Unit Name (department, division) 47 | emailAddress = Email Address 48 | emailAddress_max = 40 49 | localityName = Locality Name (city, district) 50 | stateOrProvinceName = State or Province Name (full name) 51 | countryName = Country Name (2 letter code) 52 | countryName_min = 2 53 | countryName_max = 2 54 | commonName = Common Name (hostname, IP, or your name) 55 | commonName_max = 64 56 | 57 | # Default values for the above, for consistency and less typing. 58 | # Variable name Value 59 | #------------------------ ------------------------------ 60 | 0.organizationName_default = My Company 61 | localityName_default = My Town 62 | stateOrProvinceName_default = State or Providence 63 | countryName_default = US 64 | 65 | [ v3_ca ] 66 | basicConstraints = CA:TRUE 67 | subjectKeyIdentifier = hash 68 | authorityKeyIdentifier = keyid:always,issuer:always 69 | 70 | [ v3_req ] 71 | basicConstraints = CA:FALSE 72 | subjectKeyIdentifier = hash -------------------------------------------------------------------------------- /TaurusTLS/Demos/TaurusFTPClient/AcceptableCerts.pas: -------------------------------------------------------------------------------- 1 | unit AcceptableCerts; 2 | 3 | interface 4 | uses 5 | System.Classes; 6 | 7 | var 8 | GAcceptableCertificates : TStrings; 9 | 10 | function GetFTPSitesIniFilePath: String; 11 | 12 | implementation 13 | uses IniFiles, System.IOUtils, System.SysUtils; 14 | 15 | function GetFTPSitesIniFilePath: String; 16 | begin 17 | Result := System.IOUtils.TPath.GetHomePath + '\IndyFTPClient'; 18 | if not DirectoryExists(Result) then 19 | begin 20 | CreateDir(Result); 21 | end; 22 | Result := Result + '\acceptable_certificates.ini'; 23 | end; 24 | 25 | procedure ReadAcceptableCertificates; 26 | var Lini : TIniFile; 27 | begin 28 | GAcceptableCertificates := TStringList.Create; 29 | LIni := TIniFile.Create(GetFTPSitesIniFilePath); 30 | try 31 | LIni.ReadSection('Acceptable_Certificates',GAcceptableCertificates); 32 | finally 33 | FreeAndNil(LIni); 34 | end; 35 | 36 | end; 37 | 38 | procedure WriteAcceptableCertificates; 39 | var Lini : TIniFile; 40 | i : Integer; 41 | begin 42 | LIni := TIniFile.Create(GetFTPSitesIniFilePath); 43 | try 44 | for i := 0 to GAcceptableCertificates.Count -1 do begin 45 | LIni.WriteString('Acceptable_Certificates', GAcceptableCertificates[i], ''); 46 | end; 47 | finally 48 | FreeAndNil(LIni); 49 | end; 50 | end; 51 | 52 | initialization 53 | ReadAcceptableCertificates; 54 | 55 | finalization 56 | WriteAcceptableCertificates; 57 | FreeAndNil(GAcceptableCertificates); 58 | end. 59 | -------------------------------------------------------------------------------- /TaurusTLS/Demos/TaurusFTPClient/CertViewer.dfm: -------------------------------------------------------------------------------- 1 | object frmCertViewer: TfrmCertViewer 2 | Left = 0 3 | Top = 0 4 | BorderStyle = bsDialog 5 | Caption = 'frmCertViewer' 6 | ClientHeight = 377 7 | ClientWidth = 556 8 | Color = clBtnFace 9 | Font.Charset = DEFAULT_CHARSET 10 | Font.Color = clBtnText 11 | Font.Height = -12 12 | Font.Name = 'Segoe UI' 13 | Font.Style = [] 14 | Position = poDesktopCenter 15 | OnCreate = FormCreate 16 | DesignSize = ( 17 | 556 18 | 377) 19 | TextHeight = 15 20 | object lblErrorMessage: TLabel 21 | Left = 8 22 | Top = 8 23 | Width = 528 24 | Height = 74 25 | Anchors = [akLeft, akTop, akRight] 26 | AutoSize = False 27 | FocusControl = redtCertView 28 | WordWrap = True 29 | ExplicitWidth = 542 30 | end 31 | object lblAcceptThisCertificate: TLabel 32 | Left = 8 33 | Top = 88 34 | Width = 119 35 | Height = 15 36 | Caption = 'A&ccept this certificate?' 37 | FocusControl = redtCertView 38 | end 39 | object Panel2: TPanel 40 | Left = 0 41 | Top = 343 42 | Width = 556 43 | Height = 34 44 | Align = alBottom 45 | BevelOuter = bvNone 46 | Font.Charset = DEFAULT_CHARSET 47 | Font.Color = clBtnText 48 | Font.Height = -12 49 | Font.Name = 'Segoe UI' 50 | Font.Style = [] 51 | ParentColor = True 52 | ParentFont = False 53 | TabOrder = 2 54 | ExplicitTop = 335 55 | ExplicitWidth = 554 56 | DesignSize = ( 57 | 556 58 | 34) 59 | object OKBtn: TButton 60 | Left = 383 61 | Top = 2 62 | Width = 75 63 | Height = 25 64 | Anchors = [akTop, akRight] 65 | Caption = '&Yes' 66 | Default = True 67 | ModalResult = 6 68 | TabOrder = 0 69 | ExplicitLeft = 381 70 | end 71 | object CancelBtn: TButton 72 | Left = 464 73 | Top = 2 74 | Width = 75 75 | Height = 25 76 | Anchors = [akTop, akRight] 77 | Cancel = True 78 | Caption = '&No' 79 | ModalResult = 7 80 | TabOrder = 1 81 | ExplicitLeft = 462 82 | end 83 | end 84 | object redtCertView: TRichEdit 85 | Left = 8 86 | Top = 104 87 | Width = 528 88 | Height = 209 89 | TabStop = False 90 | Anchors = [akLeft, akTop, akRight, akBottom] 91 | Font.Charset = ANSI_CHARSET 92 | Font.Color = clWindowText 93 | Font.Height = -12 94 | Font.Name = 'Lucida Console' 95 | Font.Style = [] 96 | Lines.Strings = ( 97 | 'redtCertView') 98 | ParentFont = False 99 | ReadOnly = True 100 | ScrollBars = ssBoth 101 | TabOrder = 0 102 | WantTabs = True 103 | WantReturns = False 104 | WordWrap = False 105 | ExplicitWidth = 526 106 | ExplicitHeight = 201 107 | end 108 | object chkacceptOnlyOnce: TCheckBox 109 | Left = 8 110 | Top = 320 111 | Width = 528 112 | Height = 17 113 | Anchors = [akLeft, akRight, akBottom] 114 | Caption = '&Accept Certificate Only Once' 115 | Checked = True 116 | State = cbChecked 117 | TabOrder = 1 118 | ExplicitTop = 312 119 | ExplicitWidth = 526 120 | end 121 | end 122 | -------------------------------------------------------------------------------- /TaurusTLS/Demos/TaurusFTPClient/ProgUtils.pas: -------------------------------------------------------------------------------- 1 | unit ProgUtils; 2 | 3 | interface 4 | 5 | uses 6 | Vcl.ComCtrls, Vcl.Forms, WinAPI.Messages; 7 | 8 | type 9 | TThemedForm = class(TForm) 10 | private 11 | procedure WMSettingChange(var Message: TWMSettingChange); message WM_SETTINGCHANGE; 12 | protected 13 | procedure HandleThemes; 14 | end; 15 | 16 | var 17 | {0 - system, 1 - light mode, 2 dark mode} 18 | GLightTheme : Integer; 19 | 20 | const 21 | THEME_DARK = 'Windows10 Dark'; 22 | THEME_LIGHT = 'Windows10'; 23 | 24 | procedure ScrollToTop(ARichEdit: TRichEdit); 25 | procedure ScrollToEnd(ARichEdit: TRichEdit); 26 | function LeftJustify(const AText: String; ALen: Integer): string; 27 | function RightJustify(const AText: String; ALen: Integer): String; 28 | function IsValidIP(const Aaddress: String): Boolean; 29 | function DlgCaptionToFormCaption(const ACaption : String) : String; 30 | 31 | function GetProgramVersion : String; 32 | 33 | procedure LaunchURL(const AURL : String); 34 | 35 | implementation 36 | 37 | uses 38 | WinAPI.Windows, 39 | ShellApi, 40 | IdIPAddress, TaurusTLSHeaders_x509, 41 | WindowsDarkMode, 42 | TaurusTLSHeaders_x509_vfy, System.SysUtils; 43 | 44 | procedure LaunchURL(const AURL : String); 45 | var LExe : TShellExecuteInfo; 46 | begin 47 | FillChar(lExe, SizeOf(LExe), Chr(0)); 48 | lExe.cbSize := SizeOf(lExe); 49 | LExe.fMask := SEE_MASK_NOCLOSEPROCESS; 50 | LExe.lpVerb := 'open'; 51 | LExe.lpFile := PChar(AURL); 52 | LExe.nShow := SW_SHOWNORMAL; // show the application normally 53 | ShellExecuteEx(@LExe); 54 | end; 55 | 56 | function GetProgramVersion : String; 57 | var LMajor, LMinor, LBuild : Cardinal; 58 | begin 59 | GetProductVersion(ParamStr(0), LMajor, LMinor, LBuild); 60 | Result := IntToStr(LMajor)+'.'+IntToStr(LMinor)+'.'+IntToStr(LBuild); 61 | 62 | end; 63 | 64 | function DlgCaptionToFormCaption(const ACaption : String) : String; 65 | var i : Integer; 66 | begin 67 | Result := StringReplace(ACaption,'&','',[]); 68 | //remove trailing ... 69 | for i := Length(Result) downto 1 do 70 | begin 71 | if Result[i] = '.' then 72 | begin 73 | Delete(Result,i,1); 74 | end 75 | else 76 | begin 77 | break; 78 | end; 79 | end; 80 | end; 81 | 82 | function IsValidIP(const Aaddress: String): Boolean; 83 | var 84 | LIP: TIdIPAddress; 85 | begin 86 | LIP := TIdIPAddress.MakeAddressObject(Aaddress); 87 | Result := Assigned(LIP); 88 | if Result then 89 | begin 90 | FreeAndNil(LIP); 91 | end; 92 | end; 93 | 94 | function LeftJustify(const AText: String; ALen: Integer): string; 95 | begin 96 | Result := ''; 97 | if ALen > Length(AText) then 98 | begin 99 | Result := AText + StringOfChar(' ', ALen - Length(AText)); 100 | end 101 | else 102 | begin 103 | Result := AText; 104 | end; 105 | end; 106 | 107 | function RightJustify(const AText: String; ALen: Integer): String; 108 | begin 109 | Result := ''; 110 | if ALen > Length(AText) then 111 | begin 112 | Result := StringOfChar(' ',ALen - Length(AText)) + AText; 113 | end 114 | else 115 | begin 116 | Result := AText; 117 | end; 118 | end; 119 | 120 | procedure ScrollToEnd(ARichEdit: TRichEdit); 121 | var 122 | isSelectionHidden: Boolean; 123 | begin 124 | ARichEdit.SelStart := ARichEdit.Perform(WinAPI.Messages.EM_LINEINDEX, ARichEdit.Lines.Count, 0); 125 | // Set caret at end 126 | isSelectionHidden := ARichEdit.HideSelection; 127 | try 128 | ARichEdit.HideSelection := False; 129 | ARichEdit.Perform(WinAPI.Messages.EM_SCROLLCARET, 0, 0); // Scroll to caret 130 | finally 131 | ARichEdit.HideSelection := isSelectionHidden; 132 | end; 133 | end; 134 | 135 | procedure ScrollToTop(ARichEdit: TRichEdit); 136 | var 137 | isSelectionHidden: Boolean; 138 | begin 139 | ARichEdit.SelStart := ARichEdit.Perform(WinAPI.Messages.EM_LINEINDEX, 0, 0); // Set caret at end 140 | isSelectionHidden := ARichEdit.HideSelection; 141 | try 142 | ARichEdit.HideSelection := False; 143 | ARichEdit.Perform(WinAPI.Messages.EM_SCROLLCARET, 0, 0); // Scroll to caret 144 | finally 145 | ARichEdit.HideSelection := isSelectionHidden; 146 | end; 147 | end; 148 | 149 | { TThemedForm } 150 | 151 | procedure TThemedForm.HandleThemes; 152 | begin 153 | case GLightTheme of 154 | 0 : SetAppropriateThemeMode(THEME_DARK, THEME_LIGHT); 155 | 1 : SetSpecificThemeMode(False, THEME_DARK, THEME_LIGHT); 156 | else 157 | SetSpecificThemeMode(True, THEME_DARK, THEME_LIGHT); 158 | end; 159 | end; 160 | 161 | procedure TThemedForm.WMSettingChange(var Message: TWMSettingChange); 162 | begin 163 | HandleThemes; 164 | end; 165 | 166 | end. 167 | -------------------------------------------------------------------------------- /TaurusTLS/Demos/TaurusFTPClient/TaurusFTPClient.dpr: -------------------------------------------------------------------------------- 1 | program TaurusFTPClient; 2 | 3 | uses 4 | Vcl.Forms, 5 | mainform in 'mainform.pas' {frmMainForm}, 6 | dkgFTPConnect in 'dkgFTPConnect.pas' {frmConnect}, 7 | frmAbout in 'frmAbout.pas' {AboutBox}, 8 | settingsdlg in 'settingsdlg.pas' {frmSettings}, 9 | frmBookmarks in 'frmBookmarks.pas' {frmFTPSites}, 10 | CertViewer in 'CertViewer.pas' {frmCertViewer}, 11 | ProgUtils in 'ProgUtils.pas', 12 | AcceptableCerts in 'AcceptableCerts.pas', 13 | dlgFTPProxySettings in 'dlgFTPProxySettings.pas' {frmFTPProxySettings}, 14 | dlgNATSettings in 'dlgNATSettings.pas' {frmNATSettings}, 15 | dlgProxySettings in 'dlgProxySettings.pas' {frmProxySettings}, 16 | frmProgress in 'frmProgress.pas' {frmFileProgress}, 17 | Vcl.Themes, 18 | Vcl.Styles; 19 | 20 | {$R *.res} 21 | 22 | begin 23 | Application.Initialize; 24 | Application.MainFormOnTaskbar := True; 25 | TStyleManager.TrySetStyle('Windows10'); 26 | Application.CreateForm(TfrmMainForm, frmMainForm); 27 | Application.Run; 28 | end. 29 | -------------------------------------------------------------------------------- /TaurusTLS/Demos/TaurusFTPClient/TaurusFTPClient_Icon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Demos/TaurusFTPClient/TaurusFTPClient_Icon.ico -------------------------------------------------------------------------------- /TaurusTLS/Demos/TaurusFTPClient/WindowsDarkMode.pas: -------------------------------------------------------------------------------- 1 | unit WindowsDarkMode; 2 | 3 | { 4 | BSD 3-Clause License 5 | 6 | Copyright (c) 2025, Ian Barker 7 | 8 | Redistribution and use in source and binary forms, with or without 9 | modification, are permitted provided that the following conditions are met: 10 | 11 | 1. Redistributions of source code must retain the above copyright notice, this 12 | list of conditions and the following disclaimer. 13 | 14 | 2. Redistributions in binary form must reproduce the above copyright notice, 15 | this list of conditions and the following disclaimer in the documentation 16 | and/or other materials provided with the distribution. 17 | 18 | 3. Neither the name of the copyright holder nor the names of its 19 | contributors may be used to endorse or promote products derived from 20 | this software without specific prior written permission. 21 | 22 | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 23 | AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 24 | IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE 25 | DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE 26 | FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 27 | DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR 28 | SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER 29 | CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, 30 | OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE 31 | OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 32 | 33 | Modified by J. Peter Mugaas 34 | } 35 | 36 | interface 37 | {$I TaurusTLSCompilerDefines.inc} 38 | 39 | // Checks the Windows registry to see if Windows Dark Mode is enabled 40 | function DarkModeIsEnabled: boolean; 41 | 42 | // Automatically sets a Dark Mode theme is Windows is running in Dark Mode 43 | // To use: 44 | // 1. Got to project properties 45 | // 2. Select appearance and choose two or more themes. Note down the names! 46 | // 3. In your FormCreate (or wherever) put the following line: 47 | // SetAppropriateThemeMode(**name_of_the_dark_theme**, **namme_of_the_non_dark_theme**); 48 | // 49 | // For example: 50 | // SetAppropriateThemeMode('Carbon', 'Windows10'); 51 | // 52 | procedure SetAppropriateThemeMode(const DarkModeThemeName, LightModeThemeName: string); 53 | 54 | // Sets either a Dark Mode or non Dark mode theme based in the "AsDarkMode" boolean 55 | // For example: 56 | // SetSpecificThemeMode(False, 'TheDarkModeThemeName', 'TheLightModeThemeName'); 57 | // Would change the application theme to the theme with the name 'TheLightModeThemeName' 58 | // if it exists. 59 | // 60 | procedure SetSpecificThemeMode(const AsDarkMode: Boolean; const DarkModeThemeName, LightModeThemeName: string); 61 | 62 | 63 | implementation 64 | uses 65 | {$IFDEF MSWINDOWS} 66 | Winapi.Windows, // for the pre-defined registry key constants 67 | System.Win.Registry, // for the registry read access 68 | {$ENDIF} 69 | VCL.themes; // Used for access to TStyleManager 70 | 71 | procedure SetAppropriateThemeMode(const DarkModeThemeName, LightModeThemeName: string); 72 | begin 73 | SetSpecificThemeMode(DarkModeIsEnabled, DarkModeThemeName, LightModeThemeName); 74 | end; 75 | 76 | procedure SetSpecificThemeMode(const AsDarkMode: Boolean; const DarkModeThemeName, LightModeThemeName: string); 77 | {$IFNDEF USE_INLINE_VAR} 78 | var 79 | ChosenTheme: string; 80 | {$ENDIF} 81 | begin 82 | {$IFDEF USE_INLINE_VAR} 83 | var 84 | ChosenTheme: string; 85 | {$ENDIF} 86 | if AsDarkMode then 87 | ChosenTheme := DarkModeThemeName 88 | else 89 | ChosenTheme := LightModeThemeName; 90 | TStyleManager.TrySetStyle(ChosenTheme, False); 91 | end; 92 | 93 | function DarkModeIsEnabled: boolean; 94 | {$IFDEF MSWINDOWS} 95 | const 96 | TheKey = 'Software\Microsoft\Windows\CurrentVersion\Themes\Personalize\'; 97 | TheValue = 'AppsUseLightTheme'; 98 | var 99 | Reg: TRegistry; 100 | {$ENDIF} 101 | begin 102 | 103 | Result := False; // There is no dark side - the Jedi are victorious! 104 | 105 | // This relies on a registry setting only available on MS Windows 106 | // If the developer has somehow managed to get to this point then tell 107 | // them not to do this! 108 | {$IFNDEF MSWINDOWS} 109 | {$MESSAGE WARN '"DarkModeIsEnabled" will only work on MS Windows targets'} 110 | {$ELSE} 111 | Reg := TRegistry.Create(KEY_READ); 112 | try 113 | Reg.RootKey := HKEY_CURRENT_USER; 114 | if Reg.KeyExists(TheKey) then 115 | if Reg.OpenKey(TheKey, False) then 116 | try 117 | if Reg.ValueExists(TheValue) then 118 | Result := Reg.ReadInteger(TheValue) = 0; 119 | finally 120 | Reg.CloseKey; 121 | end; 122 | finally 123 | Reg.Free; 124 | end; 125 | {$ENDIF} 126 | end; 127 | 128 | end. 129 | -------------------------------------------------------------------------------- /TaurusTLS/Demos/TaurusFTPClient/bull-silhouette-clipart (1).ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Demos/TaurusFTPClient/bull-silhouette-clipart (1).ico -------------------------------------------------------------------------------- /TaurusTLS/Demos/TaurusFTPClient/bull_150.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Demos/TaurusFTPClient/bull_150.png -------------------------------------------------------------------------------- /TaurusTLS/Demos/TaurusFTPClient/bull_44.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Demos/TaurusFTPClient/bull_44.png -------------------------------------------------------------------------------- /TaurusTLS/Demos/TaurusFTPClient/bullhead_150.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Demos/TaurusFTPClient/bullhead_150.png -------------------------------------------------------------------------------- /TaurusTLS/Demos/TaurusFTPClient/bullhead_44.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Demos/TaurusFTPClient/bullhead_44.png -------------------------------------------------------------------------------- /TaurusTLS/Demos/TaurusFTPClient/bullshead.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Demos/TaurusFTPClient/bullshead.ico -------------------------------------------------------------------------------- /TaurusTLS/Demos/TaurusFTPClient/bwIndy_victory_64x64.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Demos/TaurusFTPClient/bwIndy_victory_64x64.png -------------------------------------------------------------------------------- /TaurusTLS/Demos/TaurusFTPClient/dlgFTPProxySettings.dfm: -------------------------------------------------------------------------------- 1 | object frmFTPProxySettings: TfrmFTPProxySettings 2 | Left = 0 3 | Top = 0 4 | BorderStyle = bsDialog 5 | Caption = 'frmFTPProxySettings' 6 | ClientHeight = 187 7 | ClientWidth = 472 8 | Color = clBtnFace 9 | Font.Charset = DEFAULT_CHARSET 10 | Font.Color = clWindowText 11 | Font.Height = -12 12 | Font.Name = 'Segoe UI' 13 | Font.Style = [] 14 | Position = poDesktopCenter 15 | TextHeight = 15 16 | object lblProxyPort: TLabel 17 | Left = 18 18 | Top = 129 19 | Width = 72 20 | Height = 23 21 | Alignment = taRightJustify 22 | AutoSize = False 23 | Caption = 'P&ort:' 24 | Enabled = False 25 | FocusControl = spededtProxyPort 26 | Layout = tlCenter 27 | end 28 | object lblProxyServerPassword: TLabel 29 | Left = 18 30 | Top = 100 31 | Width = 72 32 | Height = 23 33 | Alignment = taRightJustify 34 | AutoSize = False 35 | Caption = 'Password:' 36 | Enabled = False 37 | FocusControl = edtProxyServerPassword 38 | Layout = tlCenter 39 | end 40 | object lblProxyServerUserName: TLabel 41 | Left = 18 42 | Top = 71 43 | Width = 72 44 | Height = 23 45 | Alignment = taRightJustify 46 | AutoSize = False 47 | Caption = 'Username:' 48 | Enabled = False 49 | FocusControl = edtProxyServerUserName 50 | Layout = tlCenter 51 | end 52 | object lblProxyServerName: TLabel 53 | Left = 18 54 | Top = 42 55 | Width = 72 56 | Height = 23 57 | Alignment = taRightJustify 58 | AutoSize = False 59 | Caption = 'Proxy &Server:' 60 | Enabled = False 61 | FocusControl = edtProxyServerName 62 | Layout = tlCenter 63 | end 64 | object lblProxyType: TLabel 65 | Left = 18 66 | Top = 13 67 | Width = 72 68 | Height = 23 69 | Alignment = taRightJustify 70 | AutoSize = False 71 | Caption = '&Type:' 72 | FocusControl = cboProxyType 73 | Layout = tlCenter 74 | end 75 | object Panel2: TPanel 76 | Left = 0 77 | Top = 153 78 | Width = 472 79 | Height = 34 80 | Align = alBottom 81 | BevelOuter = bvNone 82 | Font.Charset = DEFAULT_CHARSET 83 | Font.Color = clBtnText 84 | Font.Height = -12 85 | Font.Name = 'Segoe UI' 86 | Font.Style = [] 87 | ParentColor = True 88 | ParentFont = False 89 | TabOrder = 5 90 | ExplicitTop = 145 91 | ExplicitWidth = 470 92 | DesignSize = ( 93 | 472 94 | 34) 95 | object OKBtn: TButton 96 | Left = 307 97 | Top = 2 98 | Width = 75 99 | Height = 25 100 | Anchors = [akTop, akRight] 101 | Caption = 'OK' 102 | Default = True 103 | ModalResult = 1 104 | TabOrder = 0 105 | end 106 | object CancelBtn: TButton 107 | Left = 388 108 | Top = 2 109 | Width = 75 110 | Height = 25 111 | Anchors = [akTop, akRight] 112 | Cancel = True 113 | Caption = 'Cancel' 114 | ModalResult = 2 115 | TabOrder = 1 116 | end 117 | end 118 | object spededtProxyPort: TSpinEdit 119 | Left = 97 120 | Top = 129 121 | Width = 121 122 | Height = 24 123 | Enabled = False 124 | MaxValue = 65535 125 | MinValue = 1 126 | TabOrder = 4 127 | Value = 1 128 | end 129 | object edtProxyServerPassword: TEdit 130 | Left = 97 131 | Top = 100 132 | Width = 369 133 | Height = 23 134 | Enabled = False 135 | PasswordChar = '*' 136 | TabOrder = 3 137 | end 138 | object edtProxyServerUserName: TEdit 139 | Left = 97 140 | Top = 71 141 | Width = 369 142 | Height = 23 143 | Enabled = False 144 | TabOrder = 2 145 | end 146 | object edtProxyServerName: TEdit 147 | Left = 97 148 | Top = 42 149 | Width = 369 150 | Height = 23 151 | Enabled = False 152 | TabOrder = 1 153 | end 154 | object cboProxyType: TComboBox 155 | Left = 97 156 | Top = 13 157 | Width = 369 158 | Height = 23 159 | Style = csDropDownList 160 | TabOrder = 0 161 | OnChange = cboProxyTypeChange 162 | Items.Strings = ( 163 | 'None' 164 | 'Send command USER user@hostname - USER after login' 165 | 'Send command SITE (with logon)' 166 | 'Send command OPEN' 167 | 'USER user@firewalluser@hostname / PASS pass@firewallpass' 168 | 169 | 'First use the USER and PASS command with the firewall username a' + 170 | 'nd password, and then with the target host username and password' + 171 | '.' 172 | 'USER hostuserId@hostname firewallUsername' 173 | 'Novell BorderManager Proxy') 174 | end 175 | end 176 | -------------------------------------------------------------------------------- /TaurusTLS/Demos/TaurusFTPClient/dlgFTPProxySettings.pas: -------------------------------------------------------------------------------- 1 | unit dlgFTPProxySettings; 2 | 3 | interface 4 | 5 | uses 6 | Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, 7 | System.Classes, Vcl.Graphics, 8 | Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, 9 | Vcl.Samples.Spin, ProgUtils; 10 | 11 | type 12 | TfrmFTPProxySettings = class(TThemedForm) 13 | Panel2: TPanel; 14 | OKBtn: TButton; 15 | CancelBtn: TButton; 16 | spededtProxyPort: TSpinEdit; 17 | lblProxyPort: TLabel; 18 | edtProxyServerPassword: TEdit; 19 | lblProxyServerPassword: TLabel; 20 | edtProxyServerUserName: TEdit; 21 | lblProxyServerUserName: TLabel; 22 | edtProxyServerName: TEdit; 23 | lblProxyServerName: TLabel; 24 | cboProxyType: TComboBox; 25 | lblProxyType: TLabel; 26 | procedure cboProxyTypeChange(Sender: TObject); 27 | private 28 | { Private declarations } 29 | procedure ValidateFeilds; 30 | public 31 | { Public declarations } 32 | end; 33 | 34 | var 35 | frmFTPProxySettings: TfrmFTPProxySettings; 36 | 37 | implementation 38 | 39 | uses IdIPAddress; 40 | 41 | {$R *.dfm} 42 | { TfrmNATSettings } 43 | 44 | procedure TfrmFTPProxySettings.cboProxyTypeChange(Sender: TObject); 45 | begin 46 | ValidateFeilds; 47 | end; 48 | 49 | procedure TfrmFTPProxySettings.ValidateFeilds; 50 | var 51 | LBool : Boolean; 52 | begin 53 | if cboProxyType.ItemIndex > 0 then 54 | begin 55 | OKBtn.Enabled := (edtProxyServerName.Text <> ''); 56 | end 57 | else 58 | begin 59 | OkBtn.Enabled := True; 60 | end; 61 | //validate proxy/host feilds - enable or disable appropriately 62 | LBool := cboProxyType.ItemIndex > 0; 63 | edtProxyServerName.Enabled := LBool; 64 | lblProxyServerName.Enabled := LBool; 65 | edtProxyServerUserName.Enabled := LBool; 66 | lblProxyServerUserName.Enabled := LBool; 67 | edtProxyServerPassword.Enabled := LBool; 68 | lblProxyServerPassword.Enabled := LBool; 69 | Self.spededtProxyPort.Enabled := LBool; 70 | Self.lblProxyPort.Enabled := LBool; 71 | end; 72 | 73 | end. 74 | -------------------------------------------------------------------------------- /TaurusTLS/Demos/TaurusFTPClient/dlgNATSettings.dfm: -------------------------------------------------------------------------------- 1 | object frmNATSettings: TfrmNATSettings 2 | Left = 0 3 | Top = 0 4 | BorderStyle = bsDialog 5 | Caption = 'frmNATSettings' 6 | ClientHeight = 138 7 | ClientWidth = 374 8 | Color = clBtnFace 9 | Font.Charset = DEFAULT_CHARSET 10 | Font.Color = clWindowText 11 | Font.Height = -12 12 | Font.Name = 'Segoe UI' 13 | Font.Style = [] 14 | Position = poDesktopCenter 15 | DesignSize = ( 16 | 374 17 | 138) 18 | TextHeight = 15 19 | object lblMaximumPort: TLabel 20 | Left = 226 21 | Top = 76 22 | Width = 57 23 | Height = 15 24 | Anchors = [akTop, akRight] 25 | Caption = 'M&aximum:' 26 | FocusControl = spnedtPortMaximum 27 | Layout = tlCenter 28 | ExplicitLeft = 230 29 | end 30 | object lblMinPort: TLabel 31 | Left = 18 32 | Top = 76 33 | Width = 72 34 | Height = 23 35 | Alignment = taRightJustify 36 | AutoSize = False 37 | Caption = '&Minimum:' 38 | FocusControl = spnedtPortMinimum 39 | Layout = tlCenter 40 | end 41 | object lblPorts: TLabel 42 | Left = 18 43 | Top = 47 44 | Width = 348 45 | Height = 23 46 | Alignment = taCenter 47 | AutoSize = False 48 | Caption = 'Data Port Range for PORT/EPRT transfers.' 49 | Layout = tlCenter 50 | end 51 | object lblNATIPAddress: TLabel 52 | Left = 18 53 | Top = 13 54 | Width = 72 55 | Height = 23 56 | Alignment = taRightJustify 57 | AutoSize = False 58 | Caption = '&IP Address:' 59 | FocusControl = edtExternalIPAddress 60 | Layout = tlCenter 61 | end 62 | object Panel2: TPanel 63 | Left = 0 64 | Top = 104 65 | Width = 374 66 | Height = 34 67 | Align = alBottom 68 | BevelOuter = bvNone 69 | Font.Charset = DEFAULT_CHARSET 70 | Font.Color = clBtnText 71 | Font.Height = -12 72 | Font.Name = 'Segoe UI' 73 | Font.Style = [] 74 | ParentColor = True 75 | ParentFont = False 76 | TabOrder = 3 77 | ExplicitTop = 96 78 | ExplicitWidth = 372 79 | DesignSize = ( 80 | 374 81 | 34) 82 | object OKBtn: TButton 83 | Left = 209 84 | Top = 2 85 | Width = 75 86 | Height = 25 87 | Anchors = [akTop, akRight] 88 | Caption = 'OK' 89 | Default = True 90 | ModalResult = 1 91 | TabOrder = 0 92 | end 93 | object CancelBtn: TButton 94 | Left = 290 95 | Top = 2 96 | Width = 75 97 | Height = 25 98 | Anchors = [akTop, akRight] 99 | Cancel = True 100 | Caption = 'Cancel' 101 | ModalResult = 2 102 | TabOrder = 1 103 | end 104 | end 105 | object spnedtPortMaximum: TSpinEdit 106 | Left = 290 107 | Top = 76 108 | Width = 75 109 | Height = 24 110 | Anchors = [akTop, akRight] 111 | MaxValue = 65535 112 | MinValue = 0 113 | TabOrder = 2 114 | Value = 0 115 | OnChange = spnedtPortMaximumChange 116 | end 117 | object spnedtPortMinimum: TSpinEdit 118 | Left = 105 119 | Top = 76 120 | Width = 75 121 | Height = 24 122 | MaxValue = 65535 123 | MinValue = 0 124 | TabOrder = 1 125 | Value = 0 126 | OnChange = spnedtPortMinimumChange 127 | end 128 | object edtExternalIPAddress: TEdit 129 | Left = 105 130 | Top = 13 131 | Width = 259 132 | Height = 23 133 | Anchors = [akLeft, akTop, akRight] 134 | TabOrder = 0 135 | TextHint = 'Leave empty unless you are behind a NAT' 136 | OnChange = edtExternalIPAddressChange 137 | end 138 | end 139 | -------------------------------------------------------------------------------- /TaurusTLS/Demos/TaurusFTPClient/dlgNATSettings.pas: -------------------------------------------------------------------------------- 1 | unit dlgNATSettings; 2 | 3 | interface 4 | 5 | uses 6 | Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, 7 | System.Classes, Vcl.Graphics, 8 | Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, 9 | Vcl.Samples.Spin, ProgUtils; 10 | 11 | type 12 | TfrmNATSettings = class(TThemedForm) 13 | Panel2: TPanel; 14 | OKBtn: TButton; 15 | CancelBtn: TButton; 16 | spnedtPortMaximum: TSpinEdit; 17 | lblMaximumPort: TLabel; 18 | spnedtPortMinimum: TSpinEdit; 19 | lblMinPort: TLabel; 20 | lblPorts: TLabel; 21 | edtExternalIPAddress: TEdit; 22 | lblNATIPAddress: TLabel; 23 | procedure edtExternalIPAddressChange(Sender: TObject); 24 | procedure spnedtPortMinimumChange(Sender: TObject); 25 | procedure spnedtPortMaximumChange(Sender: TObject); 26 | private 27 | { Private declarations } 28 | procedure ValidateFeilds; 29 | public 30 | { Public declarations } 31 | end; 32 | 33 | var 34 | frmNATSettings: TfrmNATSettings; 35 | 36 | implementation 37 | 38 | uses IdIPAddress; 39 | 40 | {$R *.dfm} 41 | { TfrmNATSettings } 42 | 43 | procedure TfrmNATSettings.edtExternalIPAddressChange(Sender: TObject); 44 | begin 45 | ValidateFeilds; 46 | end; 47 | 48 | procedure TfrmNATSettings.spnedtPortMaximumChange(Sender: TObject); 49 | begin 50 | ValidateFeilds; 51 | end; 52 | 53 | procedure TfrmNATSettings.spnedtPortMinimumChange(Sender: TObject); 54 | begin 55 | ValidateFeilds; 56 | end; 57 | 58 | procedure TfrmNATSettings.ValidateFeilds; 59 | var 60 | LIP: String; 61 | begin 62 | LIP := edtExternalIPAddress.Text; 63 | Self.OKBtn.Enabled := (LIP = '') or IsValidIP(LIP); 64 | if OKBtn.Enabled then 65 | begin 66 | if (spnedtPortMinimum.Value = 0) and (spnedtPortMaximum.Value = 0) then 67 | begin 68 | OKBtn.Enabled := True; 69 | end 70 | else 71 | begin 72 | OKBtn.Enabled := (spnedtPortMinimum.Value < spnedtPortMaximum.Value); 73 | end; 74 | end; 75 | end; 76 | 77 | end. 78 | -------------------------------------------------------------------------------- /TaurusTLS/Demos/TaurusFTPClient/dlgProxySettings.dfm: -------------------------------------------------------------------------------- 1 | object frmProxySettings: TfrmProxySettings 2 | Left = 0 3 | Top = 0 4 | BorderStyle = bsDialog 5 | Caption = 'frmFTPProxySettings' 6 | ClientHeight = 187 7 | ClientWidth = 472 8 | Color = clBtnFace 9 | Font.Charset = DEFAULT_CHARSET 10 | Font.Color = clWindowText 11 | Font.Height = -12 12 | Font.Name = 'Segoe UI' 13 | Font.Style = [] 14 | Position = poDesktopCenter 15 | TextHeight = 15 16 | object lblProxyPort: TLabel 17 | Left = 18 18 | Top = 129 19 | Width = 72 20 | Height = 23 21 | Alignment = taRightJustify 22 | AutoSize = False 23 | Caption = 'P&ort:' 24 | Enabled = False 25 | FocusControl = spededtProxyPort 26 | Layout = tlCenter 27 | end 28 | object lblProxyServerPassword: TLabel 29 | Left = 18 30 | Top = 100 31 | Width = 72 32 | Height = 23 33 | Alignment = taRightJustify 34 | AutoSize = False 35 | Caption = 'Password:' 36 | Enabled = False 37 | FocusControl = edtProxyServerPassword 38 | Layout = tlCenter 39 | end 40 | object lblProxyServerUserName: TLabel 41 | Left = 18 42 | Top = 71 43 | Width = 72 44 | Height = 23 45 | Alignment = taRightJustify 46 | AutoSize = False 47 | Caption = 'Username:' 48 | Enabled = False 49 | FocusControl = edtProxyServerUserName 50 | Layout = tlCenter 51 | end 52 | object lblProxyServerName: TLabel 53 | Left = 18 54 | Top = 42 55 | Width = 72 56 | Height = 23 57 | Alignment = taRightJustify 58 | AutoSize = False 59 | Caption = 'Proxy &Server:' 60 | Enabled = False 61 | FocusControl = edtProxyServerName 62 | Layout = tlCenter 63 | end 64 | object lblProxyType: TLabel 65 | Left = 18 66 | Top = 13 67 | Width = 72 68 | Height = 23 69 | Alignment = taRightJustify 70 | AutoSize = False 71 | Caption = '&Type:' 72 | FocusControl = cboProxyType 73 | Layout = tlCenter 74 | end 75 | object Panel2: TPanel 76 | Left = 0 77 | Top = 153 78 | Width = 472 79 | Height = 34 80 | Align = alBottom 81 | BevelOuter = bvNone 82 | Font.Charset = DEFAULT_CHARSET 83 | Font.Color = clBtnText 84 | Font.Height = -12 85 | Font.Name = 'Segoe UI' 86 | Font.Style = [] 87 | ParentColor = True 88 | ParentFont = False 89 | TabOrder = 5 90 | ExplicitTop = 145 91 | ExplicitWidth = 470 92 | DesignSize = ( 93 | 472 94 | 34) 95 | object OKBtn: TButton 96 | Left = 309 97 | Top = 2 98 | Width = 75 99 | Height = 25 100 | Anchors = [akTop, akRight] 101 | Caption = 'OK' 102 | Default = True 103 | ModalResult = 1 104 | TabOrder = 0 105 | ExplicitLeft = 307 106 | end 107 | object CancelBtn: TButton 108 | Left = 390 109 | Top = 2 110 | Width = 75 111 | Height = 25 112 | Anchors = [akTop, akRight] 113 | Cancel = True 114 | Caption = 'Cancel' 115 | ModalResult = 2 116 | TabOrder = 1 117 | ExplicitLeft = 388 118 | end 119 | end 120 | object spededtProxyPort: TSpinEdit 121 | Left = 97 122 | Top = 129 123 | Width = 121 124 | Height = 24 125 | Enabled = False 126 | MaxValue = 65535 127 | MinValue = 1 128 | TabOrder = 4 129 | Value = 1 130 | end 131 | object edtProxyServerPassword: TEdit 132 | Left = 97 133 | Top = 100 134 | Width = 369 135 | Height = 23 136 | Enabled = False 137 | PasswordChar = '*' 138 | TabOrder = 3 139 | end 140 | object edtProxyServerUserName: TEdit 141 | Left = 97 142 | Top = 71 143 | Width = 369 144 | Height = 23 145 | Enabled = False 146 | TabOrder = 2 147 | end 148 | object edtProxyServerName: TEdit 149 | Left = 97 150 | Top = 42 151 | Width = 369 152 | Height = 23 153 | Enabled = False 154 | TabOrder = 1 155 | end 156 | object cboProxyType: TComboBox 157 | Left = 97 158 | Top = 13 159 | Width = 369 160 | Height = 23 161 | Style = csDropDownList 162 | ItemIndex = 0 163 | TabOrder = 0 164 | Text = 'None' 165 | OnChange = cboProxyTypeChange 166 | Items.Strings = ( 167 | 'None' 168 | ' HTTP CONNECT proxy' 169 | 'SOCKS4' 170 | 'SOCKS4a' 171 | 'SOCKS5') 172 | end 173 | end 174 | -------------------------------------------------------------------------------- /TaurusTLS/Demos/TaurusFTPClient/dlgProxySettings.pas: -------------------------------------------------------------------------------- 1 | unit dlgProxySettings; 2 | 3 | interface 4 | 5 | uses 6 | Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, 7 | System.Classes, Vcl.Graphics, 8 | Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, 9 | Vcl.Samples.Spin, ProgUtils; 10 | 11 | type 12 | TfrmProxySettings = class(TThemedForm) 13 | Panel2: TPanel; 14 | OKBtn: TButton; 15 | CancelBtn: TButton; 16 | spededtProxyPort: TSpinEdit; 17 | lblProxyPort: TLabel; 18 | edtProxyServerPassword: TEdit; 19 | lblProxyServerPassword: TLabel; 20 | edtProxyServerUserName: TEdit; 21 | lblProxyServerUserName: TLabel; 22 | edtProxyServerName: TEdit; 23 | lblProxyServerName: TLabel; 24 | cboProxyType: TComboBox; 25 | lblProxyType: TLabel; 26 | procedure cboProxyTypeChange(Sender: TObject); 27 | private 28 | { Private declarations } 29 | procedure ValidateFeilds; 30 | public 31 | { Public declarations } 32 | end; 33 | 34 | var 35 | frmProxySettings: TfrmProxySettings; 36 | 37 | implementation 38 | 39 | uses IdIPAddress; 40 | 41 | {$R *.dfm} 42 | { TfrmNATSettings } 43 | 44 | procedure TfrmProxySettings.cboProxyTypeChange(Sender: TObject); 45 | begin 46 | ValidateFeilds; 47 | end; 48 | 49 | procedure TfrmProxySettings.ValidateFeilds; 50 | var 51 | LBool : Boolean; 52 | begin 53 | if cboProxyType.ItemIndex > 0 then 54 | begin 55 | OKBtn.Enabled := (edtProxyServerName.Text <> ''); 56 | end 57 | else 58 | begin 59 | OkBtn.Enabled := True; 60 | end; 61 | //validate proxy/host feilds - enable or disable appropriately 62 | LBool := cboProxyType.ItemIndex > 0; 63 | edtProxyServerName.Enabled := LBool; 64 | lblProxyServerName.Enabled := LBool; 65 | edtProxyServerUserName.Enabled := LBool; 66 | lblProxyServerUserName.Enabled := LBool; 67 | edtProxyServerPassword.Enabled := LBool; 68 | lblProxyServerPassword.Enabled := LBool; 69 | Self.spededtProxyPort.Enabled := LBool; 70 | Self.lblProxyPort.Enabled := LBool; 71 | end; 72 | 73 | end. 74 | -------------------------------------------------------------------------------- /TaurusTLS/Demos/TaurusFTPClient/frmAbout.pas: -------------------------------------------------------------------------------- 1 | unit frmAbout; 2 | 3 | interface 4 | 5 | uses WinApi.Windows, System.SysUtils, System.Classes, Vcl.Graphics, 6 | Vcl.Forms, Vcl.Controls, Vcl.StdCtrls, Vcl.Buttons, Vcl.ExtCtrls, 7 | Vcl.BaseImageCollection, Vcl.ImageCollection, Vcl.VirtualImage, 8 | ProgUtils; 9 | 10 | type 11 | TAboutBox = class(TThemedForm) 12 | Panel1: TPanel; 13 | ProductName: TLabel; 14 | Version: TLabel; 15 | Copyright: TLabel; 16 | Comments: TLabel; 17 | OKButton: TButton; 18 | VirtualImage1: TVirtualImage; 19 | ImageCollection1: TImageCollection; 20 | LinkLabel1: TLinkLabel; 21 | VirtualImage2: TVirtualImage; 22 | procedure FormCreate(Sender: TObject); 23 | procedure LinkLabel1Click(Sender: TObject); 24 | procedure VirtualImage1Click(Sender: TObject); 25 | procedure VirtualImage2Click(Sender: TObject); 26 | private 27 | { Private declarations } 28 | public 29 | { Public declarations } 30 | end; 31 | 32 | var 33 | AboutBox: TAboutBox; 34 | 35 | implementation 36 | uses ShellApi; 37 | 38 | {$R *.dfm} 39 | 40 | procedure TAboutBox.FormCreate(Sender: TObject); 41 | 42 | begin 43 | Self.Version.Caption := GetProgramVersion; 44 | Self.ProductName.Caption := Application.Title; 45 | end; 46 | 47 | procedure TAboutBox.LinkLabel1Click(Sender: TObject); 48 | begin 49 | LaunchURL(LinkLabel1.Hint); 50 | end; 51 | 52 | procedure TAboutBox.VirtualImage1Click(Sender: TObject); 53 | begin 54 | LaunchURL('https://github.com/JPeterMugaas/TaurusTLS'); 55 | end; 56 | 57 | procedure TAboutBox.VirtualImage2Click(Sender: TObject); 58 | begin 59 | LaunchURL('https://www.indyproject.org/'); 60 | end; 61 | 62 | end. 63 | 64 | -------------------------------------------------------------------------------- /TaurusTLS/Demos/TaurusFTPClient/frmBookmarks.dfm: -------------------------------------------------------------------------------- 1 | object frmFTPSites: TfrmFTPSites 2 | Left = 0 3 | Top = 0 4 | BorderStyle = bsDialog 5 | Caption = 'FTP Sites' 6 | ClientHeight = 294 7 | ClientWidth = 267 8 | Color = clBtnFace 9 | Font.Charset = DEFAULT_CHARSET 10 | Font.Color = clWindowText 11 | Font.Height = -12 12 | Font.Name = 'Segoe UI' 13 | Font.Style = [] 14 | Position = poScreenCenter 15 | OnCreate = FormCreate 16 | OnDestroy = FormDestroy 17 | DesignSize = ( 18 | 267 19 | 294) 20 | TextHeight = 15 21 | object lblFTPSites: TLabel 22 | Left = 8 23 | Top = 11 24 | Width = 47 25 | Height = 15 26 | Caption = '&FTP Sites' 27 | FocusControl = lbxFTPSites 28 | end 29 | object Panel2: TPanel 30 | Left = 0 31 | Top = 260 32 | Width = 267 33 | Height = 34 34 | Align = alBottom 35 | BevelOuter = bvNone 36 | Font.Charset = DEFAULT_CHARSET 37 | Font.Color = clBtnText 38 | Font.Height = -12 39 | Font.Name = 'Segoe UI' 40 | Font.Style = [] 41 | ParentColor = True 42 | ParentFont = False 43 | TabOrder = 4 44 | ExplicitTop = 252 45 | ExplicitWidth = 265 46 | DesignSize = ( 47 | 267 48 | 34) 49 | object OKBtn: TButton 50 | Left = 104 51 | Top = 2 52 | Width = 75 53 | Height = 25 54 | Anchors = [akTop, akRight] 55 | Caption = 'OK' 56 | Default = True 57 | ModalResult = 1 58 | TabOrder = 0 59 | ExplicitLeft = 102 60 | end 61 | object CancelBtn: TButton 62 | Left = 185 63 | Top = 2 64 | Width = 75 65 | Height = 25 66 | Anchors = [akTop, akRight] 67 | Cancel = True 68 | Caption = 'Cancel' 69 | ModalResult = 2 70 | TabOrder = 1 71 | ExplicitLeft = 183 72 | end 73 | end 74 | object lbxFTPSites: TListBox 75 | Left = 8 76 | Top = 32 77 | Width = 171 78 | Height = 228 79 | Anchors = [akLeft, akTop, akRight, akBottom] 80 | ItemHeight = 15 81 | TabOrder = 0 82 | ExplicitWidth = 169 83 | ExplicitHeight = 220 84 | end 85 | object btnNew: TButton 86 | Left = 185 87 | Top = 32 88 | Width = 75 89 | Height = 25 90 | Action = actFTPSitesNew 91 | Anchors = [akTop, akRight] 92 | TabOrder = 1 93 | ExplicitLeft = 183 94 | end 95 | object btnEdit: TButton 96 | Left = 185 97 | Top = 63 98 | Width = 75 99 | Height = 25 100 | Action = actFTPSitesEdit 101 | Anchors = [akTop, akRight] 102 | TabOrder = 2 103 | ExplicitLeft = 183 104 | end 105 | object btnDelete: TButton 106 | Left = 185 107 | Top = 94 108 | Width = 75 109 | Height = 25 110 | Action = actFTPSiteDelete 111 | Anchors = [akTop, akRight] 112 | TabOrder = 3 113 | ExplicitLeft = 183 114 | end 115 | object actLstFTPSites: TActionList 116 | Left = 160 117 | Top = 224 118 | object actFTPSitesNew: TAction 119 | Caption = '&New...' 120 | OnExecute = actFTPSitesNewExecute 121 | end 122 | object actFTPSitesEdit: TAction 123 | Caption = '&Edit...' 124 | OnExecute = actFTPSitesEditExecute 125 | OnUpdate = actFTPSitesEditUpdate 126 | end 127 | object actFTPSiteDelete: TAction 128 | Caption = '&Delete' 129 | OnExecute = actFTPSiteDeleteExecute 130 | OnUpdate = actFTPSiteDeleteUpdate 131 | end 132 | end 133 | end 134 | -------------------------------------------------------------------------------- /TaurusTLS/Demos/TaurusFTPClient/frmProgress.dfm: -------------------------------------------------------------------------------- 1 | object frmFileProgress: TfrmFileProgress 2 | Left = 0 3 | Top = 0 4 | BorderStyle = bsDialog 5 | Caption = 'frmFileProgress' 6 | ClientHeight = 170 7 | ClientWidth = 386 8 | Color = clBtnFace 9 | Font.Charset = DEFAULT_CHARSET 10 | Font.Color = clWindowText 11 | Font.Height = -12 12 | Font.Name = 'Segoe UI' 13 | Font.Style = [] 14 | Position = poMainFormCenter 15 | TextHeight = 15 16 | object lblAction: TLabel 17 | Left = 8 18 | Top = 16 19 | Width = 370 20 | Height = 15 21 | AutoSize = False 22 | Caption = 'lblAction' 23 | end 24 | object lblProgress: TLabel 25 | Left = 8 26 | Top = 80 27 | Width = 370 28 | Height = 15 29 | AutoSize = False 30 | Caption = 'lblProgress' 31 | end 32 | object Panel2: TPanel 33 | Left = 0 34 | Top = 136 35 | Width = 386 36 | Height = 34 37 | Align = alBottom 38 | BevelOuter = bvNone 39 | Font.Charset = DEFAULT_CHARSET 40 | Font.Color = clBtnText 41 | Font.Height = -12 42 | Font.Name = 'Segoe UI' 43 | Font.Style = [] 44 | ParentColor = True 45 | ParentFont = False 46 | TabOrder = 1 47 | ExplicitTop = 128 48 | ExplicitWidth = 384 49 | DesignSize = ( 50 | 386 51 | 34) 52 | object CancelBtn: TButton 53 | Left = 304 54 | Top = 2 55 | Width = 75 56 | Height = 25 57 | Anchors = [akTop, akRight] 58 | Cancel = True 59 | Caption = 'Cancel' 60 | Default = True 61 | ModalResult = 2 62 | TabOrder = 0 63 | OnClick = CancelBtnClick 64 | ExplicitLeft = 302 65 | end 66 | end 67 | object prgbrDownloadUpload: TProgressBar 68 | Left = 8 69 | Top = 45 70 | Width = 370 71 | Height = 17 72 | TabOrder = 0 73 | end 74 | end 75 | -------------------------------------------------------------------------------- /TaurusTLS/Demos/TaurusFTPClient/frmProgress.pas: -------------------------------------------------------------------------------- 1 | unit frmProgress; 2 | 3 | interface 4 | 5 | uses 6 | Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, 7 | Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, IdComponent, 8 | Vcl.ComCtrls, IdThreadSafe, ProgUtils; 9 | 10 | type 11 | TfrmFileProgress = class(TThemedForm) 12 | Panel2: TPanel; 13 | CancelBtn: TButton; 14 | lblAction: TLabel; 15 | prgbrDownloadUpload: TProgressBar; 16 | lblProgress: TLabel; 17 | procedure CancelBtnClick(Sender: TObject); 18 | strict protected 19 | FCancelPressed : TIdThreadSafeBoolean; 20 | function GetCancelPressed: Boolean; 21 | procedure SetCancelPressed(const Value: Boolean); 22 | public 23 | { Public declarations } 24 | constructor Create(AOwner: TComponent); override; 25 | destructor Destroy; override; 26 | procedure UpdateProgressIndicator(const AFileName : String; 27 | const AWorkMode : TWorkMode; const AWorkCount, AWorkCountMax : Int64); 28 | property CancelPressed : Boolean read GetCancelPressed write SetCancelPressed; 29 | end; 30 | 31 | var 32 | frmFileProgress: TfrmFileProgress; 33 | 34 | implementation 35 | 36 | {$R *.dfm} 37 | 38 | { TfrmFileProgress } 39 | 40 | procedure TfrmFileProgress.CancelBtnClick(Sender: TObject); 41 | begin 42 | FCancelPressed.Value := True; 43 | CancelBtn.Enabled := False; 44 | end; 45 | 46 | constructor TfrmFileProgress.Create(AOwner: TComponent); 47 | begin 48 | inherited Create(AOwner); 49 | Self.FCancelPressed := TIdThreadSafeBoolean.Create; 50 | FCancelPressed.Value := False; 51 | end; 52 | 53 | destructor TfrmFileProgress.Destroy; 54 | begin 55 | FreeAndNil(FCancelPressed); 56 | inherited Destroy; 57 | end; 58 | 59 | function TfrmFileProgress.GetCancelPressed: Boolean; 60 | begin 61 | Result := FCancelPressed.Value; 62 | end; 63 | 64 | procedure TfrmFileProgress.SetCancelPressed(const Value: Boolean); 65 | begin 66 | FCancelPressed.Value := Value; 67 | end; 68 | 69 | procedure TfrmFileProgress.UpdateProgressIndicator(const AFileName: String; 70 | const AWorkMode: TWorkMode; const AWorkCount, AWorkCountMax: Int64); 71 | var LStr : String; 72 | LPerc : Integer; 73 | begin 74 | if AWorkMode = wmRead then 75 | begin 76 | LStr := 'Downloading '+AFileName+'...'; 77 | end 78 | else 79 | begin 80 | LStr := 'Uploading '+AFileName+'...'; 81 | end; 82 | lblAction.Caption := LStr; 83 | if AWorkCountMax >= 0 then 84 | begin 85 | LPerc := Round((AWorkcount / AWorkCountMax) * 100); 86 | Self.prgbrDownloadUpload.Position := LPerc; 87 | Self.lblProgress.Caption := IntToStr(AWorkCount)+ ' of '+IntToStr(AWorkCountMax) + ' ('+IntToStr(LPerc)+'%)'; 88 | end 89 | else 90 | begin 91 | prgbrDownloadUpload.Style := pbstMarquee; 92 | Self.lblProgress.Caption := IntToStr(AWorkCount); 93 | end; 94 | end; 95 | 96 | end. 97 | -------------------------------------------------------------------------------- /TaurusTLS/Demos/TaurusFTPConsole/bullshead.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Demos/TaurusFTPConsole/bullshead.ico -------------------------------------------------------------------------------- /TaurusTLS/Demos/TaurusFTPConsole/taurusftp.dpr: -------------------------------------------------------------------------------- 1 | program taurusftp; 2 | 3 | {$ifdef fpc}{$mode objfpc}{$H+}{$else}{$APPTYPE CONSOLE}{$endif} 4 | 5 | {Do things this way so that we can use the same program code in 6 | both Lazaurus and Delphi.} 7 | 8 | uses 9 | taurusftp_unit; 10 | 11 | end. 12 | -------------------------------------------------------------------------------- /TaurusTLS/Demos/TaurusFTPConsole/taurusftp.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Demos/TaurusFTPConsole/taurusftp.ico -------------------------------------------------------------------------------- /TaurusTLS/Demos/TaurusFTPConsole/taurusftp.lpi: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | <UseAppBundle Value="False"/> 14 | <ResourceType Value="res"/> 15 | <Icon Value="0"/> 16 | </General> 17 | <BuildModes> 18 | <Item Name="Default" Default="True"/> 19 | </BuildModes> 20 | <PublishOptions> 21 | <Version Value="2"/> 22 | <UseFileFilters Value="True"/> 23 | </PublishOptions> 24 | <RunParams> 25 | <FormatVersion Value="2"/> 26 | </RunParams> 27 | <Units> 28 | <Unit> 29 | <Filename Value="taurusftp.lpr"/> 30 | <IsPartOfProject Value="True"/> 31 | </Unit> 32 | </Units> 33 | </ProjectOptions> 34 | <CompilerOptions> 35 | <Version Value="11"/> 36 | <Target> 37 | <Filename Value="bin/$(TargetCPU)-$(TargetOS)/taurusftp"/> 38 | </Target> 39 | <SearchPaths> 40 | <IncludeFiles Value="$(ProjOutDir);../../Source"/> 41 | <OtherUnitFiles Value="../../Source;../../../Indy/Indy-Indy-10.6.3.6/Lib/System;../../../Indy/Indy-Indy-10.6.3.6/Lib/Core;../../../Indy/Indy-Indy-10.6.3.6/Lib/Protocols;../../../Indy-Indy-10.6.3.6/Lib/System;../../../Indy-Indy-10.6.3.6/Lib/Core;../../../Indy-Indy-10.6.3.6/Lib/Protocols"/> 42 | <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> 43 | </SearchPaths> 44 | <Parsing> 45 | <SyntaxOptions> 46 | <SyntaxMode Value="DelphiUnicode"/> 47 | </SyntaxOptions> 48 | </Parsing> 49 | <Linking> 50 | <Debugging> 51 | <DebugInfoType Value="dsDwarf3"/> 52 | </Debugging> 53 | </Linking> 54 | <Other> 55 | <Verbosity> 56 | <ShowDebugInfo Value="True"/> 57 | </Verbosity> 58 | </Other> 59 | </CompilerOptions> 60 | <Debugging> 61 | <Exceptions> 62 | <Item> 63 | <Name Value="EAbort"/> 64 | </Item> 65 | <Item> 66 | <Name Value="ECodetoolError"/> 67 | </Item> 68 | <Item> 69 | <Name Value="EFOpenError"/> 70 | </Item> 71 | <Item> 72 | <Name Value="EIdConnClosedGracefully"/> 73 | </Item> 74 | </Exceptions> 75 | </Debugging> 76 | </CONFIG> 77 | -------------------------------------------------------------------------------- /TaurusTLS/Demos/TaurusFTPConsole/taurusftp.lpr: -------------------------------------------------------------------------------- 1 | program taurusftp; 2 | 3 | {$ifdef fpc}{$mode objfpc}{$H+}{$else}{$APPTYPE CONSOLE}{$endif} 4 | 5 | {Do things this way so that we can use the same program code in 6 | both Lazaurus and Delphi.} 7 | 8 | uses 9 | taurusftp_unit; 10 | 11 | {$R *.res} 12 | 13 | begin 14 | end. 15 | -------------------------------------------------------------------------------- /TaurusTLS/Demos/TaurusFTPConsole/taurusftp.lps: -------------------------------------------------------------------------------- 1 | <?xml version="1.0" encoding="UTF-8"?> 2 | <CONFIG> 3 | <ProjectSession> 4 | <Version Value="12"/> 5 | <BuildModes Active="Default"/> 6 | <Units> 7 | <Unit> 8 | <Filename Value="taurusftp.lpr"/> 9 | <IsPartOfProject Value="True"/> 10 | <EditorIndex Value="-1"/> 11 | <CursorPos X="26" Y="3"/> 12 | <UsageCount Value="200"/> 13 | </Unit> 14 | <Unit> 15 | <Filename Value="../../Source/TaurusTLS.pas"/> 16 | <EditorIndex Value="-1"/> 17 | <TopLine Value="3532"/> 18 | <CursorPos X="9" Y="3545"/> 19 | <UsageCount Value="17"/> 20 | </Unit> 21 | <Unit> 22 | <Filename Value="../../Source/TaurusTLSHeaders_sslerr.pas"/> 23 | <EditorIndex Value="-1"/> 24 | <TopLine Value="841"/> 25 | <CursorPos Y="859"/> 26 | <UsageCount Value="6"/> 27 | </Unit> 28 | <Unit> 29 | <Filename Value="../../Source/TaurusTLS_Files.pas"/> 30 | <EditorIndex Value="-1"/> 31 | <TopLine Value="175"/> 32 | <CursorPos X="28" Y="184"/> 33 | <UsageCount Value="6"/> 34 | </Unit> 35 | <Unit> 36 | <Filename Value="../../Source/TaurusTLSFIPS.pas"/> 37 | <EditorIndex Value="-1"/> 38 | <TopLine Value="47"/> 39 | <CursorPos X="33" Y="62"/> 40 | <UsageCount Value="6"/> 41 | </Unit> 42 | <Unit> 43 | <Filename Value="../../Source/TaurusTLS_X509.pas"/> 44 | <EditorIndex Value="-1"/> 45 | <TopLine Value="1196"/> 46 | <CursorPos X="117" Y="1200"/> 47 | <UsageCount Value="3"/> 48 | </Unit> 49 | <Unit> 50 | <Filename Value="taurusftp_unit.pas"/> 51 | <EditorIndex Value="-1"/> 52 | <TopLine Value="38"/> 53 | <CursorPos X="49" Y="48"/> 54 | <UsageCount Value="33"/> 55 | </Unit> 56 | <Unit> 57 | <Filename Value="../../Source/TaurusTLSHeaders_txt_db.pas"/> 58 | <EditorIndex Value="-1"/> 59 | <TopLine Value="216"/> 60 | <CursorPos X="39" Y="222"/> 61 | <UsageCount Value="4"/> 62 | </Unit> 63 | <Unit> 64 | <Filename Value="../../Source/TaurusTLSHeaders_camellia.pas"/> 65 | <EditorIndex Value="-1"/> 66 | <TopLine Value="199"/> 67 | <CursorPos X="15" Y="212"/> 68 | <UsageCount Value="4"/> 69 | </Unit> 70 | <Unit> 71 | <Filename Value="../../../../../../Users/jpmug/Documents/HelpNDoc/Output/code/TaurusTLS.pas"/> 72 | <IsVisibleTab Value="True"/> 73 | <UsageCount Value="31"/> 74 | <Loaded Value="True"/> 75 | </Unit> 76 | <Unit> 77 | <Filename Value="../../Source/TaurusTLSHeaders_stack.pas"/> 78 | <EditorIndex Value="-1"/> 79 | <TopLine Value="217"/> 80 | <CursorPos X="6" Y="228"/> 81 | <UsageCount Value="6"/> 82 | </Unit> 83 | </Units> 84 | <JumpHistory> 85 | <Position> 86 | <Filename Value="../../../../../../Users/jpmug/Documents/HelpNDoc/Output/code/TaurusTLS.pas"/> 87 | </Position> 88 | </JumpHistory> 89 | <RunParams> 90 | <FormatVersion Value="2"/> 91 | <Modes ActiveMode="default"> 92 | <Mode Name="default"> 93 | <local> 94 | <LaunchingApplication PathPlusParams="/usr/bin/gnome-terminal -t 'Lazarus Run Output' -e '$(LazarusDir)/tools/runwait.sh $(TargetCmdLine)'"/> 95 | </local> 96 | </Mode> 97 | </Modes> 98 | </RunParams> 99 | <HistoryLists> 100 | <List Name="LaunchingApplication" Type="File" Count="5"> 101 | <Item1 Value="\usr\bin\gnome-terminal -t 'Lazarus Run Output' -e '$(LazarusDir)\tools\runwait.sh $(TargetCmdLine)'"/> 102 | <Item2 Value="/usr/bin/gnome-terminal -t 'Lazarus Run Output' -e '$(LazarusDir)/tools/runwait.sh $(TargetCmdLine)'"/> 103 | <Item3 Value="C:\WINDOWS\system32\cmd.exe /C ${TargetCmdLine}"/> 104 | <Item4 Value="/usr/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/> 105 | <Item5 Value="/usr/bin/konsole -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/> 106 | </List> 107 | </HistoryLists> 108 | </ProjectSession> 109 | <Debugging> 110 | <BreakPoints> 111 | <Item> 112 | <Kind Value="bpkSource"/> 113 | <WatchScope Value="wpsLocal"/> 114 | <WatchKind Value="wpkWrite"/> 115 | <Source Value="taurusftp.lpr"/> 116 | <Line Value="412"/> 117 | </Item> 118 | </BreakPoints> 119 | </Debugging> 120 | </CONFIG> 121 | -------------------------------------------------------------------------------- /TaurusTLS/Demos/TaurusFTPConsole/taurusftp.prjmgc: -------------------------------------------------------------------------------- 1 | [Settings] 2 | AutoLibSuffix=0 3 | ClearChildAppSettings=1 4 | ClearChildPackageSettings=0 5 | ClearChildVersionInfo=1 6 | NormalizeDproj=1 7 | SplitDproj=1 8 | EnableMissingPlatforms=0 9 | RemoveUnusedPlatforms=0 10 | RefreshFormType=0 11 | RemoveExcludedPackages=1 12 | RemoveDeployment=0 13 | RemoveUWP=1 14 | RemoveExplicits=1 15 | 16 | -------------------------------------------------------------------------------- /TaurusTLS/Demos/TaurusHTTPServer/taurusHTTPServer.dpr: -------------------------------------------------------------------------------- 1 | program taurusHTTPServer; 2 | 3 | {$APPTYPE CONSOLE} 4 | 5 | {$R *.res} 6 | 7 | uses 8 | System.SysUtils, 9 | taurushttpserver_unit in 'taurushttpserver_unit.pas'; 10 | 11 | end. 12 | -------------------------------------------------------------------------------- /TaurusTLS/Demos/TaurusHTTPServer/taurusHTTPServer.lpi: -------------------------------------------------------------------------------- 1 | <?xml version="1.0" encoding="UTF-8"?> 2 | <CONFIG> 3 | <ProjectOptions> 4 | <Version Value="12"/> 5 | <PathDelim Value="\"/> 6 | <General> 7 | <Flags> 8 | <MainUnitHasCreateFormStatements Value="False"/> 9 | <MainUnitHasTitleStatement Value="False"/> 10 | <MainUnitHasScaledStatement Value="False"/> 11 | </Flags> 12 | <SessionStorage Value="InProjectDir"/> 13 | <Title Value="taurusHTTPServer"/> 14 | <UseAppBundle Value="False"/> 15 | <ResourceType Value="res"/> 16 | </General> 17 | <BuildModes> 18 | <Item Name="Default" Default="True"/> 19 | </BuildModes> 20 | <PublishOptions> 21 | <Version Value="2"/> 22 | <UseFileFilters Value="True"/> 23 | </PublishOptions> 24 | <RunParams> 25 | <FormatVersion Value="2"/> 26 | </RunParams> 27 | <Units> 28 | <Unit> 29 | <Filename Value="taurusHTTPServer.lpr"/> 30 | <IsPartOfProject Value="True"/> 31 | </Unit> 32 | <Unit> 33 | <Filename Value="taurushttpserver_unit.pas"/> 34 | <IsPartOfProject Value="True"/> 35 | <UnitName Value="taurusHTTPServer_unit"/> 36 | </Unit> 37 | </Units> 38 | </ProjectOptions> 39 | <CompilerOptions> 40 | <Version Value="11"/> 41 | <PathDelim Value="\"/> 42 | <Target> 43 | <Filename Value="lib\$(TargetCPU)-$(TargetOS)\taurusHTTPServer"/> 44 | </Target> 45 | <SearchPaths> 46 | <IncludeFiles Value="$(ProjOutDir);..\..\Source"/> 47 | <OtherUnitFiles Value="..\..\..\Indy\Indy-Indy-10.6.3.6\Lib\System;..\..\..\Indy\Indy-Indy-10.6.3.6\Lib\Core;..\..\..\Indy\Indy-Indy-10.6.3.6\Lib\Protocols;..\..\Source"/> 48 | <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/> 49 | </SearchPaths> 50 | <Linking> 51 | <Debugging> 52 | <DebugInfoType Value="dsDwarf3"/> 53 | </Debugging> 54 | </Linking> 55 | </CompilerOptions> 56 | <Debugging> 57 | <Exceptions> 58 | <Item> 59 | <Name Value="EAbort"/> 60 | </Item> 61 | <Item> 62 | <Name Value="ECodetoolError"/> 63 | </Item> 64 | <Item> 65 | <Name Value="EFOpenError"/> 66 | </Item> 67 | </Exceptions> 68 | </Debugging> 69 | </CONFIG> 70 | -------------------------------------------------------------------------------- /TaurusTLS/Demos/TaurusHTTPServer/taurusHTTPServer.lpr: -------------------------------------------------------------------------------- 1 | program taurusHTTPServer; 2 | 3 | uses taurusHTTPServer_unit; 4 | 5 | begin 6 | end. 7 | 8 | -------------------------------------------------------------------------------- /TaurusTLS/Demos/TaurusHTTPServer/taurushttpserver_unit.pas: -------------------------------------------------------------------------------- 1 | unit taurusHTTPServer_unit; 2 | 3 | {$i TaurusTLSCompilerDefines.inc} 4 | 5 | interface 6 | 7 | uses 8 | Classes, SysUtils, 9 | IdHTTPServer, 10 | TaurusTLS; 11 | 12 | type 13 | THTTPServer = class(TObject) 14 | FHTTP: TIdHTTPServer; 15 | FIO: TTaurusTLSServerIOHandler; 16 | public 17 | constructor Create; 18 | destructor Destroy; override; 19 | end; 20 | 21 | implementation 22 | 23 | {$IFNDEF FPC} 24 | 25 | uses System.Types; 26 | {$ENDIF} 27 | { THTTPServer } 28 | 29 | constructor THTTPServer.Create; 30 | begin 31 | inherited Create; 32 | FHTTP := TIdHTTPServer.Create(nil); 33 | FIO := TTaurusTLSServerIOHandler.Create(nil); 34 | FIO.SSLOptions.CertFile := 'domain.crt'; 35 | FIO.SSLOptions.KeyFile := 'domain.key'; 36 | FHTTP.IOHandler := FIO; 37 | FHTTP.DefaultPort := 443; 38 | FHTTP.Active := True; 39 | end; 40 | 41 | destructor THTTPServer.Destroy; 42 | begin 43 | FreeAndNil(FIO); 44 | FreeAndNil(FHTTP); 45 | inherited; 46 | end; 47 | 48 | procedure RunProgram; 49 | var 50 | LHTTP: THTTPServer; 51 | begin 52 | TaurusTLS.LoadOpenSSLLibrary; 53 | try 54 | LHTTP := THTTPServer.Create; 55 | try 56 | WriteLn('TaurusHTTPServer'); 57 | WriteLn('Press enter to terminate.'); 58 | ReadLn; 59 | finally 60 | FreeAndNil(LHTTP); 61 | end; 62 | except 63 | on E: Exception do 64 | begin 65 | WriteLn(E.Message); 66 | ReadLn; 67 | end; 68 | end; 69 | end; 70 | 71 | initialization 72 | RunProgram; 73 | end. 74 | -------------------------------------------------------------------------------- /TaurusTLS/DifferencesBetweenIndyOpenSSLAndTaurusTLS.md: -------------------------------------------------------------------------------- 1 | By Default, TaurusTLS 2 | 3 | 1. Verifies hostnames matches the certificate's subject's common name 4 | 2. On Windows, uses the system's certificates by default 5 | 3. Uses security level 2 meaning that security is set to 112 bits of security. As a result RSA, DSA and DH keys shorter than 2048 bits and ECC keys shorter than 224 bits are prohibited. 6 | -------------------------------------------------------------------------------- /TaurusTLS/Help/chm/TaurusForIndy290All.chm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Help/chm/TaurusForIndy290All.chm -------------------------------------------------------------------------------- /TaurusTLS/Icons/16-colors/TIdBaseClient.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Icons/16-colors/TIdBaseClient.bmp -------------------------------------------------------------------------------- /TaurusTLS/Icons/16-colors/TIdBaseServer.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Icons/16-colors/TIdBaseServer.bmp -------------------------------------------------------------------------------- /TaurusTLS/Icons/16-colors/TTaurusTLSIOHandlerSocket.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Icons/16-colors/TTaurusTLSIOHandlerSocket.bmp -------------------------------------------------------------------------------- /TaurusTLS/Icons/16-colors/TTaurusTLSIOHandlerSocket.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Icons/16-colors/TTaurusTLSIOHandlerSocket.png -------------------------------------------------------------------------------- /TaurusTLS/Icons/16-colors/TTaurusTLSServerIOHandler.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Icons/16-colors/TTaurusTLSServerIOHandler.bmp -------------------------------------------------------------------------------- /TaurusTLS/Icons/16-colors/TTaurusTLSServerIOHandler.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Icons/16-colors/TTaurusTLSServerIOHandler.png -------------------------------------------------------------------------------- /TaurusTLS/Icons/16-colors/TaurusTLS_Dsn_Register.dcr: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Icons/16-colors/TaurusTLS_Dsn_Register.dcr -------------------------------------------------------------------------------- /TaurusTLS/Icons/16-colors/TaurusTLS_Dsn_Register.lrs: -------------------------------------------------------------------------------- 1 | LazarusResources.Add('TTaurusTLSIOHandlerSocket','PNG',[ 2 | #137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#24#0#0#0#24#4#3#0#0#0#18'Y '#203#0 3 | +#0#1#133'iCCPICC profile'#0#0'('#145'}'#145'=H'#195'@'#28#197'_S'#181'E*'#14 4 | +'vPq'#200'P'#157#236#162'"'#186#149'*'#22#193'Bi+'#180#234'`r'#233#135#208 5 | +#164'!Iqq'#20'\'#11#14'~,V'#29'\'#156'uup'#21#4#193#15#16'g'#7'''E'#23')'#241 6 | +#127'I'#161'E'#140#7#199#253'xw'#239'q'#247#14#16#26#21#166#154']1@'#213',#' 7 | +#157#136#139#185#252#138#24'xE'#8'='#8'b'#22'C'#18'3'#245'df!'#11#207#241'u' 8 | +#15#31'_'#239#162'<'#203#251#220#159#163'O)'#152#12#240#137#196'1'#166#27#22 9 | +#241':'#241#244#166#165's'#222''''#14#179#178#164#16#159#19#143#27'tA'#226'G' 10 | +#174#203'.'#191'q.9,'#240#204#176#145'M'#207#17#135#137#197'R'#7#203#29#204 11 | +#202#134'J<E'#28'QT'#141#242#133#156#203#10#231'-'#206'j'#165#198'Z'#247#228 12 | +'/'#12#21#180#229#12#215'i'#142' '#129'E$'#145#130#8#25'5l'#160#2#11'QZ5RL' 13 | +#164'i?'#238#225#31'v'#252')r'#201#228#218#0'#'#199'<'#170'P!9~'#240'?'#248 14 | +#221#173'Y'#156#156'p'#147'Bq'#160#251#197#182'?F'#129#192'.'#208#172#219#246 15 | +#247#177'm7O'#0#255'3p'#165#181#253#213#6'0'#243'Iz'#189#173'E'#142#128#254 16 | +'m'#224#226#186#173#201'{'#192#229#14'0'#248#164'K'#134#228'H~'#154'B'#177#8 17 | +#188#159#209'7'#229#129#129'['#160'w'#213#237#173#181#143#211#7' K]-'#221#0#7 18 | +#135#192'X'#137#178#215'<'#222#29#236#236#237#223'3'#173#254'~'#0#203#142'r' 19 | +#202's'#216#225#31#0#0#0'0PLTE'#0#0#0#128#0#0#0#128#0#128#128#0#0#0#128#128#0 20 | +#128#0#128#128#128#128#128#192#192#192#255#0#0#0#255#0#255#255#0#0#0#255#255 21 | +#0#255#0#255#255#255#255#255'{'#31#177#196#0#0#0#9'pHYs'#0#0#14#195#0#0#14 22 | +#195#1#199'o'#168'd'#0#0#0#7'tIME'#7#232#12#6#9#1'-'#133'M'#215')'#0#0#0#166 23 | +'IDAT'#24#211'M'#207'1'#14#131' '#20#198#241'G'#28':'#22#194#1#188#130#132 24 | +#129#177#139#222#160#198'k4'#209#230#185#209'M6'#174'Z'#211#1#183'WP,'#253'O' 25 | +#223'/oz'#208#255#5'='#182#185'g'#7#131#165#220'2'#1#250#19#1#1'-'#133'y'#243 26 | +#139'M0'#232#164#230'L'#27#135#241#130#168#247#226#128'Ak'#153'vS'#153#9#238 27 | +#219#210'Ti'#207#190#141#24#133#138'Wa'#18'h|1'#198#249'l('#129'V&'#21#175 28 | +#233#192'GT'#141#184'e'#4'-'#149#182#25#244#150#234'J'''#130#16#182'@'#170 29 | +#130#245#242#168#127#216'p'#127#228#0'9G'#5#228#255'A'#25'm'#9#250#178#187'/' 30 | +#158')'#154#243'yr'#245'm'#0#0#0#0'IEND'#174'B`'#130 31 | ]); 32 | LazarusResources.Add('TTaurusTLSServerIOHandler','PNG',[ 33 | #137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#24#0#0#0#24#4#3#0#0#0#18'Y '#203#0 34 | +#0#1#133'iCCPICC profile'#0#0'('#145'}'#145'=H'#195'@'#28#197'_S'#181'E*'#14 35 | +'vPq'#200'P'#157#236#162'"'#186#149'*'#22#193'Bi+'#180#234'`r'#233#135#208 36 | +#164'!Iqq'#20'\'#11#14'~,V'#29'\'#156'uup'#21#4#193#15#16'g'#7'''E'#23')'#241 37 | +#127'I'#161'E'#140#7#199#253'xw'#239'q'#247#14#16#26#21#166#154']1@'#213',#' 38 | +#157#136#139#185#252#138#24'xE'#8'='#8'b'#22'C'#18'3'#245'df!'#11#207#241'u' 39 | +#15#31'_'#239#162'<'#203#251#220#159#163'O)'#152#12#240#137#196'1'#166#27#22 40 | +#241':'#241#244#166#165's'#222''''#14#179#178#164#16#159#19#143#27'tA'#226'G' 41 | +#174#203'.'#191'q.9,'#240#204#176#145'M'#207#17#135#137#197'R'#7#203#29#204 42 | +#202#134'J<E'#28'QT'#141#242#133#156#203#10#231'-'#206'j'#165#198'Z'#247#228 43 | +'/'#12#21#180#229#12#215'i'#142' '#129'E$'#145#130#8#25'5l'#160#2#11'QZ5RL' 44 | +#164'i?'#238#225#31'v'#252')r'#201#228#218#0'#'#199'<'#170'P!9~'#240'?'#248 45 | +#221#173'Y'#156#156'p'#147'Bq'#160#251#197#182'?F'#129#192'.'#208#172#219#246 46 | +#247#177'm7O'#0#255'3p'#165#181#253#213#6'0'#243'Iz'#189#173'E'#142#128#254 47 | +'m'#224#226#186#173#201'{'#192#229#14'0'#248#164'K'#134#228'H~'#154'B'#177#8 48 | +#188#159#209'7'#229#129#129'['#160'w'#213#237#173#181#143#211#7' K]-'#221#0#7 49 | +#135#192'X'#137#178#215'<'#222#29#236#236#237#223'3'#173#254'~'#0#203#142'r' 50 | +#202's'#216#225#31#0#0#0'0PLTE'#0#0#0#128#0#0#0#128#0#128#128#0#0#0#128#128#0 51 | +#128#0#128#128#128#128#128#192#192#192#255#0#0#0#255#0#255#255#0#0#0#255#255 52 | +#0#255#0#255#255#255#255#255'{'#31#177#196#0#0#0#9'pHYs'#0#0#14#195#0#0#14 53 | +#195#1#199'o'#168'd'#0#0#0#7'tIME'#7#232#12#6#9#7','#164#16'@9'#0#0#0#175'ID' 54 | +'AT'#24#211'M'#206'1'#14#130'0'#20#198#241#215'T'#163#27'mz'#0#174'@'#211#161 55 | +#163#11#220#192#198'k'#152#136'yl'#184#209#141#155#170#196#1#182#231'C'#8#245 56 | +'?}'#191#225'5'#133#0#0#251#176#4'!#'#218#149's'#247#10'.'#217#243#197#230 57 | +#186#26'p'#195#136#12#196#227#212'w'#237#12#207#15'H%'#156#143#136#0#217#20 58 | +'A:'#231#144#193';v'#140'B'#250#26#248#4'Q'#242'n'#250#18'~Ig'#180'g'#156#233 59 | +#246#16'B'#169#198#211#12#26#132#177'*'#167#5#31'-'#11'}Z1:c]'#187#130#222 60 | +#198#206'?Z0j'#221'&'#24#155'0'#28#174#249#134#9#177#223'@1R'#2#245#255#160 61 | +#21'e'#10'B'#218#213#23'}'#141#146#185#201'K'#135'u'#0#0#0#0'IEND'#174'B`' 62 | +#130 63 | ]); 64 | -------------------------------------------------------------------------------- /TaurusTLS/Icons/16-colors/TaurusTLS_Dsn_Register_16.dcr: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Icons/16-colors/TaurusTLS_Dsn_Register_16.dcr -------------------------------------------------------------------------------- /TaurusTLS/Icons/16-colors/buildlrs.bat: -------------------------------------------------------------------------------- 1 | c:\lazarus\tools\lazres.exe TaurusTLS_Dsn_Register.lrs TTaurusTLSIOHandlerSocket.png TTaurusTLSServerIOHandler.png 2 | copy *.lrs ..\..\Source -------------------------------------------------------------------------------- /TaurusTLS/Icons/16-colors/buildres.bat: -------------------------------------------------------------------------------- 1 | brcc32 TaurusTLSRegister.rc -r -fo TaurusTLS_Dsn_Register_16.dcr 2 | copy TaurusTLS_Dsn_Register_16.dcr ..\..\Source -------------------------------------------------------------------------------- /TaurusTLS/Icons/16-colors/splash.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Icons/16-colors/splash.bmp -------------------------------------------------------------------------------- /TaurusTLS/Icons/TIdSSLIOHandlerSocketOpenSSL.xcf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Icons/TIdSSLIOHandlerSocketOpenSSL.xcf -------------------------------------------------------------------------------- /TaurusTLS/Icons/TTaurusTLSIOHandlerSocket.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Icons/TTaurusTLSIOHandlerSocket.bmp -------------------------------------------------------------------------------- /TaurusTLS/Icons/TTaurusTLSIOHandlerSocket.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Icons/TTaurusTLSIOHandlerSocket.png -------------------------------------------------------------------------------- /TaurusTLS/Icons/TTaurusTLSIOHandlerSocket.xcf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Icons/TTaurusTLSIOHandlerSocket.xcf -------------------------------------------------------------------------------- /TaurusTLS/Icons/TTaurusTLSServerIOHandler.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Icons/TTaurusTLSServerIOHandler.bmp -------------------------------------------------------------------------------- /TaurusTLS/Icons/TTaurusTLSServerIOHandler.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Icons/TTaurusTLSServerIOHandler.png -------------------------------------------------------------------------------- /TaurusTLS/Icons/TTaurusTLSServerIOHandler.xcf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Icons/TTaurusTLSServerIOHandler.xcf -------------------------------------------------------------------------------- /TaurusTLS/Icons/TaurusTLSRegister.aps: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Icons/TaurusTLSRegister.aps -------------------------------------------------------------------------------- /TaurusTLS/Icons/TaurusTLS_Dsn_Register.dcr: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Icons/TaurusTLS_Dsn_Register.dcr -------------------------------------------------------------------------------- /TaurusTLS/Icons/buildres.bat: -------------------------------------------------------------------------------- 1 | brcc32 TaurusTLSRegister.rc -r -fo TaurusTLS_Dsn_Register.dcr 2 | copy TaurusTLS_Dsn_Register.dcr ..\Source -------------------------------------------------------------------------------- /TaurusTLS/Icons/splash.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Icons/splash.bmp -------------------------------------------------------------------------------- /TaurusTLS/Icons/splash.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Icons/splash.png -------------------------------------------------------------------------------- /TaurusTLS/LICENSE.md: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/LICENSE.md -------------------------------------------------------------------------------- /TaurusTLS/Logo/GetIt.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Logo/GetIt.png -------------------------------------------------------------------------------- /TaurusTLS/Logo/GetIt.xcf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Logo/GetIt.xcf -------------------------------------------------------------------------------- /TaurusTLS/Logo/bull-silhouette-clipart (1).png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Logo/bull-silhouette-clipart (1).png -------------------------------------------------------------------------------- /TaurusTLS/Logo/bull-silhouette-clipart (1).xcf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Logo/bull-silhouette-clipart (1).xcf -------------------------------------------------------------------------------- /TaurusTLS/Logo/bullhead.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Logo/bullhead.png -------------------------------------------------------------------------------- /TaurusTLS/Logo/bullhead.xcf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Logo/bullhead.xcf -------------------------------------------------------------------------------- /TaurusTLS/Modified_BSD_LICENSE.md: -------------------------------------------------------------------------------- 1 | # BSD 2 | ## Copyright 3 | Portions of this software are Copyright (c) 2024 TaurusTLS Developers – https://github.com/JPeterMugaas/TaurusTLS 4 | 5 | ## License 6 | Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met: 7 | 8 | - Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. 9 | - Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation, about box and/or other materials provided with the distribution. 10 | -No personal names or organizations names associated with the TaurusTLS project may be used to endorse or promote products derived from this software without specific prior written permission of the specific individual or organization. 11 | 12 | THIS SOFTWARE IS PROVIDED BY TaurusTLS Developers “AS IS” AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 13 | -------------------------------------------------------------------------------- /TaurusTLS/OpenSSL/binaries/README.md: -------------------------------------------------------------------------------- 1 | The OpenSSL Binaries have been moved to a new locations 2 | 3 | https://github.com/JPeterMugaas/OpenSSL-Distribution/tree/main/binaries/Windows 4 | 5 | and 6 | 7 | https://github.com/TurboPack/OpenSSL-Distribution/tree/main/binaries/Windows 8 | -------------------------------------------------------------------------------- /TaurusTLS/Packages/d11/TaurusAll.groupproj: -------------------------------------------------------------------------------- 1 | <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> 2 | <PropertyGroup> 3 | <ProjectGuid>{8A337D19-9763-4077-A03C-F0636797FD8C}</ProjectGuid> 4 | </PropertyGroup> 5 | <ItemGroup> 6 | <Projects Include="TaurusTLS_RT.dproj"> 7 | <Dependencies/> 8 | </Projects> 9 | <Projects Include="TaurusTLS_DT.dproj"> 10 | <Dependencies/> 11 | </Projects> 12 | </ItemGroup> 13 | <ProjectExtensions> 14 | <Borland.Personality>Default.Personality.12</Borland.Personality> 15 | <Borland.ProjectType/> 16 | <BorlandProject> 17 | <Default.Personality/> 18 | </BorlandProject> 19 | </ProjectExtensions> 20 | <Target Name="TaurusTLS_RT"> 21 | <MSBuild Projects="TaurusTLS_RT.dproj"/> 22 | </Target> 23 | <Target Name="TaurusTLS_RT:Clean"> 24 | <MSBuild Projects="TaurusTLS_RT.dproj" Targets="Clean"/> 25 | </Target> 26 | <Target Name="TaurusTLS_RT:Make"> 27 | <MSBuild Projects="TaurusTLS_RT.dproj" Targets="Make"/> 28 | </Target> 29 | <Target Name="TaurusTLS_DT"> 30 | <MSBuild Projects="TaurusTLS_DT.dproj"/> 31 | </Target> 32 | <Target Name="TaurusTLS_DT:Clean"> 33 | <MSBuild Projects="TaurusTLS_DT.dproj" Targets="Clean"/> 34 | </Target> 35 | <Target Name="TaurusTLS_DT:Make"> 36 | <MSBuild Projects="TaurusTLS_DT.dproj" Targets="Make"/> 37 | </Target> 38 | <Target Name="Build"> 39 | <CallTarget Targets="TaurusTLS_RT;TaurusTLS_DT"/> 40 | </Target> 41 | <Target Name="Clean"> 42 | <CallTarget Targets="TaurusTLS_RT:Clean;TaurusTLS_DT:Clean"/> 43 | </Target> 44 | <Target Name="Make"> 45 | <CallTarget Targets="TaurusTLS_RT:Make;TaurusTLS_DT:Make"/> 46 | </Target> 47 | <Import Project="$(BDS)\Bin\CodeGear.Group.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')"/> 48 | </Project> 49 | -------------------------------------------------------------------------------- /TaurusTLS/Packages/d11/TaurusForIndy280All.groupproj: -------------------------------------------------------------------------------- 1 | <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> 2 | <PropertyGroup> 3 | <ProjectGuid>{9DB0EEA0-4DAA-4061-AE43-8AC124159E4A}</ProjectGuid> 4 | </PropertyGroup> 5 | <ItemGroup> 6 | <Projects Include="TaurusTLS_RTForIndy280.dproj"> 7 | <Dependencies/> 8 | </Projects> 9 | <Projects Include="TaurusTLS_DTForIndy280.dproj"> 10 | <Dependencies/> 11 | </Projects> 12 | </ItemGroup> 13 | <ProjectExtensions> 14 | <Borland.Personality>Default.Personality.12</Borland.Personality> 15 | <Borland.ProjectType/> 16 | <BorlandProject> 17 | <Default.Personality/> 18 | </BorlandProject> 19 | </ProjectExtensions> 20 | <Target Name="TaurusTLS_RTForIndy280"> 21 | <MSBuild Projects="TaurusTLS_RTForIndy280.dproj"/> 22 | </Target> 23 | <Target Name="TaurusTLS_RTForIndy280:Clean"> 24 | <MSBuild Projects="TaurusTLS_RTForIndy280.dproj" Targets="Clean"/> 25 | </Target> 26 | <Target Name="TaurusTLS_RTForIndy280:Make"> 27 | <MSBuild Projects="TaurusTLS_RTForIndy280.dproj" Targets="Make"/> 28 | </Target> 29 | <Target Name="TaurusTLS_DTForIndy280"> 30 | <MSBuild Projects="TaurusTLS_DTForIndy280.dproj"/> 31 | </Target> 32 | <Target Name="TaurusTLS_DTForIndy280:Clean"> 33 | <MSBuild Projects="TaurusTLS_DTForIndy280.dproj" Targets="Clean"/> 34 | </Target> 35 | <Target Name="TaurusTLS_DTForIndy280:Make"> 36 | <MSBuild Projects="TaurusTLS_DTForIndy280.dproj" Targets="Make"/> 37 | </Target> 38 | <Target Name="Build"> 39 | <CallTarget Targets="TaurusTLS_RTForIndy280;TaurusTLS_DTForIndy280"/> 40 | </Target> 41 | <Target Name="Clean"> 42 | <CallTarget Targets="TaurusTLS_RTForIndy280:Clean;TaurusTLS_DTForIndy280:Clean"/> 43 | </Target> 44 | <Target Name="Make"> 45 | <CallTarget Targets="TaurusTLS_RTForIndy280:Make;TaurusTLS_DTForIndy280:Make"/> 46 | </Target> 47 | <Import Project="$(BDS)\Bin\CodeGear.Group.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')"/> 48 | </Project> 49 | -------------------------------------------------------------------------------- /TaurusTLS/Packages/d11/TaurusTLS_DT.dpk: -------------------------------------------------------------------------------- 1 | package TaurusTLS_DT; 2 | 3 | {$R *.res} 4 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 5 | {$ALIGN 8} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO OFF} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS ON} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION OFF} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO ON} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES ON} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST OFF} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $400000} 26 | {$DEFINE DEBUG} 27 | {$ENDIF IMPLICITBUILDING} 28 | {$LIBSUFFIX '280'} 29 | {$DESIGNONLY} 30 | {$IMPLICITBUILD ON} 31 | 32 | requires 33 | rtl, 34 | designide, 35 | TaurusTLS_RT; 36 | 37 | contains 38 | TaurusTLS_Dsn_AboutDlg in '..\..\Source\TaurusTLS_Dsn_AboutDlg.pas', 39 | TaurusTLS_Dsn_ComponentEditor in '..\..\Source\TaurusTLS_Dsn_ComponentEditor.pas', 40 | TaurusTLS_Dsn_Register in '..\..\Source\TaurusTLS_Dsn_Register.pas', 41 | TaurusTLS_Dsn_ResourceStrings in '..\..\Source\TaurusTLS_Dsn_ResourceStrings.pas'; 42 | 43 | end. 44 | -------------------------------------------------------------------------------- /TaurusTLS/Packages/d11/TaurusTLS_DTForIndy280.dpk: -------------------------------------------------------------------------------- 1 | package TaurusTLS_DTForIndy280; 2 | 3 | {$R *.res} 4 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 5 | {$ALIGN 8} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO OFF} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS ON} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION OFF} 16 | {$OVERFLOWCHECKS ON} 17 | {$RANGECHECKS ON} 18 | {$REFERENCEINFO ON} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES ON} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST OFF} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $400000} 26 | {$DEFINE DEBUG} 27 | {$ENDIF IMPLICITBUILDING} 28 | {$DESIGNONLY} 29 | {$IMPLICITBUILD ON} 30 | 31 | requires 32 | rtl, 33 | designide, 34 | IndyCore280, 35 | IndyProtocols280, 36 | IndySystem280, 37 | TaurusTLS_RTForIndy280; 38 | 39 | contains 40 | TaurusTLS_Dsn_AboutDlg in '..\..\Source\TaurusTLS_Dsn_AboutDlg.pas', 41 | TaurusTLS_Dsn_ComponentEditor in '..\..\Source\TaurusTLS_Dsn_ComponentEditor.pas', 42 | TaurusTLS_Dsn_Register in '..\..\Source\TaurusTLS_Dsn_Register.pas', 43 | TaurusTLS_Dsn_ResourceStrings in '..\..\Source\TaurusTLS_Dsn_ResourceStrings.pas'; 44 | 45 | end. 46 | -------------------------------------------------------------------------------- /TaurusTLS/Packages/d12/TaurusAll.groupproj: -------------------------------------------------------------------------------- 1 | <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> 2 | <PropertyGroup> 3 | <ProjectGuid>{2F4FFBCF-BABC-477F-97EB-145D4373D99A}</ProjectGuid> 4 | </PropertyGroup> 5 | <ItemGroup> 6 | <Projects Include="TaurusTLS_RT.dproj"> 7 | <Dependencies/> 8 | </Projects> 9 | <Projects Include="TaurusTLS_DT.dproj"> 10 | <Dependencies>TaurusTLS_RT.dproj</Dependencies> 11 | </Projects> 12 | </ItemGroup> 13 | <ProjectExtensions> 14 | <Borland.Personality>Default.Personality.12</Borland.Personality> 15 | <Borland.ProjectType/> 16 | <BorlandProject> 17 | <Default.Personality/> 18 | </BorlandProject> 19 | </ProjectExtensions> 20 | <Target Name="TaurusTLS_RT"> 21 | <MSBuild Projects="TaurusTLS_RT.dproj"/> 22 | </Target> 23 | <Target Name="TaurusTLS_RT:Clean"> 24 | <MSBuild Projects="TaurusTLS_RT.dproj" Targets="Clean"/> 25 | </Target> 26 | <Target Name="TaurusTLS_RT:Make"> 27 | <MSBuild Projects="TaurusTLS_RT.dproj" Targets="Make"/> 28 | </Target> 29 | <Target Name="TaurusTLS_DT" DependsOnTargets="TaurusTLS_RT"> 30 | <MSBuild Projects="TaurusTLS_DT.dproj"/> 31 | </Target> 32 | <Target Name="TaurusTLS_DT:Clean" DependsOnTargets="TaurusTLS_RT:Clean"> 33 | <MSBuild Projects="TaurusTLS_DT.dproj" Targets="Clean"/> 34 | </Target> 35 | <Target Name="TaurusTLS_DT:Make" DependsOnTargets="TaurusTLS_RT:Make"> 36 | <MSBuild Projects="TaurusTLS_DT.dproj" Targets="Make"/> 37 | </Target> 38 | <Target Name="Build"> 39 | <CallTarget Targets="TaurusTLS_RT;TaurusTLS_DT"/> 40 | </Target> 41 | <Target Name="Clean"> 42 | <CallTarget Targets="TaurusTLS_RT:Clean;TaurusTLS_DT:Clean"/> 43 | </Target> 44 | <Target Name="Make"> 45 | <CallTarget Targets="TaurusTLS_RT:Make;TaurusTLS_DT:Make"/> 46 | </Target> 47 | <Import Project="$(BDS)\Bin\CodeGear.Group.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')"/> 48 | </Project> 49 | -------------------------------------------------------------------------------- /TaurusTLS/Packages/d12/TaurusForIndy290All.diproj: -------------------------------------------------------------------------------- 1 | <?xml version="1.0" encoding="UTF-8"?> 2 | <Project Version="1.0"> 3 | <Title>TaurusTLS 4 | OpenSSL 1.1.1 and OpenSSL 3.x support for Indy - Internet Direct 5 | TaurusTLS Developers 6 | 7 | Copyright (c) 2025 TaurusTLS Developers, All Rights Reserved, 8 | TaurusTLS provides OpenSSL 1.1 and 3.x support for Indy - Internet Direct. 9 | 1033 10 | 1 11 | <%TopicTitle%> 12 | <center><b>TaurusTLS</b><br/> 13 | <%Copyright%><br /> 14 | <br /> 15 | Powered by <a href="https://devjetsoftware.com/products/documentation-insight/" target="_blank">DocInsight</a></center> 16 | 17 | false 18 | false 19 | false 20 | true 21 | true 22 | 0 23 | 27 24 | 0 25 | 26 | .\TaurusTLS_RT.dpk 27 | 28 | 29 | 30 | true 31 | ..\..\..\Help\html 32 | 33 | 34 | true 35 | ..\..\..\Help\chm\TaurusForIndy290All.chm 36 | 37 | 38 | false 39 | build\docs\mshelp2\TaurusForIndy290All.HxS 40 | TaurusForIndy290All 41 | library 42 | 43 | 44 | false 45 | build\docs\hm\TaurusForIndy290All.hmxp 46 | 47 | 48 | 49 | -------------------------------------------------------------------------------- /TaurusTLS/Packages/d12/TaurusForIndy290All.groupproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | {2F4FFBCF-BABC-477F-97EB-145D4373D99A} 4 | 5 | 6 | 7 | 8 | 9 | 10 | TaurusTLS_RTForIndy290.dproj 11 | 12 | 13 | 14 | Default.Personality.12 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | -------------------------------------------------------------------------------- /TaurusTLS/Packages/d12/TaurusTLS_DT.dpk: -------------------------------------------------------------------------------- 1 | package TaurusTLS_DT; 2 | 3 | {$R *.res} 4 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 5 | {$ALIGN 8} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO OFF} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS OFF} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION ON} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO OFF} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES OFF} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST OFF} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $400000} 26 | {$DEFINE RELEASE} 27 | {$ENDIF IMPLICITBUILDING} 28 | {$DESCRIPTION 'TaurusTLS Design-Time-Only package'} 29 | {$LIBSUFFIX '290'} 30 | {$DESIGNONLY} 31 | {$IMPLICITBUILD OFF} 32 | 33 | requires 34 | rtl, 35 | IndyCore, 36 | IndyProtocols, 37 | IndySystem, 38 | TaurusTLS_RT, 39 | designide; 40 | 41 | contains 42 | TaurusTLS_Dsn_Register in '..\..\Source\TaurusTLS_Dsn_Register.pas', 43 | TaurusTLS_Dsn_ResourceStrings in '..\..\Source\TaurusTLS_Dsn_ResourceStrings.pas', 44 | TaurusTLS_Dsn_AboutDlg in '..\..\Source\TaurusTLS_Dsn_AboutDlg.pas', 45 | TaurusTLS_Dsn_ComponentEditor in '..\..\Source\TaurusTLS_Dsn_ComponentEditor.pas'; 46 | 47 | end. 48 | -------------------------------------------------------------------------------- /TaurusTLS/Packages/d12/TaurusTLS_DTForIndy290.dpk: -------------------------------------------------------------------------------- 1 | package TaurusTLS_DTForIndy290; 2 | 3 | {$R *.res} 4 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 5 | {$ALIGN 8} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO OFF} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS OFF} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION ON} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO OFF} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES OFF} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST OFF} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $400000} 26 | {$DEFINE RELEASE} 27 | {$ENDIF IMPLICITBUILDING} 28 | {$DESCRIPTION 'TaurusTLS Design-Time-Only package'} 29 | {$DESIGNONLY} 30 | {$IMPLICITBUILD OFF} 31 | 32 | requires 33 | rtl, 34 | dclIndyCore290, 35 | dclIndyProtocols290, 36 | IndyCore290, 37 | IndyProtocols290, 38 | IndySystem290, 39 | TaurusTLS_RTForIndy290, 40 | designide; 41 | 42 | contains 43 | TaurusTLS_Dsn_Register in '..\..\Source\TaurusTLS_Dsn_Register.pas', 44 | TaurusTLS_Dsn_ResourceStrings in '..\..\Source\TaurusTLS_Dsn_ResourceStrings.pas', 45 | TaurusTLS_Dsn_AboutDlg in '..\..\Source\TaurusTLS_Dsn_AboutDlg.pas', 46 | TaurusTLS_Dsn_ComponentEditor in '..\..\Source\TaurusTLS_Dsn_ComponentEditor.pas'; 47 | 48 | end. 49 | -------------------------------------------------------------------------------- /TaurusTLS/Packages/d13/TaurusAll.groupproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | {2F4FFBCF-BABC-477F-97EB-145D4373D99A} 4 | 5 | 6 | 7 | 8 | 9 | 10 | TaurusTLS_RT.dproj 11 | 12 | 13 | 14 | Default.Personality.12 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | -------------------------------------------------------------------------------- /TaurusTLS/Packages/d13/TaurusForIndy300All.groupproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | {2F4FFBCF-BABC-477F-97EB-145D4373D99A} 4 | 5 | 6 | 7 | 8 | 9 | 10 | TaurusTLS_RTForIndy300.dproj 11 | 12 | 13 | 14 | Default.Personality.12 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | -------------------------------------------------------------------------------- /TaurusTLS/Packages/d13/TaurusTLS_DT.dpk: -------------------------------------------------------------------------------- 1 | package TaurusTLS_DT; 2 | 3 | {$R *.res} 4 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 5 | {$ALIGN 8} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO OFF} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS OFF} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION ON} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO OFF} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES OFF} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST OFF} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $400000} 26 | {$DEFINE RELEASE} 27 | {$ENDIF IMPLICITBUILDING} 28 | {$DESCRIPTION 'TaurusTLS Design-Time-Only package'} 29 | {$LIBSUFFIX '300'} 30 | {$DESIGNONLY} 31 | {$IMPLICITBUILD OFF} 32 | 33 | requires 34 | rtl, 35 | IndyCore, 36 | IndyProtocols, 37 | IndySystem, 38 | TaurusTLS_RT, 39 | designide; 40 | 41 | contains 42 | TaurusTLS_Dsn_Register in '..\..\Source\TaurusTLS_Dsn_Register.pas', 43 | TaurusTLS_Dsn_ResourceStrings in '..\..\Source\TaurusTLS_Dsn_ResourceStrings.pas', 44 | TaurusTLS_Dsn_AboutDlg in '..\..\Source\TaurusTLS_Dsn_AboutDlg.pas', 45 | TaurusTLS_Dsn_ComponentEditor in '..\..\Source\TaurusTLS_Dsn_ComponentEditor.pas'; 46 | 47 | end. 48 | -------------------------------------------------------------------------------- /TaurusTLS/Packages/d13/TaurusTLS_DTForIndy300.dpk: -------------------------------------------------------------------------------- 1 | package TaurusTLS_DTForIndy300; 2 | 3 | {$R *.res} 4 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 5 | {$ALIGN 8} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO OFF} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS OFF} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION ON} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO OFF} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES OFF} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST OFF} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $400000} 26 | {$DEFINE RELEASE} 27 | {$ENDIF IMPLICITBUILDING} 28 | {$DESCRIPTION 'TaurusTLS Design-Time-Only package'} 29 | {$DESIGNONLY} 30 | {$IMPLICITBUILD OFF} 31 | 32 | requires 33 | rtl, 34 | dclIndyCore300, 35 | dclIndyProtocols300, 36 | IndyCore300, 37 | IndyProtocols300, 38 | IndySystem300, 39 | TaurusTLS_RTForIndy300, 40 | designide; 41 | 42 | contains 43 | TaurusTLS_Dsn_Register in '..\..\Source\TaurusTLS_Dsn_Register.pas', 44 | TaurusTLS_Dsn_ResourceStrings in '..\..\Source\TaurusTLS_Dsn_ResourceStrings.pas', 45 | TaurusTLS_Dsn_AboutDlg in '..\..\Source\TaurusTLS_Dsn_AboutDlg.pas', 46 | TaurusTLS_Dsn_ComponentEditor in '..\..\Source\TaurusTLS_Dsn_ComponentEditor.pas'; 47 | 48 | end. 49 | -------------------------------------------------------------------------------- /TaurusTLS/Packages/dberlin/TaurusAll.groupproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | {8A337D19-9763-4077-A03C-F0636797FD8C} 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | Default.Personality.12 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | -------------------------------------------------------------------------------- /TaurusTLS/Packages/dberlin/TaurusForIndy240All.groupproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | {2C9287E4-43EE-4D6C-AB7F-DB17F54B035E} 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | Default.Personality.12 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | -------------------------------------------------------------------------------- /TaurusTLS/Packages/dberlin/TaurusTLS_DT.dpk: -------------------------------------------------------------------------------- 1 | package TaurusTLS_DT; 2 | 3 | {$R *.res} 4 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 5 | {$ALIGN 8} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO OFF} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS ON} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION OFF} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO ON} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES ON} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST OFF} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $400000} 26 | {$DEFINE DEBUG} 27 | {$ENDIF IMPLICITBUILDING} 28 | {$LIBSUFFIX '240'} 29 | {$DESIGNONLY} 30 | {$IMPLICITBUILD ON} 31 | 32 | requires 33 | rtl, 34 | designide, 35 | TaurusTLS_RT; 36 | 37 | contains 38 | TaurusTLS_Dsn_AboutDlg in '..\..\Source\TaurusTLS_Dsn_AboutDlg.pas', 39 | TaurusTLS_Dsn_ComponentEditor in '..\..\Source\TaurusTLS_Dsn_ComponentEditor.pas', 40 | TaurusTLS_Dsn_Register in '..\..\Source\TaurusTLS_Dsn_Register.pas', 41 | TaurusTLS_Dsn_ResourceStrings in '..\..\Source\TaurusTLS_Dsn_ResourceStrings.pas'; 42 | 43 | end. 44 | -------------------------------------------------------------------------------- /TaurusTLS/Packages/dberlin/TaurusTLS_DTForIndy240.dpk: -------------------------------------------------------------------------------- 1 | package TaurusTLS_DTForIndy240; 2 | 3 | {$R *.res} 4 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 5 | {$ALIGN 8} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO OFF} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS ON} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION OFF} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO ON} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES ON} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST OFF} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $400000} 26 | {$DEFINE DEBUG} 27 | {$ENDIF IMPLICITBUILDING} 28 | {$DESIGNONLY} 29 | {$IMPLICITBUILD ON} 30 | 31 | requires 32 | rtl, 33 | designide, 34 | IndyCore240, 35 | IndyProtocols240, 36 | IndySystem240, 37 | TaurusTLS_RTForIndy240; 38 | 39 | contains 40 | TaurusTLS_Dsn_AboutDlg in '..\..\Source\TaurusTLS_Dsn_AboutDlg.pas', 41 | TaurusTLS_Dsn_ComponentEditor in '..\..\Source\TaurusTLS_Dsn_ComponentEditor.pas', 42 | TaurusTLS_Dsn_Register in '..\..\Source\TaurusTLS_Dsn_Register.pas', 43 | TaurusTLS_Dsn_ResourceStrings in '..\..\Source\TaurusTLS_Dsn_ResourceStrings.pas'; 44 | 45 | end. 46 | -------------------------------------------------------------------------------- /TaurusTLS/Packages/drio/TaurusAll.groupproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | {8A337D19-9763-4077-A03C-F0636797FD8C} 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | Default.Personality.12 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | -------------------------------------------------------------------------------- /TaurusTLS/Packages/drio/TaurusForIndy260All.groupproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | {2C9287E4-43EE-4D6C-AB7F-DB17F54B035E} 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | Default.Personality.12 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | -------------------------------------------------------------------------------- /TaurusTLS/Packages/drio/TaurusTLS_DT.dpk: -------------------------------------------------------------------------------- 1 | package TaurusTLS_DT; 2 | 3 | {$R *.res} 4 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 5 | {$ALIGN 8} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO OFF} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS ON} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION OFF} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO ON} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES ON} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST OFF} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $400000} 26 | {$DEFINE DEBUG} 27 | {$ENDIF IMPLICITBUILDING} 28 | {$LIBSUFFIX '260'} 29 | {$DESIGNONLY} 30 | {$IMPLICITBUILD ON} 31 | 32 | requires 33 | rtl, 34 | designide, 35 | TaurusTLS_RT; 36 | 37 | contains 38 | TaurusTLS_Dsn_AboutDlg in '..\..\Source\TaurusTLS_Dsn_AboutDlg.pas', 39 | TaurusTLS_Dsn_ComponentEditor in '..\..\Source\TaurusTLS_Dsn_ComponentEditor.pas', 40 | TaurusTLS_Dsn_Register in '..\..\Source\TaurusTLS_Dsn_Register.pas', 41 | TaurusTLS_Dsn_ResourceStrings in '..\..\Source\TaurusTLS_Dsn_ResourceStrings.pas'; 42 | 43 | end. 44 | -------------------------------------------------------------------------------- /TaurusTLS/Packages/drio/TaurusTLS_DTForIndy260.dpk: -------------------------------------------------------------------------------- 1 | package TaurusTLS_DTForIndy260; 2 | 3 | {$R *.res} 4 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 5 | {$ALIGN 8} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO OFF} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS ON} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION OFF} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO ON} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES ON} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST OFF} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $400000} 26 | {$DEFINE DEBUG} 27 | {$ENDIF IMPLICITBUILDING} 28 | {$DESIGNONLY} 29 | {$IMPLICITBUILD ON} 30 | 31 | requires 32 | rtl, 33 | designide, 34 | IndyCore260, 35 | IndyProtocols260, 36 | IndySystem260, 37 | TaurusTLS_RTForIndy260; 38 | 39 | contains 40 | TaurusTLS_Dsn_AboutDlg in '..\..\Source\TaurusTLS_Dsn_AboutDlg.pas', 41 | TaurusTLS_Dsn_ComponentEditor in '..\..\Source\TaurusTLS_Dsn_ComponentEditor.pas', 42 | TaurusTLS_Dsn_Register in '..\..\Source\TaurusTLS_Dsn_Register.pas', 43 | TaurusTLS_Dsn_ResourceStrings in '..\..\Source\TaurusTLS_Dsn_ResourceStrings.pas'; 44 | 45 | end. 46 | -------------------------------------------------------------------------------- /TaurusTLS/Packages/dseattle/TaurusAll.groupproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | {8A337D19-9763-4077-A03C-F0636797FD8C} 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | Default.Personality.12 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | -------------------------------------------------------------------------------- /TaurusTLS/Packages/dseattle/TaurusForIndy230All.groupproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | {2C9287E4-43EE-4D6C-AB7F-DB17F54B035E} 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | Default.Personality.12 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | -------------------------------------------------------------------------------- /TaurusTLS/Packages/dseattle/TaurusTLS_DT.dpk: -------------------------------------------------------------------------------- 1 | package TaurusTLS_DT; 2 | 3 | {$R *.res} 4 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 5 | {$ALIGN 8} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO OFF} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS ON} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION OFF} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO ON} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES ON} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST OFF} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $400000} 26 | {$DEFINE DEBUG} 27 | {$ENDIF IMPLICITBUILDING} 28 | {$LIBSUFFIX '230'} 29 | {$DESIGNONLY} 30 | {$IMPLICITBUILD ON} 31 | 32 | requires 33 | rtl, 34 | designide, 35 | TaurusTLS_RT; 36 | 37 | contains 38 | TaurusTLS_Dsn_AboutDlg in '..\..\Source\TaurusTLS_Dsn_AboutDlg.pas', 39 | TaurusTLS_Dsn_ComponentEditor in '..\..\Source\TaurusTLS_Dsn_ComponentEditor.pas', 40 | TaurusTLS_Dsn_Register in '..\..\Source\TaurusTLS_Dsn_Register.pas', 41 | TaurusTLS_Dsn_ResourceStrings in '..\..\Source\TaurusTLS_Dsn_ResourceStrings.pas'; 42 | 43 | end. 44 | -------------------------------------------------------------------------------- /TaurusTLS/Packages/dseattle/TaurusTLS_DTForIndy230.dpk: -------------------------------------------------------------------------------- 1 | package TaurusTLS_DTForIndy270; 2 | 3 | {$R *.res} 4 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 5 | {$ALIGN 8} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO OFF} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS ON} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION OFF} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO ON} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES ON} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST OFF} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $400000} 26 | {$DEFINE DEBUG} 27 | {$ENDIF IMPLICITBUILDING} 28 | {$DESIGNONLY} 29 | {$IMPLICITBUILD ON} 30 | 31 | requires 32 | rtl, 33 | designide, 34 | IndyCore230, 35 | IndyProtocols230, 36 | IndySystem230, 37 | TaurusTLS_RTForIndy230; 38 | 39 | contains 40 | TaurusTLS_Dsn_AboutDlg in '..\..\Source\TaurusTLS_Dsn_AboutDlg.pas', 41 | TaurusTLS_Dsn_ComponentEditor in '..\..\Source\TaurusTLS_Dsn_ComponentEditor.pas', 42 | TaurusTLS_Dsn_Register in '..\..\Source\TaurusTLS_Dsn_Register.pas', 43 | TaurusTLS_Dsn_ResourceStrings in '..\..\Source\TaurusTLS_Dsn_ResourceStrings.pas'; 44 | 45 | end. 46 | -------------------------------------------------------------------------------- /TaurusTLS/Packages/dseattle/TaurusTLS_Dsn_Register.dcr: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Packages/dseattle/TaurusTLS_Dsn_Register.dcr -------------------------------------------------------------------------------- /TaurusTLS/Packages/dseattle/TaurusTLS_Dsn_Register_16.dcr: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Packages/dseattle/TaurusTLS_Dsn_Register_16.dcr -------------------------------------------------------------------------------- /TaurusTLS/Packages/dsydney/TaurusAll.groupproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | {8A337D19-9763-4077-A03C-F0636797FD8C} 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | Default.Personality.12 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | -------------------------------------------------------------------------------- /TaurusTLS/Packages/dsydney/TaurusForIndy270All.groupproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | {2C9287E4-43EE-4D6C-AB7F-DB17F54B035E} 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | Default.Personality.12 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | -------------------------------------------------------------------------------- /TaurusTLS/Packages/dsydney/TaurusTLS_DT.dpk: -------------------------------------------------------------------------------- 1 | package TaurusTLS_DT; 2 | 3 | {$R *.res} 4 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 5 | {$ALIGN 8} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO OFF} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS ON} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION OFF} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO ON} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES ON} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST OFF} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $400000} 26 | {$DEFINE DEBUG} 27 | {$ENDIF IMPLICITBUILDING} 28 | {$LIBSUFFIX '270'} 29 | {$DESIGNONLY} 30 | {$IMPLICITBUILD ON} 31 | 32 | requires 33 | rtl, 34 | designide, 35 | TaurusTLS_RT; 36 | 37 | contains 38 | TaurusTLS_Dsn_AboutDlg in '..\..\Source\TaurusTLS_Dsn_AboutDlg.pas', 39 | TaurusTLS_Dsn_ComponentEditor in '..\..\Source\TaurusTLS_Dsn_ComponentEditor.pas', 40 | TaurusTLS_Dsn_Register in '..\..\Source\TaurusTLS_Dsn_Register.pas', 41 | TaurusTLS_Dsn_ResourceStrings in '..\..\Source\TaurusTLS_Dsn_ResourceStrings.pas'; 42 | 43 | end. 44 | -------------------------------------------------------------------------------- /TaurusTLS/Packages/dsydney/TaurusTLS_DTForIndy270.dpk: -------------------------------------------------------------------------------- 1 | package TaurusTLS_DTForIndy270; 2 | 3 | {$R *.res} 4 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 5 | {$ALIGN 8} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO OFF} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS ON} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION OFF} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO ON} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES ON} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST OFF} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $400000} 26 | {$DEFINE DEBUG} 27 | {$ENDIF IMPLICITBUILDING} 28 | {$DESIGNONLY} 29 | {$IMPLICITBUILD ON} 30 | 31 | requires 32 | rtl, 33 | designide, 34 | IndyCore270, 35 | IndyProtocols270, 36 | IndySystem270, 37 | TaurusTLS_RTForIndy270; 38 | 39 | contains 40 | TaurusTLS_Dsn_AboutDlg in '..\..\Source\TaurusTLS_Dsn_AboutDlg.pas', 41 | TaurusTLS_Dsn_ComponentEditor in '..\..\Source\TaurusTLS_Dsn_ComponentEditor.pas', 42 | TaurusTLS_Dsn_Register in '..\..\Source\TaurusTLS_Dsn_Register.pas', 43 | TaurusTLS_Dsn_ResourceStrings in '..\..\Source\TaurusTLS_Dsn_ResourceStrings.pas'; 44 | 45 | end. 46 | -------------------------------------------------------------------------------- /TaurusTLS/Packages/dsydney/TaurusTLS_Dsn_Register.dcr: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Packages/dsydney/TaurusTLS_Dsn_Register.dcr -------------------------------------------------------------------------------- /TaurusTLS/Packages/dsydney/TaurusTLS_Dsn_Register_16.dcr: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Packages/dsydney/TaurusTLS_Dsn_Register_16.dcr -------------------------------------------------------------------------------- /TaurusTLS/Packages/dtokyo/TaurusAll.groupproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | {8A337D19-9763-4077-A03C-F0636797FD8C} 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | Default.Personality.12 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | -------------------------------------------------------------------------------- /TaurusTLS/Packages/dtokyo/TaurusForIndy250All.groupproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | {2C9287E4-43EE-4D6C-AB7F-DB17F54B035E} 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | Default.Personality.12 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | -------------------------------------------------------------------------------- /TaurusTLS/Packages/dtokyo/TaurusTLS_DT.dpk: -------------------------------------------------------------------------------- 1 | package TaurusTLS_DT; 2 | 3 | {$R *.res} 4 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 5 | {$ALIGN 8} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO OFF} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS ON} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION OFF} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO ON} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES ON} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST OFF} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $400000} 26 | {$DEFINE DEBUG} 27 | {$ENDIF IMPLICITBUILDING} 28 | {$LIBSUFFIX '250'} 29 | {$DESIGNONLY} 30 | {$IMPLICITBUILD ON} 31 | 32 | requires 33 | rtl, 34 | designide, 35 | TaurusTLS_RT; 36 | 37 | contains 38 | TaurusTLS_Dsn_AboutDlg in '..\..\Source\TaurusTLS_Dsn_AboutDlg.pas', 39 | TaurusTLS_Dsn_ComponentEditor in '..\..\Source\TaurusTLS_Dsn_ComponentEditor.pas', 40 | TaurusTLS_Dsn_Register in '..\..\Source\TaurusTLS_Dsn_Register.pas', 41 | TaurusTLS_Dsn_ResourceStrings in '..\..\Source\TaurusTLS_Dsn_ResourceStrings.pas'; 42 | 43 | end. 44 | -------------------------------------------------------------------------------- /TaurusTLS/Packages/dtokyo/TaurusTLS_DTForIndy250.dpk: -------------------------------------------------------------------------------- 1 | package TaurusTLS_DTForIndy250; 2 | 3 | {$R *.res} 4 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 5 | {$ALIGN 8} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO OFF} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS ON} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION OFF} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO ON} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES ON} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST OFF} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $400000} 26 | {$DEFINE DEBUG} 27 | {$ENDIF IMPLICITBUILDING} 28 | {$DESIGNONLY} 29 | {$IMPLICITBUILD ON} 30 | 31 | requires 32 | rtl, 33 | designide, 34 | IndyCore250, 35 | IndyProtocols250, 36 | IndySystem250, 37 | TaurusTLS_RTForIndy250; 38 | 39 | contains 40 | TaurusTLS_Dsn_AboutDlg in '..\..\Source\TaurusTLS_Dsn_AboutDlg.pas', 41 | TaurusTLS_Dsn_ComponentEditor in '..\..\Source\TaurusTLS_Dsn_ComponentEditor.pas', 42 | TaurusTLS_Dsn_Register in '..\..\Source\TaurusTLS_Dsn_Register.pas', 43 | TaurusTLS_Dsn_ResourceStrings in '..\..\Source\TaurusTLS_Dsn_ResourceStrings.pas'; 44 | 45 | end. 46 | -------------------------------------------------------------------------------- /TaurusTLS/Packages/dtokyo/TaurusTLS_Dsn_Register.dcr: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Packages/dtokyo/TaurusTLS_Dsn_Register.dcr -------------------------------------------------------------------------------- /TaurusTLS/Packages/dtokyo/TaurusTLS_Dsn_Register_16.dcr: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Packages/dtokyo/TaurusTLS_Dsn_Register_16.dcr -------------------------------------------------------------------------------- /TaurusTLS/Packages/lazarus/taurustlsldsgn.lpk: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | -------------------------------------------------------------------------------- /TaurusTLS/Packages/lazarus/taurustlsldsgn.pas: -------------------------------------------------------------------------------- 1 | { This file was automatically created by Lazarus. Do not edit! 2 | This source is only used to compile and install the package. 3 | } 4 | 5 | unit TaurusTLSLDsgn; 6 | 7 | {$warn 5023 off : no warning about unused units} 8 | interface 9 | 10 | uses 11 | TaurusTLS_Dsn_AboutDlg, TaurusTLS_Dsn_ComponentEditor, 12 | TaurusTLS_Dsn_Register, TaurusTLS_Dsn_ResourceStrings, LazarusPackageIntf; 13 | 14 | implementation 15 | 16 | procedure Register; 17 | begin 18 | RegisterUnit('TaurusTLS_Dsn_ComponentEditor', 19 | @TaurusTLS_Dsn_ComponentEditor.Register); 20 | RegisterUnit('TaurusTLS_Dsn_Register', @TaurusTLS_Dsn_Register.Register); 21 | end; 22 | 23 | initialization 24 | RegisterPackage('TaurusTLSLDsgn', @Register); 25 | end. 26 | -------------------------------------------------------------------------------- /TaurusTLS/Packages/lazarus/taurustlsrt.pas: -------------------------------------------------------------------------------- 1 | { This file was automatically created by Lazarus. Do not edit! 2 | This source is only used to compile and install the package. 3 | } 4 | 5 | unit TaurusTLSRT; 6 | 7 | {$warn 5023 off : no warning about unused units} 8 | interface 9 | 10 | uses 11 | TaurusTLS, TaurusTLS_Files, TaurusTLS_NTLM, TaurusTLS_ResourceStrings, 12 | TaurusTLS_Utils, TaurusTLS_X509, TaurusTLSConsts, 13 | TaurusTLSExceptionHandlers, TaurusTLSFIPS, TaurusTLSHeaders_aes, 14 | TaurusTLSHeaders_asn1, TaurusTLSHeaders_asn1_mac, TaurusTLSHeaders_asn1err, 15 | TaurusTLSHeaders_asn1t, TaurusTLSHeaders_async, TaurusTLSHeaders_asyncerr, 16 | TaurusTLSHeaders_bio, TaurusTLSHeaders_bioerr, TaurusTLSHeaders_blowfish, 17 | TaurusTLSHeaders_bn, TaurusTLSHeaders_bnerr, TaurusTLSHeaders_buffer, 18 | TaurusTLSHeaders_buffererr, TaurusTLSHeaders_camellia, 19 | TaurusTLSHeaders_cast, TaurusTLSHeaders_cmac, TaurusTLSHeaders_cms, 20 | TaurusTLSHeaders_cmserr, TaurusTLSHeaders_comp, TaurusTLSHeaders_comperr, 21 | TaurusTLSHeaders_conf, TaurusTLSHeaders_conf_api, TaurusTLSHeaders_conferr, 22 | TaurusTLSHeaders_core, TaurusTLSHeaders_crypto, TaurusTLSHeaders_cryptoerr, 23 | TaurusTLSHeaders_ct, TaurusTLSHeaders_cterr, TaurusTLSHeaders_des, 24 | TaurusTLSHeaders_dh, TaurusTLSHeaders_dherr, TaurusTLSHeaders_dsa, 25 | TaurusTLSHeaders_dsaerr, TaurusTLSHeaders_ebcdic, TaurusTLSHeaders_ec, 26 | TaurusTLSHeaders_ecerr, TaurusTLSHeaders_engine, TaurusTLSHeaders_engineerr, 27 | TaurusTLSHeaders_err, TaurusTLSHeaders_evp, TaurusTLSHeaders_evperr, 28 | TaurusTLSHeaders_hmac, TaurusTLSHeaders_idea, TaurusTLSHeaders_kdferr, 29 | TaurusTLSHeaders_obj_mac, TaurusTLSHeaders_objects, 30 | TaurusTLSHeaders_objectserr, TaurusTLSHeaders_ocsperr, 31 | TaurusTLSHeaders_ossl_typ, TaurusTLSHeaders_pem, TaurusTLSHeaders_pemerr, 32 | TaurusTLSHeaders_pkcs12, TaurusTLSHeaders_pkcs7, TaurusTLSHeaders_pkcs7err, 33 | TaurusTLSHeaders_provider, TaurusTLSHeaders_quic, TaurusTLSHeaders_rand, 34 | TaurusTLSHeaders_randerr, TaurusTLSHeaders_rc4, TaurusTLSHeaders_rsa, 35 | TaurusTLSHeaders_rsaerr, TaurusTLSHeaders_safestack, TaurusTLSHeaders_sha, 36 | TaurusTLSHeaders_srtp, TaurusTLSHeaders_ssl, TaurusTLSHeaders_ssl3, 37 | TaurusTLSHeaders_sslerr, TaurusTLSHeaders_stack, TaurusTLSHeaders_storeerr, 38 | TaurusTLSHeaders_tls1, TaurusTLSHeaders_ts, TaurusTLSHeaders_tserr, 39 | TaurusTLSHeaders_txt_db, TaurusTLSHeaders_ui, TaurusTLSHeaders_uierr, 40 | TaurusTLSHeaders_whrlpool, TaurusTLSHeaders_x509, TaurusTLSHeaders_x509_vfy, 41 | TaurusTLSHeaders_x509err, TaurusTLSHeaders_x509v3, TaurusTLSLoader; 42 | 43 | implementation 44 | 45 | end. 46 | -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSConsts.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSConsts.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSExceptionHandlers.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSExceptionHandlers.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSFIPS.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSFIPS.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_asn1.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_asn1.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_asn1_mac.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_asn1_mac.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_asn1err.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_asn1err.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_asn1t.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_asn1t.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_async.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_async.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_asyncerr.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_asyncerr.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_bio.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_bio.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_bioerr.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_bioerr.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_blowfish.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_blowfish.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_bn.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_bn.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_bnerr.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_bnerr.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_buffer.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_buffer.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_buffererr.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_buffererr.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_camellia.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_camellia.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_cast.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_cast.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_cmac.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_cmac.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_cms.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_cms.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_cmserr.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_cmserr.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_comp.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_comp.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_comperr.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_comperr.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_conf.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_conf.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_conf_api.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_conf_api.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_conferr.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_conferr.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_core.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_core.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_crypto.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_crypto.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_cryptoerr.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_cryptoerr.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_ct.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_ct.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_cterr.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_cterr.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_des.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_des.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_dh.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_dh.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_dherr.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_dherr.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_dsa.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_dsa.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_dsaerr.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_dsaerr.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_ebcdic.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_ebcdic.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_ec.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_ec.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_ecerr.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_ecerr.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_engine.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_engine.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_engineerr.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_engineerr.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_err.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_err.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_evp.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_evp.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_evperr.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_evperr.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_hmac.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_hmac.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_idea.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_idea.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_kdferr.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_kdferr.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_obj_mac.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_obj_mac.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_objects.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_objects.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_objectserr.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_objectserr.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_ocsperr.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_ocsperr.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_ossl_typ.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_ossl_typ.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_pem.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_pem.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_pemerr.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_pemerr.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_pkcs12.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_pkcs12.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_pkcs7.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_pkcs7.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_pkcs7err.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_pkcs7err.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_provider.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_provider.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_quic.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_quic.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_rand.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_rand.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_randerr.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_randerr.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_rc4.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_rc4.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_rsa.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_rsa.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_rsaerr.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_rsaerr.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_safestack.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_safestack.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_sha.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_sha.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_srtp.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_srtp.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_ssl.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_ssl.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_ssl3.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_ssl3.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_sslerr.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_sslerr.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_stack.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_stack.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_storeerr.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_storeerr.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_tls1.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_tls1.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_ts.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_ts.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_tserr.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_tserr.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_txt_db.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_txt_db.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_ui.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_ui.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_uierr.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_uierr.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_whrlpool.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_whrlpool.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_x509.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_x509.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_x509_vfy.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_x509_vfy.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_x509err.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_x509err.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSHeaders_x509v3.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSHeaders_x509v3.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSLinkDefines.inc: -------------------------------------------------------------------------------- 1 | { Three ways to link to the OpenSSL library are supported: 2 | 3 | 1. Dynamic linking at run time using calls to LoadLibrary and GetProcAddress. 4 | This is the default and allows Indy to find the OpenSSL libraries and adjust 5 | itself to suit the version found. Versions 1.0.2 to 3.x are currently supported. 6 | 7 | 2. Static loading of a shared library (.dll or .so). When your program is loaded 8 | the loader searches for the shared library and links it to your program. Indy 9 | can only support the 3.x OpenSSL libraries in this mode. 10 | 11 | 3. Statically linked to a static library at link time. Your program executable 12 | includes the OpenSSL libraries which then do not have to be separately 13 | installed on the target system. Supported only for the 3.x OpenSSL Libraries 14 | and for the Free Pascal Compiler (FPC). Delphi does not support this link option. 15 | 16 | Link Option 2 is selected if your program or the IndyOpenSSL package is compiled with 17 | the OPENSSL_USE_SHARED_LIBRARY defined symbol. It is also selected if 18 | IdCompilierDefines.inc sets the STATICLOAD_OPENSSL defined symbol (e.g. for IOS). 19 | 20 | Link Option 3 is selected if your program or the IndyOpenSSL package is compiled with 21 | the OPENSSL_USE_STATIC_LIBRARY defined symbol. 22 | 23 | } 24 | {$IFDEF STATICLOAD_OPENSSL} 25 | {$DEFINE OPENSSL_STATIC_LINK_MODEL} 26 | {$UNDEF OPENSSL_USE_STATIC_LIBRARY} 27 | {$ENDIF} 28 | {$IFDEF OPENSSL_USE_SHARED_LIBRARY} 29 | {$DEFINE OPENSSL_STATIC_LINK_MODEL} 30 | {$ENDIF} 31 | {$IFDEF OPENSSL_USE_STATIC_LIBRARY} 32 | {$IFNDEF FPC} 33 | {$message Error:OPENSSL_USE_STATIC_LIBRARY may only be used when compiling with the Free Pascal Compiler} 34 | {$ELSE} 35 | {$DEFINE OPENSSL_STATIC_LINK_MODEL} 36 | {$ENDIF} 37 | {$ENDIF} 38 | 39 | 40 | -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSLoader.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLSLoader.pas -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSNoRetValOff.inc: -------------------------------------------------------------------------------- 1 | {$IFDEF HAS_NO_RET_VAL} 2 | {$WARN NO_RETVAL OFF} 3 | {$ENDIF} 4 | {$ifdef fpc} 5 | {$push} 6 | {$warn 5024 off} //disable unused parameter 7 | {$warn 05033 off} //disable no return values 8 | {$endif} 9 | -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSNoRetValOn.inc: -------------------------------------------------------------------------------- 1 | {$IFDEF HAS_NO_RET_VAL} 2 | {$IFDEF HAS_DIRECTIVE_WARN_DEFAULT} 3 | {$WARN NO_RETVAL DEFAULT} 4 | {$ELSE} 5 | {$WARN NO_RETVAL ON} 6 | {$ENDIF} 7 | {$ENDIF} 8 | {$ifdef fpc} 9 | {$pop} 10 | {$endif} 11 | 12 | -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSSymbolDeprecatedOff.inc: -------------------------------------------------------------------------------- 1 | {$IFDEF HAS_DEPRECATED} 2 | {$WARN SYMBOL_DEPRECATED OFF} 3 | {$ENDIF} 4 | {$ifdef fpc} 5 | {$push} 6 | {$warn 05043 off} 7 | {$endif} 8 | -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSSymbolDeprecatedOn.inc: -------------------------------------------------------------------------------- 1 | // TODO: for FreePascal, use {$PUSH} in IdSymbolDeprecatedOff.inc and {$POP} here 2 | {$IFDEF HAS_DEPRECATED} 3 | {$IFDEF HAS_DIRECTIVE_WARN_DEFAULT} 4 | {$WARN SYMBOL_DEPRECATED DEFAULT} 5 | {$ELSE} 6 | {$WARN SYMBOL_DEPRECATED ON} 7 | {$ENDIF} 8 | {$ENDIF} 9 | {$ifdef fpc} 10 | {$pop} 11 | {$endif} 12 | 13 | -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSUnusedParamOff.inc: -------------------------------------------------------------------------------- 1 | {$ifdef fpc} 2 | {$push} 3 | {$warn 5024 off} //disable unused parameter 4 | {$endif} 5 | -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSUnusedParamOn.inc: -------------------------------------------------------------------------------- 1 | {$ifdef fpc} 2 | {$pop} 3 | {$endif} 4 | 5 | -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSUnusedUnitOff.inc: -------------------------------------------------------------------------------- 1 | {$ifdef fpc} 2 | {$push} 3 | {$warn 05023 off} //disable unused parameter 4 | {$endif} 5 | -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLSUnusedUnitOn.inc: -------------------------------------------------------------------------------- 1 | {$ifdef fpc} 2 | {$pop} 3 | {$endif} 4 | 5 | -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLS_Dsn_AboutDlg.pas: -------------------------------------------------------------------------------- 1 | unit TaurusTLS_Dsn_AboutDlg; 2 | 3 | {$I TaurusTLSCompilerDefines.inc} 4 | 5 | interface 6 | 7 | procedure AboutDlg(const AVersion: String); 8 | 9 | implementation 10 | 11 | uses 12 | IdGlobal, 13 | Classes, SysUtils, 14 | TaurusTLS_Dsn_ResourceStrings, 15 | {$IFDEF FPC} 16 | Controls, Forms, Graphics, 17 | StdCtrls; 18 | {$ELSE} 19 | Vcl.Controls, Vcl.Forms, Vcl.Graphics, 20 | Vcl.StdCtrls; 21 | {$ENDIF} 22 | 23 | type 24 | TfrmAbout = class(TForm) 25 | public 26 | procedure btnThirdPartyAcknowlegementClick(Sender: TObject); 27 | end; 28 | 29 | TfrmAcknowlegements = class(TForm) 30 | 31 | end; 32 | 33 | procedure AboutDlg(const AVersion: String); 34 | var 35 | frmAbout: TfrmAbout; 36 | lblProductName: TLabel; 37 | lblVersion: TLabel; 38 | lblCopyright: TLabel; 39 | btnOk: TButton; 40 | mmoLicense: TMemo; 41 | btnThirdPartyAcknowlegement: TButton; 42 | LLabelWidth: Integer; 43 | 44 | begin 45 | frmAbout := TfrmAbout.CreateNew(Application); 46 | try 47 | lblProductName := TLabel.Create(frmAbout); 48 | lblVersion := TLabel.Create(frmAbout); 49 | lblCopyright := TLabel.Create(frmAbout); 50 | btnOk := TButton.Create(frmAbout); 51 | mmoLicense := TMemo.Create(frmAbout); 52 | btnThirdPartyAcknowlegement := TButton.Create(frmAbout); 53 | 54 | frmAbout.Name := 'frmAbout'; 55 | frmAbout.Left := 0; 56 | frmAbout.Top := 0; 57 | frmAbout.Anchors := [akLeft, akRight, akBottom]; 58 | frmAbout.BorderStyle := bsDialog; 59 | frmAbout.Caption := 'About TaurusTLS'; 60 | frmAbout.ClientHeight := 335; 61 | frmAbout.ClientWidth := 427; 62 | frmAbout.Color := clBtnFace; 63 | frmAbout.Position := poDesktopCenter; 64 | LLabelWidth := frmAbout.ClientWidth - 16; 65 | lblProductName.Name := 'lblProductName'; 66 | lblProductName.Parent := frmAbout; 67 | lblProductName.Left := 8; 68 | lblProductName.Top := 16; 69 | lblProductName.Width := LLabelWidth; 70 | lblProductName.Height := 41; 71 | lblProductName.Alignment := taCenter; 72 | lblProductName.Anchors := [akLeft, akTop, akRight]; 73 | lblProductName.AutoSize := False; 74 | lblProductName.Caption := 'TaurusTLS'; 75 | lblProductName.ParentFont := False; 76 | lblProductName.Layout := tlCenter; 77 | lblProductName.Font.Height := -36; 78 | lblProductName.Font.Name := 'Arial Black'; 79 | lblVersion.Name := 'lblVersion'; 80 | lblVersion.Parent := frmAbout; 81 | lblVersion.Left := 8; 82 | lblVersion.Top := 63; 83 | lblVersion.Width := LLabelWidth; 84 | lblVersion.Height := 25; 85 | lblVersion.Alignment := taCenter; 86 | lblVersion.Anchors := [akLeft, akTop, akRight]; 87 | lblVersion.AutoSize := False; 88 | lblVersion.Caption := IndyFormat('Version %s', [AVersion]); 89 | lblVersion.ParentFont := False; 90 | lblVersion.Layout := tlCenter; 91 | lblVersion.Font.Height := -15; 92 | lblVersion.Font.Name := 'Arial'; 93 | lblCopyright.Name := 'lblCopyright'; 94 | lblCopyright.Parent := frmAbout; 95 | lblCopyright.Left := 8; 96 | lblCopyright.Top := 86; 97 | lblCopyright.Width := LLabelWidth; 98 | lblCopyright.Height := 35; 99 | lblCopyright.Alignment := taCenter; 100 | lblCopyright.Anchors := [akLeft, akTop, akRight, akBottom]; 101 | lblCopyright.AutoSize := False; 102 | lblCopyright.Caption := RSCopyright; 103 | lblCopyright.ParentFont := False; 104 | lblCopyright.Layout := tlCenter; 105 | btnOk.Name := 'btnOk'; 106 | btnOk.Parent := frmAbout; 107 | btnOk.Left := 347; 108 | btnOk.Top := frmAbout.ClientHeight - 35; 109 | btnOk.Width := 75; 110 | btnOk.Height := 25; 111 | btnOk.Anchors := [akRight, akBottom]; 112 | btnOk.Caption := RSOk; 113 | btnOk.Default := True; 114 | btnOk.ModalResult := 1; 115 | btnOk.TabOrder := 2; 116 | mmoLicense.Name := 'mmoLicense'; 117 | mmoLicense.Parent := frmAbout; 118 | mmoLicense.Left := 8; 119 | mmoLicense.Top := 156; 120 | mmoLicense.ReadOnly := True; 121 | mmoLicense.Width := LLabelWidth; 122 | mmoLicense.Height := 109; 123 | mmoLicense.TabStop := False; 124 | mmoLicense.Anchors := [akLeft, akTop, akRight, akBottom]; 125 | mmoLicense.Lines.Clear; 126 | mmoLicense.Lines.Add(RSLicense); 127 | mmoLicense.TabOrder := 0; 128 | btnThirdPartyAcknowlegement.Name := 'btnThirdPartyAcknowlegement'; 129 | btnThirdPartyAcknowlegement.Parent := frmAbout; 130 | btnThirdPartyAcknowlegement.Left := 8; 131 | btnThirdPartyAcknowlegement.Top := 271; 132 | btnThirdPartyAcknowlegement.Width := LLabelWidth; 133 | btnThirdPartyAcknowlegement.Height := 25; 134 | btnThirdPartyAcknowlegement.Anchors := [akLeft, akRight, akBottom]; 135 | btnThirdPartyAcknowlegement.Caption := RSThirdPartyAcknowlegements; 136 | btnThirdPartyAcknowlegement.TabOrder := 1; 137 | btnThirdPartyAcknowlegement.OnClick := 138 | frmAbout.btnThirdPartyAcknowlegementClick; 139 | frmAbout.ShowModal; 140 | finally 141 | FreeAndNil(frmAbout); 142 | end; 143 | end; 144 | 145 | { TfrmAbout } 146 | 147 | procedure TfrmAbout.btnThirdPartyAcknowlegementClick(Sender: TObject); 148 | var 149 | frmAcknowlegements: TfrmAcknowlegements; 150 | mmoIndyLicense: TMemo; 151 | btnOk: TButton; 152 | 153 | begin 154 | frmAcknowlegements := TfrmAcknowlegements.CreateNew(Self); 155 | try 156 | mmoIndyLicense := TMemo.Create(frmAcknowlegements); 157 | btnOk := TButton.Create(frmAcknowlegements); 158 | 159 | frmAcknowlegements.Name := 'frmAcknowlegements'; 160 | frmAcknowlegements.Left := 0; 161 | frmAcknowlegements.Top := 0; 162 | frmAcknowlegements.Caption := RSThirdPartyAcknowlegements; 163 | frmAcknowlegements.ClientHeight := 335; 164 | frmAcknowlegements.ClientWidth := 427; 165 | frmAcknowlegements.Color := clBtnFace; 166 | frmAcknowlegements.Position := poDesktopCenter; 167 | mmoIndyLicense.Name := 'mmoIndyLicense'; 168 | mmoIndyLicense.Parent := frmAcknowlegements; 169 | mmoIndyLicense.Left := 8; 170 | mmoIndyLicense.Top := 8; 171 | mmoIndyLicense.Width := frmAcknowlegements.ClientWidth - 16; 172 | mmoIndyLicense.Height := 281; 173 | mmoIndyLicense.TabStop := False; 174 | mmoIndyLicense.Anchors := [akLeft, akRight]; 175 | mmoIndyLicense.ReadOnly := True; 176 | mmoIndyLicense.Lines.Clear; 177 | mmoIndyLicense.Lines.Add(RSIndyPortionsOf); 178 | mmoIndyLicense.Lines.Add(RSIndyPortionsOfTwo); 179 | mmoIndyLicense.Lines.Add(''); 180 | mmoIndyLicense.Lines.Add(RSIndyRedistributionOf); 181 | mmoIndyLicense.Lines.Add(''); 182 | mmoIndyLicense.Lines.Add(RSDisclaimerCondOne); 183 | mmoIndyLicense.Lines.Add(''); 184 | mmoIndyLicense.Lines.Add(RSDisclaimerCondTwo); 185 | mmoIndyLicense.Lines.Add(''); 186 | mmoIndyLicense.Lines.Add(RSIndyDisclaimer); 187 | mmoIndyLicense.TabOrder := 0; 188 | btnOk.Name := 'btnOk'; 189 | btnOk.Parent := frmAcknowlegements; 190 | btnOk.Left := 347; 191 | btnOk.Top := 302; 192 | btnOk.Width := 75; 193 | btnOk.Height := 25; 194 | btnOk.Anchors := [akRight, akBottom]; 195 | btnOk.Caption := RSOk; 196 | btnOk.Default := True; 197 | btnOk.ModalResult := 1; 198 | btnOk.TabOrder := 1; 199 | frmAcknowlegements.ShowModal; 200 | finally 201 | FreeAndNil(frmAcknowlegements); 202 | end; 203 | end; 204 | 205 | end. 206 | -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLS_Dsn_ComponentEditor.pas: -------------------------------------------------------------------------------- 1 | unit TaurusTLS_Dsn_ComponentEditor; 2 | 3 | {$I TaurusTLSCompilerDefines.inc} 4 | interface 5 | 6 | uses 7 | {$IFDEF DOTNET} 8 | Borland.Vcl.Design.DesignIntF, 9 | Borland.Vcl.Design.DesignEditors 10 | {$ELSE} 11 | {$IFDEF FPC} 12 | ComponentEditors 13 | {$ELSE} 14 | {$IFDEF VCL_6_OR_ABOVE} 15 | DesignIntf, 16 | DesignEditors 17 | {$ELSE} 18 | Dsgnintf 19 | {$ENDIF} 20 | {$ENDIF} 21 | {$ENDIF} 22 | ; 23 | 24 | {$i TaurusTLS_Vers.inc} 25 | 26 | type 27 | {$IFDEF FPC} 28 | TTaurusTLSComponentEditor = class(TDefaultComponentEditor) 29 | {$ELSE} 30 | TTaurusTLSComponentEditor = class(TDefaultEditor) 31 | {$ENDIF} 32 | public 33 | procedure ExecuteVerb(Index: Integer); override; 34 | function GetVerb(Index: Integer): string; override; 35 | function GetVerbCount: Integer; override; 36 | end; 37 | 38 | procedure Register; 39 | 40 | implementation 41 | uses 42 | IdGlobal, 43 | TaurusTLS, 44 | TaurusTLS_Dsn_AboutDlg, 45 | TaurusTLS_Dsn_ResourceStrings; 46 | 47 | procedure TTaurusTLSComponentEditor.ExecuteVerb(Index: Integer); 48 | begin 49 | case Index of 50 | 0 : AboutDlg(gsTaurusTLSVersion); 51 | end; 52 | end; 53 | 54 | function TTaurusTLSComponentEditor.GetVerb(Index: Integer): string; 55 | begin 56 | case Index of 57 | 0: Result := IndyFormat(RSAAboutMenuItemName, [gsTaurusTLSVersion]); 58 | end; 59 | end; 60 | 61 | function TTaurusTLSComponentEditor.GetVerbCount: Integer; 62 | begin 63 | Result := 1; 64 | end; 65 | 66 | procedure Register; 67 | begin 68 | RegisterComponentEditor(TTaurusTLSIOHandlerSocket, TTaurusTLSComponentEditor); 69 | RegisterComponentEditor(TTaurusTLSServerIOHandler, TTaurusTLSComponentEditor); 70 | end; 71 | 72 | end. 73 | -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLS_Dsn_Register.dcr: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/indy_extras/dce84d57c14811c99018e1ae8598d11338d9cc25/TaurusTLS/Source/TaurusTLS_Dsn_Register.dcr -------------------------------------------------------------------------------- /TaurusTLS/Source/TaurusTLS_Dsn_Register.lrs: -------------------------------------------------------------------------------- 1 | LazarusResources.Add('TTaurusTLSIOHandlerSocket','PNG',[ 2 | #137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#24#0#0#0#24#4#3#0#0#0#18'Y '#203#0 3 | +#0#1#133'iCCPICC profile'#0#0'('#145'}'#145'=H'#195'@'#28#197'_S'#181'E*'#14 4 | +'vPq'#200'P'#157#236#162'"'#186#149'*'#22#193'Bi+'#180#234'`r'#233#135#208 5 | +#164'!Iqq'#20'\'#11#14'~,V'#29'\'#156'uup'#21#4#193#15#16'g'#7'''E'#23')'#241 6 | +#127'I'#161'E'#140#7#199#253'xw'#239'q'#247#14#16#26#21#166#154']1@'#213',#' 7 | +#157#136#139#185#252#138#24'xE'#8'='#8'b'#22'C'#18'3'#245'df!'#11#207#241'u' 8 | +#15#31'_'#239#162'<'#203#251#220#159#163'O)'#152#12#240#137#196'1'#166#27#22 9 | +#241':'#241#244#166#165's'#222''''#14#179#178#164#16#159#19#143#27'tA'#226'G' 10 | +#174#203'.'#191'q.9,'#240#204#176#145'M'#207#17#135#137#197'R'#7#203#29#204 11 | +#202#134'J TDunitXConsoleMode.Off then 43 | begin 44 | logger := TDUnitXConsoleLogger.Create(TDUnitX.Options.ConsoleMode = TDunitXConsoleMode.Quiet); 45 | runner.AddLogger(logger); 46 | end; 47 | //Generate an NUnit compatible XML File 48 | nunitLogger := TDUnitXXMLNUnitFileLogger.Create(TDUnitX.Options.XMLOutputFile); 49 | runner.AddLogger(nunitLogger); 50 | 51 | //Run tests 52 | results := runner.Execute; 53 | if not results.AllPassed then 54 | System.ExitCode := EXIT_ERRORS; 55 | 56 | {$IFNDEF CI} 57 | //We don't want this happening when running under CI. 58 | if TDUnitX.Options.ExitBehavior = TDUnitXExitBehavior.Pause then 59 | begin 60 | System.Write('Done.. press key to quit.'); 61 | System.Readln; 62 | end; 63 | {$ENDIF} 64 | except 65 | on E: Exception do 66 | System.Writeln(E.ClassName, ': ', E.Message); 67 | end; 68 | {$ENDIF} 69 | end. 70 | -------------------------------------------------------------------------------- /TaurusTLS/Tests/TaurusTLS.Tests.prjmgc: -------------------------------------------------------------------------------- 1 | [Settings] 2 | AutoLibSuffix=0 3 | ClearChildAppSettings=1 4 | ClearChildPackageSettings=0 5 | ClearChildVersionInfo=1 6 | NormalizeDproj=1 7 | SplitDproj=1 8 | EnableMissingPlatforms=0 9 | RemoveUnusedPlatforms=1 10 | RefreshFormType=0 11 | RemoveExcludedPackages=1 12 | RemoveDeployment=0 13 | RemoveUWP=0 14 | RemoveExplicits=1 15 | 16 | -------------------------------------------------------------------------------- /TaurusTLS/Tests/Tests.Http.pas: -------------------------------------------------------------------------------- 1 | unit Tests.Http; 2 | 3 | interface 4 | 5 | uses 6 | DUnitX.TestFramework; 7 | 8 | type 9 | [TestFixture] 10 | TestHttp = class 11 | public 12 | [Setup] 13 | procedure Setup; 14 | [TearDown] 15 | procedure TearDown; 16 | 17 | [Test] 18 | procedure BasicConnection; 19 | end; 20 | 21 | implementation 22 | 23 | procedure TestHttp.Setup; 24 | begin 25 | //Todo 26 | end; 27 | 28 | procedure TestHttp.TearDown; 29 | begin 30 | //Todo 31 | end; 32 | 33 | procedure TestHttp.BasicConnection; 34 | begin 35 | //Todo 36 | end; 37 | 38 | initialization 39 | TDUnitX.RegisterTestFixture(TestHttp); 40 | end. 41 | -------------------------------------------------------------------------------- /TaurusTLS/What_needs_to_be_done.MD: -------------------------------------------------------------------------------- 1 | Here are some things that I ask other people for. 2 | 3 | 1. TaurusTLS should be made functional on ALL platforms that Embarcadero RAD Studio supports. This is something I need a lot of assistance with since I don’t have the capabilities to test for MacOS, iOS, and Android. 4 | 5 | 2. Someone needs to review the code I have to find bugs and issues that I’m not seeing. This also goes into item number 1. -------------------------------------------------------------------------------- /TaurusTLS/devtools/VersionManager/dmod_main.dfm: -------------------------------------------------------------------------------- 1 | object dmodMain: TdmodMain 2 | Height = 750 3 | Width = 1000 4 | PixelsPerInch = 120 5 | object projFile: TXMLDocument 6 | Left = 608 7 | Top = 432 8 | end 9 | end 10 | -------------------------------------------------------------------------------- /TaurusTLS/devtools/VersionManager/mainform.dfm: -------------------------------------------------------------------------------- 1 | object frmMainForm: TfrmMainForm 2 | Left = 0 3 | Top = 0 4 | Caption = 'frmMainForm' 5 | ClientHeight = 280 6 | ClientWidth = 624 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -12 11 | Font.Name = 'Segoe UI' 12 | Font.Style = [] 13 | DesignSize = ( 14 | 624 15 | 280) 16 | TextHeight = 15 17 | object lblMajorVersion: TLabel 18 | Left = 16 19 | Top = 16 20 | Width = 75 21 | Height = 15 22 | Caption = 'Ma&jor Version:' 23 | FocusControl = spnMajorVersion 24 | end 25 | object lblMinorVersion: TLabel 26 | Left = 168 27 | Top = 16 28 | Width = 76 29 | Height = 15 30 | Caption = 'M&inor Version:' 31 | FocusControl = spnMinorVersion 32 | end 33 | object lblRelease: TLabel 34 | Left = 320 35 | Top = 16 36 | Width = 42 37 | Height = 15 38 | Caption = '&Release:' 39 | FocusControl = spnedtRelease 40 | end 41 | object lblBuild: TLabel 42 | Left = 472 43 | Top = 16 44 | Width = 30 45 | Height = 15 46 | Caption = '&Build:' 47 | FocusControl = spnedtBuild 48 | end 49 | object lblCompanyName: TLabel 50 | Left = 16 51 | Top = 144 52 | Width = 90 53 | Height = 15 54 | Caption = 'Company Name:' 55 | FocusControl = edtCompanyName 56 | end 57 | object lblCopyright: TLabel 58 | Left = 16 59 | Top = 200 60 | Width = 56 61 | Height = 15 62 | Caption = '&Copyright:' 63 | FocusControl = edtCopyright 64 | end 65 | object lblProductName: TLabel 66 | Left = 16 67 | Top = 83 68 | Width = 90 69 | Height = 15 70 | Caption = 'lblProductName:' 71 | end 72 | object spnMajorVersion: TSpinEdit 73 | Left = 16 74 | Top = 32 75 | Width = 121 76 | Height = 24 77 | MaxValue = 0 78 | MinValue = 0 79 | TabOrder = 0 80 | Value = 0 81 | end 82 | object spnMinorVersion: TSpinEdit 83 | Left = 168 84 | Top = 32 85 | Width = 121 86 | Height = 24 87 | MaxValue = 0 88 | MinValue = 0 89 | TabOrder = 1 90 | Value = 0 91 | end 92 | object spnedtRelease: TSpinEdit 93 | Left = 320 94 | Top = 32 95 | Width = 121 96 | Height = 24 97 | MaxValue = 0 98 | MinValue = 0 99 | TabOrder = 2 100 | Value = 0 101 | end 102 | object spnedtBuild: TSpinEdit 103 | Left = 472 104 | Top = 32 105 | Width = 121 106 | Height = 24 107 | MaxValue = 0 108 | MinValue = 0 109 | TabOrder = 3 110 | Value = 0 111 | end 112 | object edtCompanyName: TEdit 113 | Left = 16 114 | Top = 157 115 | Width = 577 116 | Height = 23 117 | Anchors = [akLeft, akTop, akRight] 118 | TabOrder = 5 119 | ExplicitWidth = 575 120 | end 121 | object edtCopyright: TEdit 122 | Left = 16 123 | Top = 216 124 | Width = 577 125 | Height = 23 126 | Anchors = [akLeft, akTop, akRight] 127 | TabOrder = 6 128 | ExplicitWidth = 575 129 | end 130 | object btnGenerateFiles: TButton 131 | Left = 16 132 | Top = 248 133 | Width = 153 134 | Height = 25 135 | Anchors = [akLeft, akBottom] 136 | Caption = '&Generate Files' 137 | TabOrder = 7 138 | OnClick = btnGenerateFilesClick 139 | ExplicitTop = 240 140 | end 141 | object edtProductName: TEdit 142 | Left = 16 143 | Top = 96 144 | Width = 577 145 | Height = 23 146 | TabOrder = 4 147 | end 148 | end 149 | -------------------------------------------------------------------------------- /TaurusTLS/devtools/VersionManager/mainform.pas: -------------------------------------------------------------------------------- 1 | unit mainform; 2 | { 3 | Copyright (c) 2025 J. Peter Mugaas. All Rights Reserved. 4 | 5 | Licensed under the Modified TaurusTLS BSD Licence or MPL 1.1. 6 | } 7 | interface 8 | 9 | uses 10 | Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, 11 | Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Xml.xmldom, Xml.XMLIntf, 12 | Xml.Win.msxmldom, Xml.XMLDoc, Vcl.StdCtrls, Vcl.Samples.Spin; 13 | 14 | type 15 | TfrmMainForm = class(TForm) 16 | spnMajorVersion: TSpinEdit; 17 | spnMinorVersion: TSpinEdit; 18 | spnedtRelease: TSpinEdit; 19 | spnedtBuild: TSpinEdit; 20 | lblMajorVersion: TLabel; 21 | lblMinorVersion: TLabel; 22 | lblRelease: TLabel; 23 | lblBuild: TLabel; 24 | edtCompanyName: TEdit; 25 | lblCompanyName: TLabel; 26 | edtCopyright: TEdit; 27 | lblCopyright: TLabel; 28 | btnGenerateFiles: TButton; 29 | edtProductName: TEdit; 30 | lblProductName: TLabel; 31 | procedure btnGenerateFilesClick(Sender: TObject); 32 | private 33 | { Private declarations } 34 | public 35 | { Public declarations } 36 | constructor Create(AOwner : TComponent); override; 37 | destructor Destroy; override; 38 | end; 39 | 40 | var 41 | frmMainForm: TfrmMainForm; 42 | 43 | implementation 44 | uses IniFiles, dmod_main; 45 | 46 | {$R *.dfm} 47 | 48 | { TfrmMainForm } 49 | 50 | procedure TfrmMainForm.btnGenerateFilesClick(Sender: TObject); 51 | begin 52 | dmod_main.dmodMain.UpdateIncFile(spnMajorVersion.Value, 53 | spnMinorVersion.Value, 54 | spnedtRelease.Value, 55 | spnedtBuild.Value, 56 | edtProductName.Text); 57 | dmodMain.UpdateProductCopyright(Self.edtProductName.Text,Self.edtCopyright.Text); 58 | dmodMain.UpdatePackages(spnMajorVersion.Value, 59 | spnMinorVersion.Value, 60 | spnedtRelease.Value, 61 | spnedtBuild.Value, 62 | edtCompanyName.Text, 63 | edtCopyright.Text); 64 | dmodMain.WriteVersions_txt(edtProductName.Text, spnMajorVersion.Value, 65 | spnMinorVersion.Value, 66 | spnedtRelease.Value, 67 | spnedtBuild.Value); 68 | end; 69 | 70 | constructor TfrmMainForm.Create(AOwner: TComponent); 71 | var LIni : TIniFile; 72 | begin 73 | inherited Create(AOwner); 74 | Lini := TIniFile.Create( ChangeFileExt(ParamStr(0),'.ini')); 75 | try 76 | spnMajorVersion.Value := Lini.ReadInteger('Version','major',1); 77 | spnMinorVersion.Value := Lini.ReadInteger('Version','minor', 0); 78 | spnedtRelease.Value := Lini.ReadInteger('Version','release', 0); 79 | spnedtBuild.Value := Lini.ReadInteger('Version','build', 4); 80 | edtCompanyName.Text := Lini.ReadString('Company','Name', ''); 81 | edtCopyright.Text := LIni.ReadString('Copyright','Notice', ''); 82 | edtProductName.Text := LIni.ReadString('Product','Name',''); 83 | finally 84 | FreeAndNil(Lini); 85 | end; 86 | end; 87 | 88 | destructor TfrmMainForm.Destroy; 89 | var LIni : TIniFile; 90 | begin 91 | Lini := TIniFile.Create( ChangeFileExt(ParamStr(0),'.ini')); 92 | try 93 | Lini.WriteInteger('Version','major',spnMajorVersion.Value); 94 | Lini.WriteInteger('Version','minor',Self.spnMinorVersion.Value); 95 | Lini.WriteInteger('Version','release',Self.spnedtRelease.Value); 96 | Lini.WriteInteger('Version','build',Self.spnedtBuild.Value); 97 | LIni.WriteString('Product','Name',edtProductName.Text); 98 | Lini.WriteString('Company','Name',Self.edtCompanyName.Text); 99 | LIni.WriteString('Copyright','Notice',Self.edtCopyright.Text); 100 | finally 101 | FreeAndNil(Lini); 102 | end; 103 | inherited; 104 | end; 105 | 106 | end. 107 | -------------------------------------------------------------------------------- /TaurusTLS/devtools/VersionManager/versionmanager.dpr: -------------------------------------------------------------------------------- 1 | program versionmanager; 2 | 3 | uses 4 | Vcl.Forms, 5 | mainform in 'mainform.pas' {frmMainForm}, 6 | dmod_main in 'dmod_main.pas' {dmodMain: TDataModule}; 7 | 8 | {$R *.res} 9 | 10 | begin 11 | Application.Initialize; 12 | Application.MainFormOnTaskbar := True; 13 | Application.CreateForm(TfrmMainForm, frmMainForm); 14 | Application.CreateForm(TdmodMain, dmodMain); 15 | Application.Run; 16 | end. 17 | -------------------------------------------------------------------------------- /TaurusTLS/devtools/syncsrc.sh: -------------------------------------------------------------------------------- 1 | #!/bin/bash 2 | pushd .. 3 | cp Source/*.pas ../git/TaurusTLS/Source/ 4 | cp Source/*.inc ../git/TaurusTLS/Source/ 5 | cp Source/*.dcr ../git/TaurusTLS/Source/ 6 | cp Source/*.lrs ../git/TaurusTLS/Source/ 7 | 8 | cp Source/*.pas ../git/indy_extras/TaurusTLS/Source/ 9 | cp Source/*.inc ../git/indy_extras/TaurusTLS/Source/ 10 | cp Source/*.dcr ../git/indy_extras/TaurusTLS/Source/ 11 | cp Source/*.lrs ../git/indy_extras/TaurusTLS/Source/ 12 | popd -------------------------------------------------------------------------------- /TaurusTLS/devtools/syncvers.sh: -------------------------------------------------------------------------------- 1 | #!/bin/bash 2 | pushd .. 3 | find Packages/ -name "*.dpk" -exec cp -p {} ../git/TaurusTLS/{} \; 4 | find Packages/ -name "*.dproj" -exec cp -p {} ../git/TaurusTLS/{} \; 5 | find Packages/ -name "*.pas" -exec cp -p {} ../git/TaurusTLS/{} \; 6 | find Packages/ -name "*.lpk" -exec cp -p {} ../git/TaurusTLS/{} \; 7 | find Packages/ -name "*.res" -exec cp -p {} ../git/TaurusTLS/{} \; 8 | 9 | find Packages/ -name "*.dpk" -exec cp -p {} ../git/indy_extras/TaurusTLS/{} \; 10 | find Packages/ -name "*.dproj" -exec cp -p {} ../git/indy_extras/TaurusTLS/{} \; 11 | find Packages/ -name "*.pas" -exec cp -p {} ../git/indy_extras/TaurusTLS/{} \; 12 | find Packages/ -name "*.lpk" -exec cp -p {} ../git/indy_extras/TaurusTLS/{} \; 13 | find Packages/ -name "*.res" -exec cp -p {} ../git/indy_extras/TaurusTLS/{} \; 14 | 15 | cp -p Source/TaurusTLS_Dsn_ResourceStrings.pas ../git/TaurusTLS/Source/ 16 | cp -p Source/TaurusTLS_Vers.inc ../git/TaurusTLS/Source/ 17 | cp -p tmsbuild.yaml ../git/TaurusTLS/ 18 | cp -p version.txt ../git/TaurusTLS/ 19 | 20 | cp -p Source/TaurusTLS_Dsn_ResourceStrings.pas ../git/TaurusTLS/Source/ 21 | cp -p Source/TaurusTLS_Vers.inc ../git/indy_extras/TaurusTLS//Source/ 22 | cp -p tmsbuild.yaml ../git/indy_extras/TaurusTLS/ 23 | cp -p version.txt ../git/indy_extras/TaurusTLS/ 24 | 25 | popd -------------------------------------------------------------------------------- /TaurusTLS/tmsbuild.yaml: -------------------------------------------------------------------------------- 1 | minimum required tmsbuild version: 1.8 2 | 3 | application: 4 | id: taurustls_developers.taurustls 5 | name: TaurusTLS 6 | description: TaurusTLS provides OpenSSL 1.1.1 and 3.x support for Indy - Internet Direct. 7 |   url: https://github.com/JPeterMugaas/TaurusTLS 8 | 9 | version file: version.txt 10 | 11 | supported frameworks: 12 | rtl: 13 | ide since: delphiseattle 14 | platforms: 15 | - all 16 | 17 | lcl: 18 | ide since: lazarus 19 | ide until: lazarus 20 | platforms: 21 | - all 22 | 23 | 24 | packages: 25 | - TaurusTLS_RT: [runtime, rtl] 26 | - TaurusTLS_DT: [design, rtl] 27 | #lazarus 28 | - taurustlsrt: [runtime, lcl] 29 | - taurustlsldsgn: [design, lcl] 30 | 31 | help: 32 | file: Help/chm/TaurusForIndy290All.chm 33 | 34 | -------------------------------------------------------------------------------- /TaurusTLS/version.txt: -------------------------------------------------------------------------------- 1 | TaurusTLS: 1.0.0.24 2 | 2025-06-19 16:14:21.671 3 | --------------------------------------------------------------------------------