Регулярные выражения с php в Delphi

@Hardalternative · Регистрация: 30.01.2018

Студворк — интернет-сервис помощи студентам

Кто может помочь перевести скрипт в Delphi (RAD) или хотя бы пояснить что делают эти регулярные выражения. Поскольку не силен в этом.

Это скрипт на PHP по декодированию строк Byterun Protector for PHP Decoder.

PHP
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
#!/usr/bin/php
<?php
/*
 * Byterun Protector for PHP Decoder
 * usage:   byterun_decoder.php init.php
 */
 
// Import File and Normalize
$input_file = preg_replace('/\s*/m', '', file_get_contents($argv[1]));
$input_file = preg_replace('/php\$/', 'php $', $input_file);
 
// Base64 Encoded Source Code
$X = preg_match('/\$_X=\'(.*)\';/', $input_file, $matches);
$_X = $matches[1];
 
// Base64 Encoded Decode Algoritm
$D = preg_match('/\$_D\(\'(.*)\'\)\)/', $input_file, $matches);
$_D = $matches[1];
 
$algorithm = preg_replace('/\$_R=ereg_replace.*/', '', base64_decode($_D));
eval($algorithm);
 
echo $_X;
 
?>

@mr-Crocodile · 09.06.2021, 14:39

не надо видео.
что такое "Командная строка" - знаешь?
>> Кнопка "Пуск" - Все программы - Стандартные - Командная строка

сделать папку на диск (например, на диск D: папка D:\DECODE\. Положи туда свой EXE и File2021.txt
потом открой командную строку, набери

Code
1
2
3
D:
CD D:\DECODE\
acBaze64.exe

увидишь.

Добавлено через 1 минуту
PS. в конце программы перед последним END с точкой напиши команду

Delphi
1
    ReadLn;

консолька не будет сразу же закрываться.

@Hardalternative · 09.06.2021, 15:26 **[ТС]**

mr-Crocodile, Сделал, консоль не закрывается но получаю результат все равно закодированную строку.
То есть:

Delphi
1
P1g+PzJbMg1tPCoNbVNTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTDW13RTYuNlJxQVZ3ZGZocWZWdy13cFB3QwpBLjVWRnt3TVZrcTZ3TEsKYTJ3DW0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLQ1td1suLjI6PDxrRFYtZlZGe2VLYTwNbS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tDW13VwoyUEtxaFsudyh4KXdaWVlKLVpZWjd3QwpBLjVWRnt3TVZrcTZ3TEsKYTINbVNTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTDW13SFtxe3d4CmtWd3F7dzJLCi5WeC5Wa3dwUHd4CjJQS3FoWy4NbVNTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTDW13TnFEVjp3cWZxLmUyWzINbVNTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTDW0qPA1tDW1xQSh3IWtWQXFmVmsodydFM0gzUjlOZGQ1TDk1ZCd3KXcpd3MNbQlbVjZrVksodyJiSEg4PDdlN3dKWX13TgpLcHFra1ZmIncpOw1tCVtWNmtWS3codydSCng2LnEKZjp3ZWU8ZWU8ZWU8J3cpOw1tCWtxVih3ImI2eHlxZmh3Ni4uVkcyLiEidyk7DW1pDW0NbWtWQXFmVignRTk1OUhRZGpDOTQ1Jyx3J1pZWjcndyk7DW1rVkFxZlYoJ1FkakM5NDU5RScsd3d3dyc3SmVaJ3cpOw1ta1ZBcWZWKCdUVTlSRTlFJyx3d3d3d3cnWllZJ3cpOw1ta1ZBcWZWKCdFZE00UWRqQzk0NScsd3cnNyd3KTsNbQ1tW1Y2a1ZLKCJXCmYuVmYuLS5QMlY6dy5WIC48Wy5HRDt3eFs2S3tWLlNhLkEtbCIpOw1tW1Y2a1ZLdygiQi1OSzZHVi00Mi5xCmZ7OndDM01kNGo5TDk1Iik7DW0NbUtWL2FxS1ZfCmZ4VncoRVJkOERhaHFmezo6V1tWeHkoZDVMOTVkX0U5andldyc8cWZ4PHFmeERha1Y8QWFmeC5xCmZ7ZXFmeGUyWzInKSk7DW0NbWs2LlZfa1ZBNmFELl8ucUdWcgpmVl97Vi53KHckeApmQXFoSSdrNi5WXzZrMWF7Lid2dyk7DW0NbWtEVl97Vnt7cQpmKCk7DW14W1Z4eV8ge3soKTsNbQ1tJHgKZkFxaEkneFs2S3tWLid2d1N3ey5LLgpECkZWSyguS3FHKCR4CmZBcWhJJ3hbNkt7Vi4ndikpOw1tDW1xQSh3JHgKZkFxaEknCmZEUF97e0QndnczNUV3IXF7Q0NSKCl3MzVFdyFxe3tWLigkX0NkQ0M5NDVJJ3F7X0tWa3FLVnguJ3Ypdyl3cw1tCSRfQ2RDQzk0NUkncXtfS1ZrcUtWeC4ndndTdy5LYVY7DW0JJF9DZGpRZGpJJ2pkblVkQ0hfVWo5J3Z3U3dbLkdEezJWeHE2RHhbNkt7KCRfQ2RqUWRqSSdqZG5VZENIX1VqOSd2LHdkNUhfblU0SGRDLHckeApmQXFoSSd4WzZLe1YuJ3Z3KTsNbQlbVjZrVksoImJISDg8N2VZd31ZN3dNCnpWa3c4VktHNmZWZi5EUCIpOw1tCVtWNmtWSygiUgp4Ni5xCmY6d1suLjJ7Ojw8ImUkX0NkalFkakknYkhIOF9iNENIJ3ZlJF9DZGpRZGpJJ2pkblVkQ0hfVWo5J3YpOw1tCWtxVigialZrcUtWeC4iKTsNbQ1taXdWRHtWcUEod3F7e1YuKCRfQ2RDQzk0NUkncXtfS1ZrcUtWeC4ndil3KXdzd2Fme1YuKCRfQ2RDQzk0NUkncXtfS1ZrcUtWeC4ndik7d2kNbQ1tJERxeF8uS3dTdy5LYVY7DW0kNmEuCl9rVi5WeC5feApmQXFod1N3QTZEe1Y7DW0kawpHVmZfR2t1d1N3R2t1KHdoVi5fawpHVmZfWzZ7Wygpd2V3RTk1OUhRZGpDOTQ1dyk7DW1xQSh3JGsKR1ZmX0drdXdTU3ckeApmQXFoSSd5VlAndncpdyREcXhfLkt3U3dBNkR7VjsNbQ1tJF9DZGpRZGpJJzhiOF9DZFJOJ3Z3U3dbLkdEezJWeHE2RHhbNkt7KHckX0NkalFkakknOGI4X0NkUk4ndix3ZDVIX25VNEhkQyx3JHgKZkFxaEkneFs2S3tWLid2dyk7DW0NbXFBKHckeApmQXFoSSdbLi4yX1sKR1ZfYUtEJ3Z3U1N3IiJ3KXdzDW0JDW0JJHgKZkFxaEknWy4uMl9bCkdWX2FLRCd2d1N3ViAyRAprVih3JHgKZkFxaEknNmtHcWZfMjYuWyd2LHckX0NkalFkakknOGI4X0NkUk4ndncpOw1tCSR4CmZBcWhJJ1suLjJfWwpHVl9hS0QndndTd0tWe1YuKHckeApmQXFoSSdbLi4yX1sKR1ZfYUtEJ3Z3KTsNbQkkeApmQXFoSSdbLi4yX1sKR1ZfYUtEJ3Z3U3ciWy4uMns6PDwid2V3JF9DZGpRZGpJJ2JISDhfYjRDSCd2d2V3JHgKZkFxaEknWy4uMl9bCkdWX2FLRCd2Ow1tCSQ2YS4KX2tWLlZ4Ll94CmZBcWh3U3cuS2FWOw1tDW1pDW0NbSR7VkRWeC5Wa19ENmZoYTZoVndTdyR4CmZBcWhJJ0Q2Zmh7J3Y7DW0NbXFBdyhxe3tWLih3JF84NENISSd7VkRWeC5Wa19ENmZoYTZoVid2dykpd3MNbQ1tCSRfODRDSEkne1ZEVnguVmtfRDZmaGE2aFYndndTdy4KLks2ZntEcS4odyRfODRDSEkne1ZEVnguVmtfRDZmaGE2aFYndix3QTZEe1Ysd0E2RHtWdyk7DW0NbQlxQXcoJF84NENISSd7VkRWeC5Wa19ENmZoYTZoVid2dyFTdyIidzM1RXdAcXtfa3FLdyh3ajQ0SF9FOWp3ZXcnPEQ2ZmhhNmhWPCd3ZXckXzg0Q0hJJ3tWRFZ4LlZrX0Q2ZmhhNmhWJ3Z3KSl3cw1tCQkke1ZEVnguVmtfRDZmaGE2aFZ3U3ckXzg0Q0hJJ3tWRFZ4LlZrX0Q2ZmhhNmhWJ3Y7DW0JCXtWLl94Cgp5cVZ3KHcie1ZEVnguVmtfRDZmaGE2aFYiLHcke1ZEVnguVmtfRDZmaGE2aFYsd30wdXcpOw1tDW0JaQ1tDW1pd1ZEe1ZxQXcocXt7Vi4odyRfVzQ0dDlkSSd7VkRWeC5Wa19ENmZoYTZoVid2dykpd3N3DW0NbQkkX1c0NHQ5ZEkne1ZEVnguVmtfRDZmaGE2aFYndndTdy4KLks2ZntEcS4odyRfVzQ0dDlkSSd7VkRWeC5Wa19ENmZoYTZoVid2LHdBNkR7Vix3QTZEe1Z3KTsNbQ1tCXFBdygkX1c0NHQ5ZEkne1ZEVnguVmtfRDZmaGE2aFYndnchU3ciInczNUV3QHF7X2txS3cod2o0NEhfRTlqd2V3JzxENmZoYTZoVjwnd2V3JF9XNDR0OWRJJ3tWRFZ4LlZrX0Q2ZmhhNmhWJ3Z3KSl3cw1tCQkke1ZEVnguVmtfRDZmaGE2aFZ3U3ckX1c0NHQ5ZEkne1ZEVnguVmtfRDZmaGE2aFYndjsNbQlpDW0NbWkNbXFBdyh3QXFEVl9WIHF7Lnsod0VSZDhEYWhxZns6OldbVnh5KGo0NEhfRTlqd2V3JzxENmZoYTZoVjwnd2V3JHtWRFZ4LlZrX0Q2ZmhhNmhWd2V3Jzw2a0dxZjI2ZlZEZURmaCcpdyl3KXdzDW0JS1YvYXFLVl8KZnhWdyhFUmQ4RGFocWZ7OjpXW1Z4eShqNDRIX0U5andldyc8RDZmaGE2aFY8J3dldyR7VkRWeC5Wa19ENmZoYTZoVndldyc8NmtHcWYyNmZWRGVEZmgnKSk7DW1pd1ZEe1Z3a3FWKCJSNmZoYTZoVndBcURWd2YKLndBCmFmayIpOw1tDW0kcXtfRApoVmtfcWZ3U3dBNkR7VjsNbSRHVkdwVktfcWt3U3c2S0s2UHcoKTsNbSRLVnthRC53U3ciIjsNbSRhe1ZLZjZHVndTdyIiOw1tJHhHa3VfMjZ7e0YKS2t3U3ciIjsNbSQ2REQKRl9ECmhxZndTd0E2RHtWOw1tJHhbVnh5X0QKaHdTd0E2RHtWOw1tJDYuLlZHMi5fRApocWZ3U3dBNkR7VjsNbSQxe182S0s2UHdTdzZLSzZQdygpOw1tJHh7e182S0s2UHdTdzZLSzZQdygpOw1tJDhiOF9DZFJOd1N3JF9DZGpRZGpJJzhiOF9DZFJOJ3Y7DW0kXzk4d1N3aFYuX3EyKCk7DW0kX0g5TWR3U3cucUdWdygpOw1tJHt5cWZfW1Y2a1ZLd1N3IiI7DW0ke3lxZl9BCgouVkt3U3ciIjsNbSQ2REQKRl9WIC5LNl9ECmhxZndTd0E2RHtWOw1tJDIKey53U3dBNkR7VjsNbSRfQ2RDQzk0NUkna0RWXyAuSzYndndTd0E2RHtWOw1tDW0kX2pkblVkQ0hJJzZ4LnEKZid2d1N3cXt7Vi4oJF9qZG5VZENISSc2eC5xCmYndil3P3ckX2pkblVkQ0hJJzZ4LnEKZid2dzp3Jyc7DW0kXzg0Q0hJJzZ4LnEKZid2d3d3d1N3cXt7Vi4oJF84NENISSc2eC5xCmYndil3P3ckXzg0Q0hJJzZ4LnEKZid2dzp3Jyc7DW0kX0xkSEknNngucQpmJ3Z3d3d3d1N3cXt7Vi4oJF9MZEhJJzZ4LnEKZid2KXc/dyRfTGRISSc2eC5xCmYndnc6dycnOw1tJF9qZG5VZENISSd7YXA2eC5xCmYndndTd3F7e1YuKCRfamRuVWRDSEkne2FwNngucQpmJ3Ypdz93JF9qZG5VZENISSd7YXA2eC5xCmYndnc6dycnOw1tJF9qZG5VZENISSdrCjZ4LnEKZid2d1N3cXt7Vi4oJF9qZG5VZENISSdrCjZ4LnEKZid2KXc/dyRfamRuVWRDSEknawo2eC5xCmYndnc6dycnOw1tJF84NENISSdrCjZ4LnEKZid2d1N3cXt7Vi4oJF84NENISSdrCjZ4LnEKZid2KXc/dyRfODRDSEknawo2eC5xCmYndnc6dycnOw1tCQ1tJEQKaHFmXzI2SzZHe3dTdzZLSzZQKCdxMl94CmYuSwpEJ3dTWHckeApmQXFoSSdxMl94CmYuSwpEJ3YsdydECmhfWzZ7Wyd3U1h3JHgKZkFxaEknRApoX1s2e1sndik7DW0NbXFBdyh3JHgKZkFxaEknViAuSzZfRApocWYndnczNUV3ey5LcTIKeyg4YjhfQzM4OSx3IjYyNnhbViJ3KXchU1N3QTZEe1Z3MzVFdyEkX0NkQ0M5NDVJJ2tEVl8gLks2J3Z3KXdzDW0JJDZERApGX1YgLks2X0QKaHFmd1N3LkthVjsNbWl3VkR7VnckNkRECkZfViAuSzZfRApocWZ3U3dBNkR7VjsNbQ1tcUEodyRfODRDSEknNngucQpmJ3Z3KXckNngucQpmd1N3JF84NENISSc2eC5xCmYndjsNbVZEe1ZxQSh3JF9MZEhJJzZ4LnEKZid2dyl3JDZ4LnEKZndTdyRfTGRISSc2eC5xCmYndjsNbVZEe1Z3JDZ4LnEKZndTdycnOw1tDW1xQSh3cXt7Vi4odyRfODRDSEknRwprJ3Z3KXcpdyRHCmt3U3ckXzg0Q0hJJ0cKayd2Ow1tVkR7VnFBKHdxe3tWLih3JF9MZEhJJ0cKayd2dyl3KXckRwprd1N3JF9MZEhJJ0cKayd2Ow1tVkR7VnckRwprd1N3Jyc7DW0NbSRHCmt3U3cuCi5LNmZ7RHEudyh3JEcKayx3LkthVix3QTZEe1Z3KTsNbSQ2eC5xCmZ3U3cuCi5LNmZ7RHEudyh3JDZ4LnEKZix3QTZEe1Ysd0E2RHtWdyk7DW0NbSRhe1ZLX2hLCmEyd1N3aFYuX3o2S3sodyJhe1ZLaEsKYTIidyk7DW0NbXFBKHchdyRhe1ZLX2hLCmEydyl3cw1tCSRhe1ZLX2hLCmEyd1N3NktLNlB3KCk7DW0JDW0JJGtwLVgvYVZLUCh3IkNkUmRXSHcqd05qNE13Indld1VDZGo4amROOUJ3ZXciX2F7VktoSwphMnt3NGpFZGp3VE93cWt3M0NXIncpOw1tCQ1tCUZbcURWdyh3JEsKRndTdyRrcC1YaFYuX0sKRigpdyl3cw1tCQkNbQkJJGF7VktfaEsKYTJJJEsKRkkncWsndnZ3U3c2S0s2UHcoKTsNbQkJDW0JCUEKS1Y2eFt3KHckSwpGdzZ7dyR5VlB3U1h3JHo2RGFWdyl3cw1tCQkJJGF7VktfaEsKYTJJJEsKRkkncWsndnZJJHlWUHZ3U3d7LktxMntENntbVnsoJHo2RGFWKTsNbQkJaQ1tCQ1tCWkNbQl7Vi5fejZLeyh3ImF7VktoSwphMiIsdyRhe1ZLX2hLCmEydyk7DW0JJGtwLVhBS1ZWKCk7DW1pDW0NbSR4Ni5fcWZBCndTd2hWLl96Nkt7KHcieDYuVmgKS1Aidyk7DW0NbXFBKHchd3F7XzZLSzZQKHckeDYuX3FmQQp3KXcpd3MNbQkkeDYuX3FmQQp3U3c2S0s2UHcoKTsNbQkNbQkka3AtWC9hVktQKHciQ2RSZFdIdyp3Tmo0TXcid2V3OGpkTjlCd2V3Il94Ni5WaApLUHc0akVkandUT3cyCntxdzNDVyJ3KTsNbQkNbQlGW3FEVncodyRLCkZ3U3cka3AtWGhWLl9LCkYoKXcpd3MNbQkJDW0JCXFBKHchJEsKRkknNngucXpWJ3Z3KXd4CmYucWZhVjsNbQkJDW0JCSR4Ni5fcWZBCkkkSwpGSSdxayd2dndTdzZLSzZQdygpOw1tCQkNbQkJQQpLVjZ4W3codyRLCkZ3Nnt3JHlWUHdTWHckejZEYVZ3KXdzDW0JCQkkeDYuX3FmQQpJJEsKRkkncWsndnZJJHlWUHZ3U3d7LktxMntENntbVnsodyR6NkRhVncpOw1tCQlpDW0JDW0JaQ1tCQ1tCXtWLl96Nkt7KHcieDYuVmgKS1AiLHckeDYuX3FmQQp3KTsNbQkka3AtWEFLVlYoKTsNbWkNbQ1tcUEod3F7e1YuKCRfamRuVWRDSEknNngucQpmJ3YpdzM1RXckX2pkblVkQ0hJJzZ4LnEKZid2d1NTdyJECmgKYS4idyl3cw1tCQ1tCXtWLl94Cgp5cVYodyJrRFZfYXtWS19xayIsdyIiLHdZdyk7DW0Je1YuX3gKCnlxVih3ImtEVl8yNnt7RgpLayIsdyIiLHdZdyk7DW0Je1YuX3gKCnlxVih3ImtEVl97eXFmIix3IiIsd1l3KTsNbQl7Vi5feAoKeXFWKHcia0RWX2ZWRjJHIix3IiIsd1l3KTsNbQl7Vi5feAoKeXFWKHcia0RWX1s2e1siLHciIix3WXcpOw1tCXtWLl94Cgp5cVYodyJrRFZfeApHMkQiLHciIix3WXcpOw1tCXtWLl94Cgp5cVYodyIucUdWCmEuX3tWe3txCmYiLHdZLHdZdyk7DW0Je1YuX3gKCnlxVih3e1Z7e3EKZl9mNkdWKCksdyIiLHdZdyk7DW0JDW0JQHtWe3txCmZfYWZ7Vi4oKTsNbQlAe1Z7e3EKZl9rVnsuSwpQKCk7DW0JDW0JcUEodyR4CmZBcWhJJ1YgLks2X0QKaHFmJ3Z3MzVFd3suS3EyCnsoOGI4X0MzODksdyI2MjZ4W1Yidyl3IVNTd0E2RHtWdyl3NmEuWygpOw1tDW0JW1Y2a1ZLKHciUgp4Ni5xCmY6dz9HCmtTRzZxZiJ3KTsNbQkNbQlHe2godyJxZkEKIix3JEQ2ZmhJJ3Fma1YgX0d7aFYndix3JEQ2ZmhJJ3Fma1YgX1YgcS4ndncpOw1taQ1tCQ1tJDZERApGX0QKaHFmd1N3LkthVjsNbXFBdygkeApmQXFoSSdECmhxZl9ECmgndil3JDZERApGX0QKaHFmd1N3eFtWeHlfNkRECkZfRApocWZ3KCRfOTgsdyR4CmZBcWhJJ0QKaHFmX0QKaCd2KTsNbQ1tcUF3KCEkNkRECkZfRApocWYpd3MNbQkkRDZmaEknRApocWZfVktLX1ondndTd3suS19LVjJENnhWKCJzLnFHVmkiLHckeApmQXFoSSdECmhxZl9wNmZfLnFHVgphLid2LHckRDZmaEknRApocWZfVktLX1ondik7DW0JR3toKHcicWZBCiIsdyRENmZoSSdxZmtWIF9He2hWJ3YsdyRENmZoSSdECmhxZl9WS0tfWid2dyk7DW1pDW0NbXFBKHckNkRECkZfRApocWZ3KXdzDW0NbQlxQSh3JDZERApGX1YgLks2X0QKaHFmdyl3cw1tCQkNbQkJcUEodyFxe3tWLih3JF9DZGpRZGpJJzhiOF8zVUhiX1VDZGondncpd3x8dyFxe3tWLih3JF9DZGpRZGpJJzhiOF8zVUhiXzhdJ3Z3KXcpdzZhLlsoKTsNbQkJJGF7VktmNkdWd1N3JF9DZGpRZGpJJzhiOF8zVUhiX1VDZGondjsNbQkJJHhHa3VfMjZ7e0YKS2t3U3coey5LcWZoKSRfQ2RqUWRqSSc4YjhfM1VIYl84XSd2Ow1tCQkkMgp7LndTdy5LYVY7DW0JCSR4W1Z4eV9ECmh3U3cuS2FWOw1tCQkkNi4uVkcyLl9ECmhxZndTdy5LYVY7DW0JCQ1tCQlxQSh3JHgKZkFxaEkneFs2S3tWLid2dyFTdyJhLkEtbCJ3KXdzDW0JCQ1tCQkJcUEod0FhZngucQpmX1YgcXsueyh3J0dwX3gKZnpWSy5fVmZ4CmtxZmgndyl3KXdzDW0JCQkNbQkJCQkkYXtWS2Y2R1Z3U3dHcF94CmZ6VksuX1ZmeAprcWZoKHckYXtWS2Y2R1YsdyR4CmZBcWhJJ3hbNkt7Vi4ndix3ImEuQS1sIncpOw1tCQkJDW0JCQlpd1ZEe1ZxQSh3QWFmeC5xCmZfViBxey57KHcncXgKZnondyl3KXdzDW0JCQkJDW0JCQkJJGF7VktmNkdWd1N3cXgKZnooImEuQS1sIix3JHgKZkFxaEkneFs2S3tWLid2LHckYXtWS2Y2R1YpOw1tCQkJCQ1tCQkJaQ1tCQkJDW0JCQlxQSh3QWFmeC5xCmZfViBxey57KHcnR3BfeApmelZLLl9WZngKa3FmaCd3KXcpd3MNbQkJCQ1tCQkJCSR4R2t1XzI2e3tGCktrd1N3R3BfeApmelZLLl9WZngKa3FmaCh3JHhHa3VfMjZ7e0YKS2ssdyR4CmZBcWhJJ3hbNkt7Vi4ndix3ImEuQS1sIncpOw1tCQkJDW0JCQlpd1ZEe1ZxQSh3QWFmeC5xCmZfViBxey57KHcncXgKZnondyl3KXdzDW0JCQkJDW0JCQkJJHhHa3VfMjZ7e0YKS2t3U3dxeApmeigiYS5BLWwiLHckeApmQXFoSSd4WzZLe1YuJ3YsdyR4R2t1XzI2e3tGCktrKTsNbQkJCQkNbQkJCWkNbQkJCQ1tCQlpDW0JDW0JaXdWRHtWcUEod3F7e1YuKCRfQ2RDQzk0NUkna0RWX2F7VktfcWsndil3MzVFd3FmLno2RCh3JF9DZENDOTQ1SSdrRFZfYXtWS19xayd2dyl3WHdZdzM1RXckX0NkQ0M5NDVJJ2tEVl8yNnt7RgpLayd2dyl3cw1tCQkNbQkJJGF7VktmNkdWd1N3cWYuejZEKCRfQ2RDQzk0NUkna0RWX2F7VktfcWsndik7DW0JCSR4R2t1XzI2e3tGCktrd1N3JF9DZENDOTQ1SSdrRFZfMjZ7e0YKS2sndjsNbQkJJDIKey53U3dBNkR7VjsNbQkJJDYuLlZHMi5fRApocWZ3U3cuS2FWOw1tCQlxQXcoISRfQ2RDQzk0NUkneFtWeHlfRApoJ3YpdyR4W1Z4eV9ECmh3U3cuS2FWOw1tCQ1tCWl3VkR7VnFBKHdxe3tWLigkX1c0NHQ5ZEkna0RWX2F7VktfcWsndil3MzVFd3FmLno2RCh3JF9XNDR0OWRJJ2tEVl9he1ZLX3FrJ3Z3KXdYd1l3MzVFdyRfVzQ0dDlkSSdrRFZfMjZ7e0YKS2sndil3cw1tCQkNbQkJJGF7VktmNkdWd1N3cWYuejZEKCRfVzQ0dDlkSSdrRFZfYXtWS19xayd2KTsNbQkJJHhHa3VfMjZ7e0YKS2t3U3coey5LcWZoKSRfVzQ0dDlkSSdrRFZfMjZ7e0YKS2sndjsNbQkJJDIKey53U3dBNkR7VjsNbQkJJHhbVnh5X0QKaHdTdy5LYVY7DW0JCSQ2Li5WRzIuX0QKaHFmd1N3LkthVjsNbQlpDW0JDW0JcUEod3F7e1YuKCRfamRuVWRDSEkne2FwNngucQpmJ3YpdzM1RXckX2pkblVkQ0hJJ3thcDZ4LnEKZid2d1NTdydrCkQKaHFmJ3cpd3MNbQkJDW0JCSRhe1ZLZjZHVndTdyRfODRDSEknYXtWS2Y2R1YndjsNbQkJJHhHa3VfMjZ7e0YKS2t3U3coey5LcWZoKSRfODRDSEknMjZ7e0YKS2sndjsNbQkJJDIKey53U3cuS2FWOw1tCQkkeFtWeHlfRApod1N3LkthVjsNbQkJJDYuLlZHMi5fRApocWZ3U3cuS2FWOw1tCQkNbQkJcUEodyR4CmZBcWhJJ3hbNkt7Vi4ndnchU3ciYS5BLWwidyl3cw1tCQkNbQkJCXFBKHdBYWZ4LnEKZl9WIHF7LnsodydHcF94CmZ6VksuX1ZmeAprcWZoJ3cpdyl3cw1tCQkJDW0JCQkJJGF7VktmNkdWd1N3R3BfeApmelZLLl9WZngKa3FmaCh3JGF7VktmNkdWLHckeApmQXFoSSd4WzZLe1YuJ3YsdyJhLkEtbCJ3KTsNbQkJCQ1tCQkJaXdWRHtWcUEod0FhZngucQpmX1YgcXsueyh3J3F4CmZ6J3cpdyl3cw1tCQkJCQ1tCQkJCSRhe1ZLZjZHVndTd3F4CmZ6KCJhLkEtbCIsdyR4CmZBcWhJJ3hbNkt7Vi4ndix3JGF7VktmNkdWKTsNbQkJCQkNbQkJCWkNbQkJCQ1tCQkJcUEod0FhZngucQpmX1YgcXsueyh3J0dwX3gKZnpWSy5fVmZ4CmtxZmgndyl3KXdzDW0JCQkNbQkJCQkkeEdrdV8yNnt7RgpLa3dTd0dwX3gKZnpWSy5fVmZ4CmtxZmgodyR4R2t1XzI2e3tGCktrLHckeApmQXFoSSd4WzZLe1YuJ3YsdyJhLkEtbCJ3KTsNbQkJCQ1tCQkJaXdWRHtWcUEod0FhZngucQpmX1YgcXsueyh3J3F4CmZ6J3cpdyl3cw1tCQkJCQ1tCQkJCSR4R2t1XzI2e3tGCktrd1N3cXgKZnooImEuQS1sIix3JHgKZkFxaEkneFs2S3tWLid2LHckeEdrdV8yNnt7RgpLayk7DW0JCQkJDW0JCQlpDW0JCQkNbQkJaQ1tCQ1tCWkNbQ1taQ1tDW1xQSh3eFtWeHlfRApocWYodyRhe1ZLZjZHVix3JHhHa3VfMjZ7e0YKS2ssdyQyCnsuLHckeFtWeHlfRApodyl3KXdzDW0JJHF7X0QKaFZrX3Fmd1N3LkthVjsNbQkJDW0JcUF3KHckMgp7LnczNUV3MjZ7e0YKS2tfZlZWa3tfS1ZbNntbKCRHVkdwVktfcWtJJzI2e3tGCktrJ3YsdzgzQ0NdNGpFX0VkTjNVUkgpdyl3cw1tCQkNbQkJcUF3KCR4CmZBcWhJJ3hbNkt7Vi4ndndTU3ciYS5BLWwidzM1RXd6Vkt7cQpmX3gKRzI2S1YoJHgKZkFxaEknelZLe3EKZl9xayd2LHcnNzdlWicsdydYUycpKXdzDW0JCQkNbQkJCXFBKHd7LktEVmYoJHhHa3VfMjZ7e0YKS2spd1h3b1p3KXckeEdrdV8yNnt7RgpLa3dTd3thcHsuSygkR2t1XzI2e3tGCktrLHdZLHdvWik7DW0JCQkNbQkJCSRHVkdwVktfcWtJJzI2e3tGCktrJ3Z3U3cyNnt7RgpLa19bNntbKCR4R2t1XzI2e3tGCktrLHc4M0NDXTRqRV9FZE4zVVJIKTsNbQkJCQkNbQkJCSRmVkZfMjZ7e19bNntbd1N3IjI2e3tGCktrUyciZSRrcC1YezZBVnsvRCgkR1ZHcFZLX3FrSScyNnt7RgpLayd2KWUiJyx3IjsNbQkJCQ1tCQlpd1ZEe1Z3JGZWRl8yNnt7X1s2e1t3U3ciIjsNbQkJDW0JaXdWRHtWdyRmVkZfMjZ7e19bNntbd1N3IiI7DW0JDW0JcUEoJHgKZkFxaEknLkYKQTZ4LgpLXzZhLlsndnczNUV3JEdWR3BWS19xa0knLkYKQTZ4LgpLXzZhLlsndil3cw1tCQkkeApmQXFoSSdxMl94CmYuSwpEJ3Z3U3daOw1tCQkkeApmQXFoSSdECmhfWzZ7Wyd2d1N3NzsNbQlpDW0NbQlxQSh3IXF7e1YuKCRfQ2RDQzk0NUkna0RWX2F7VktfcWsndil3MzVFd3F7e1YuKCRfVzQ0dDlkSSdrRFZfYXtWS19xayd2KXczNUV3JF9XNDR0OWRJJ2tEVl9he1ZLX3FrJ3Z3KXdzDW0JCQ1tCQl7Vnt7cQpmX0tWaFZmVks2LlZfcWsoKTsNbQkJDW0JCSRfQ2RDQzk0NUkna0RWX2F7VktfcWsndndTdyRfVzQ0dDlkSSdrRFZfYXtWS19xayd2Ow1tCQkkX0NkQ0M5NDVJJ2tEVl8yNnt7RgpLayd2d1N3JF9XNDR0OWRJJ2tEVl8yNnt7RgpLayd2Ow1tCWkNbQ1taXdWRHtWd3MNbQkNbQlxQSh3JF9qZG5VZENISSd7YXA2eC5xCmYndndTU3cnawpECmhxZid3KXdzDW0JCQ1tCQkkS1Z7YUQud1N3Ij57MjZmd3hENnt7U1wiLlYgLi1rNmZoVktcIlgid2V3JEQ2ZmhJJ3Fma1YgX1ZLSzI2e3sndndldyI+PHsyNmZYIjsNbQkNbQlpd1ZEe1YNbQkJJEtWe2FELndTdyIiOw1tCQ1tCXFBKHckNkRECkZfViAuSzZfRApocWZ3KXc2YS5bKCk7DW0JDW0JJHF7X0QKaFZrX3Fmd1N3QTZEe1Y7DW1pDW0NbXFBKHckcXtfRA

@mr-Crocodile · 09.06.2021, 16:35

Hardalternative, возможно, что проблема с совместимостью версий Delphi.
Для начала попробуй удалить из папки файл EncdDecd.pas (он там от Delphi 2006, у тебя винда современная, там свой должен быть, свежий).

@mr-Crocodile · 09.06.2021, 16:43

Verevkin, извини, ты не мог бы проверить на своей Delphi проект - работает или нет? (знаю, что у тебя Delphi свежая, возможно, что на ней с данный проектом бяда: он компилируется, но не работает...)

@Hardalternative · 09.06.2021, 17:16 **[ТС]**

mr-Crocodile, Теперь лучше но вот так получается, в чем может быть проблема ?

@mr-Crocodile · 09.06.2021, 17:31

Сообщение от Hardalternative

Теперь лучше но вот так получается, в чем может быть проблема ?

вот. это точно проблема несовместимости - в старой версии Delphi не было unicode, современная Delphi же уникодная изначально.

Добавлено через 3 минуты
Hardalternative, попробуй в исходных текстах acBaze64.dpr заменить все типы String на тип AnsiString

получается вот так:
acBaze64.dpr.7z

@Hardalternative · 09.06.2021, 17:31 **[ТС]**

mr-Crocodile, А если не сложно можешь откомпилировать проект у себя и прикрепить к теме. А запущу у себя готовый exe и посмотрю что получается. ? А я сейчас сделаю как ты выше написал в сообщении.

@mr-Crocodile · 09.06.2021, 17:35

Сообщение от Hardalternative

А если не сложно можешь откомпилировать проект у себя и прикрепить к теме.

да без проблем

@Hardalternative · 09.06.2021, 17:43 **[ТС]**

mr-Crocodile, Ура

)) Все таки и у меня заработало!!! Я заменил все типы String на тип AnsiString и победа! 1000 плюсов тебе! Спасибо!

@mr-Crocodile · 09.06.2021, 17:45

Пожалуйста. Хотя, конечно, это не мне спасибо, а Joeymax красавчик!

@Hardalternative · 09.06.2021, 17:48 **[ТС]**

mr-Crocodile, Joeymax, Ребята СПАСИБО огромное. теперь не нужно обращаться по 1000 раз в онлайн сервисы.

Новые блоги и статьи Все статьи Все блоги /
Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия
Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .	Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .

@mr-Crocodile 3054 / 1673 / 657 Регистрация: 19.03.2019 Сообщений: 5,380
	09.06.2021, 16:35
	Hardalternative, возможно, что проблема с совместимостью версий Delphi. Для начала попробуй удалить из папки файл EncdDecd.pas (он там от Delphi 2006, у тебя винда современная, там свой должен быть, свежий). 0

@Hardalternative 3 / 3 / 0 Регистрация: 30.01.2018 Сообщений: 415
	09.06.2021, 17:16 [ТС]
	mr-Crocodile, Теперь лучше но вот так получается, в чем может быть проблема ? Миниатюры 0

@Hardalternative 3 / 3 / 0 Регистрация: 30.01.2018 Сообщений: 415
	09.06.2021, 17:31 [ТС]
	mr-Crocodile, А если не сложно можешь откомпилировать проект у себя и прикрепить к теме. А запущу у себя готовый exe и посмотрю что получается. ? А я сейчас сделаю как ты выше написал в сообщении. 0

@Hardalternative 3 / 3 / 0 Регистрация: 30.01.2018 Сообщений: 415
	09.06.2021, 17:43 [ТС]
	mr-Crocodile, Ура )) Все таки и у меня заработало!!! Я заменил все типы String на тип AnsiString и победа! 1000 плюсов тебе! Спасибо! 0

@mr-Crocodile 3054 / 1673 / 657 Регистрация: 19.03.2019 Сообщений: 5,380
	09.06.2021, 17:45
	Пожалуйста. Хотя, конечно, это не мне спасибо, а Joeymax красавчик! 1

@Hardalternative 3 / 3 / 0 Регистрация: 30.01.2018 Сообщений: 415
	09.06.2021, 17:48 [ТС]
	mr-Crocodile, Joeymax, Ребята СПАСИБО огромное. теперь не нужно обращаться по 1000 раз в онлайн сервисы. 0

Регулярные выражения с php в Delphi

Решение