Вверх ↑
Этот топик читают: Гость
Ответов: 168
Рейтинг: 1
#1: 2025-09-17 18:32:30 ЛС | профиль | цитата
Я не могу понять что за строку выдает консоль. Она не сравнивается с обычной строкой. Пробелов после цифр в ней нет.
Make(delphi)
ver(4.05 build 186)
Add(MainForm,14162385,245,224)
{
Width=954
Height=258
link(onCreate,10721369:doString,[])
}
Add(WinExec,7014996,364,224)
{
FileName="POWERSHELL"
Mode=0
Action="runas"
Point(doConsoleExec)
Point(onConsoleError)
Point(onConsoleResult)
link(FileName,11795667:Value,[])
link(onConsoleError,2814240:doWork2,[])
link(onConsoleResult,2814240:doWork3,[(417,251)])
}
Add(Charset,1678668,434,238)
{
link(onCharset,2138667:doEvent1,[(482,244)(482,195)])
}
Add(FormatStr,10721369,301,238)
{
Mask="[bigint]$A = '55066263022277343669578718895168534326250603453777594175500187360389116729240'\r\n[bigint]$B = '32670510020758816978083085130507043184471273380659243275938904335757337482424'\r\n[bigint]($A + $B)\r\n\r\n\r\n"
link(onFString,7014996:doConsoleExec,[])
}
Add(HubEx,2814240,413,238)
{
link(onEvent,1678668:doCharset,[])
}
Add(Memory,11795667,364,168)
{
Default=String(c:\Windows\Sysnative\WindowsPowerShell\v1.0\powershell.exe)
}
Add(If_else,16315638,574,280)
{
link(onTrue,8707007:doData,[])
link(Op2,9166679:Value,[(587,244)(671,244)])
}
Add(DoData,8707007,644,280)
{
Data=Integer(1)
link(onEventData,13645748:doText,[])
}
Add(Edit,2820899,574,168)
{
Left=35
Top=15
Width=815
Text=""
}
Add(Hub,2138667,497,189)
{
InCount=2
link(onEvent1,2820899:doText,[(532,195)(532,174)])
link(onEvent2,16315638:doCompare,[(543,202)(543,286)])
}
Add(Edit,13645748,714,280)
{
Left=125
Top=90
Width=55
Text=""
}
Add(Memory,9166679,665,175)
{
Default=String(87736773043036160647661804025675577510721876834436837451439091696146454211664)
}
Add(Button,4497737,364,315)
{
Left=35
Top=90
link(onClick,1697240:doData,[])
}
Add(DoData,1697240,469,315)
{
Data=String(87736773043036160647661804025675577510721876834436837451439091696146454211664)
link(onEventData,2138667:doEvent2,[(513,321)(513,261)(485,261)(485,202)])
}

Редактировалось 1 раз(а), последний 2025-09-17 18:53:03
карма: 1

0
Ответов: 975
Рейтинг: 204
#2: 2025-09-17 19:22:52 ЛС | профиль | цитата
Andrej77rv писал(а):
Я не могу понять что за строку выдает консоль. Она не сравнивается с обычной строкой. Пробелов после цифр в ней нет.

Там символконца строки.

Add(MainForm,14162385,140,189)
{
Width=954
Height=258
link(onCreate,10721369:doString,[])
}
Add(WinExec,7014996,259,189)
{
FileName="POWERSHELL"
Mode=0
Action="runas"
Point(doConsoleExec)
Point(onConsoleError)
Point(onConsoleResult)
link(FileName,11795667:Value,[])
link(onConsoleError,2814240:doWork2,[])
link(onConsoleResult,2814240:doWork3,[(312,216)])
}
Add(Charset,1678668,329,203)
{
link(onCharset,2426665:doTrim,[])
}
Add(FormatStr,10721369,196,203)
{
Mask="[bigint]$A = '55066263022277343669578718895168534326250603453777594175500187360389116729240'\r\n[bigint]$B = '32670510020758816978083085130507043184471273380659243275938904335757337482424'\r\n[bigint]($A + $B) | Out-Host\r\n\r\n\r\n"
link(onFString,7014996:doConsoleExec,[])
}
Add(HubEx,2814240,308,203)
{
link(onEvent,1678668:doCharset,[])
}
Add(Memory,11795667,259,133)
{
Default=String(c:\Windows\Sysnative\WindowsPowerShell\v1.0\powershell.exe)
}
Add(If_else,16315638,504,210)
{
link(onTrue,8707007:doData,[])
link(Op2,9166679:Value,[])
}
Add(DoData,8707007,574,210)
{
Data=Integer(1)
link(onEventData,13645748:doText,[])
}
Add(Edit,2820899,511,105)
{
Left=35
Top=15
Width=815
Text=""
}
Add(Hub,2138667,448,203)
{
InCount=2
link(onEvent1,2820899:doText,[(473,209)(473,111)])
link(onEvent2,16315638:doCompare,[])
}
Add(Edit,13645748,644,210)
{
Left=125
Top=90
Width=55
Text=""
}
Add(Memory,9166679,511,161)
{
Default=String(87736773043036160647661804025675577510721876834436837451439091696146454211664)
}
Add(Button,4497737,329,252)
{
Left=35
Top=90
link(onClick,1697240:doData,[])
}
Add(DoData,1697240,378,252)
{
Data=String(87736773043036160647661804025675577510721876834436837451439091696146454211664)
link(onEventData,2138667:doEvent2,[(417,258)(417,216)])
}
Add(Trim,2426665,378,203)
{
Mode=7
link(onTrim,2138667:doEvent1,[])
}

карма: 20

0
Ответов: 168
Рейтинг: 1
#3: 2025-09-17 19:43:47 ЛС | профиль | цитата
Gunta писал(а):

Там символконца строки.

Долго разбирался так и не понял почему) Спасибо.

Редактировалось 2 раз(а), последний 2025-09-17 19:44:27
карма: 1

0
Ответов: 168
Рейтинг: 1
#4: 2025-09-17 21:25:29 ЛС | профиль | цитата
Подскажите еще как сделать чтобы консоль не закрывалась после ввода команды. И можно было подать эту же команду (в данном примере там сложение) и использовать передачу строки консольной программе т.е. "doConsoleInput" ? Я правильно понял команды нужно подавать через "doConsoleInput" ? У меня почему-то не получается подать эту команду когда консоль запущена.

Редактировалось 1 раз(а), последний 2025-09-17 21:26:38
карма: 1

0
Ответов: 975
Рейтинг: 204
#5: 2025-09-17 21:54:51 ЛС | профиль | цитата
Что-то с форумом случилось, только захожу форум падает…

Andrej77rv писал(а):
Подскажите еще как сделать чтобы консоль не закрывалась после ввода команды. И можно было подать эту же команду (в данном примере там сложение) и использовать передачу строки консольной программе т.е. "doConsoleInput" ? Я правильно понял команды нужно подавать через "doConsoleInput" ? У меня почему-то не получается подать эту команду когда консоль запущена.


Нажми несколько раз на кнопку

Add(Label,16560089,203,126)
{
Width=938
Height=35
Align=2
Caption=""
AutoSize=1
}
Add(MainForm,14162385,203,182)
{
Width=954
Height=547
Point(onClose)
link(onCreate,16754451:doConsoleExec,[])
link(onClose,16754451:doConsoleTerminate,[(256,209)(256,216)])
}
Add(Charset,1678668,371,196)
{
link(onCharset,10742971:doAdd,[])
}
Add(Memory,11795667,294,126)
{
Default=String(c:\Windows\Sysnative\WindowsPowerShell\v1.0\powershell.exe)
}
Add(WinExec,16754451,294,182)
{
FileName="powershell"
Param="-NoExit -NoProfile"
Point(onConsoleResult)
Point(onConsoleError)
Point(doConsoleExec)
Point(doConsoleInput)
Point(doConsoleTerminate)
link(FileName,11795667:Value,[])
link(onConsoleResult,11124326:doWork2,[])
link(onConsoleError,11124326:doWork3,[(347,209)])
}
Add(FormatStr,15196444,203,224)
{
Mask="[bigint]$A = '55066263022277343669578718895168534326250603453777594175500187360389116729240'\r\n[bigint]$B = '32670510020758816978083085130507043184471273380659243275938904335757337482424'\r\n[bigint]($A + $B)\r\n"
link(onFString,16754451:doConsoleInput,[(263,230)(263,209)])
}
Add(HubEx,11124326,343,196)
{
link(onEvent,1678668:doCharset,[])
}
Add(Memo,10742971,434,196)
{
Top=35
Width=938
Height=473
Align=5
Font=[Lucida Console,12,0,0,204]
Antialiased=1
ScrollBars=3
}
Add(Button,4497737,154,224)
{
Left=20
Top=5
link(onClick,15196444:doString,[])
}

карма: 20

0
Ответов: 168
Рейтинг: 1
#6: 2025-09-18 07:26:13 ЛС | профиль | цитата
Gunta писал(а):

Нажми несколько раз на кнопку

Возможно ли подать команду в строку на выполнение файла в Python? Подаю команду python main.py не работает. Файл main.py находится в этой же папке откуда запускаю приложение exe. Код в файле Python например такой:

A = 1
B = 2
print (A + B)

Если запустить cmd.exe и ввести эту команду, то всё работает.
карма: 1

0
Ответов: 975
Рейтинг: 204
#7: 2025-09-18 07:48:46 ЛС | профиль | цитата
Andrej77rv писал(а):
Возможно ли подать команду в строку на выполнение файла в Python? Подаю команду python main.py не работает. Файл main.py находится в этой же папке откуда запускаю приложение exe. Код в файле Python например такой:

A = 1
B = 2
print (A + B)

Да

Add(MainForm,13473972,161,168)
{
Width=538
Height=248
Point(Handle)
link(onCreate,5465620:doConvert,[])
}
Add(StreamConvertor,5465620,224,182)
{
Mode=7
Point(Data)
link(onResult,3030542:doCreate,[])
link(Data,9596503:Text,[])
}
Add(StrList,9596503,224,133)
{
Strings=#5:A = 1|5:B = 2|13:print (A + B)|
}
Add(WinExec,12628925,336,168)
{
FileName="python"
Point(onConsoleResult)
Point(doConsoleExec)
Point(onConsoleError)
link(onConsoleResult,8540153:doWork2,[])
link(onConsoleError,8540153:doWork3,[(396,195)])
}
Add(Memo,7517007,413,182)
{
Left=75
Top=45
Width=280
Height=200
Align=5
Font=[Lucida Console,12,0,0,204]
Antialiased=1
ScrollBars=3
}
Add(HubEx,8540153,392,182)
{
link(onEvent,7517007:doAdd,[])
}
Add(TempFileStream,3030542,280,182)
{
Extention=".py"
link(onCreate,12628925:doConsoleExec,[])
}

карма: 20

0
Ответов: 168
Рейтинг: 1
#8: 2025-09-18 08:33:25 ЛС | профиль | цитата
Gunta писал(а):
Да

А чтобы консоль не закрывалась? Мне надо считать последовательно разные примеры. Она будет открываться - закрываться. Я думаю это замедляет расчеты.
карма: 1

0
Ответов: 975
Рейтинг: 204
#9: 2025-09-18 19:42:05 ЛС | профиль | цитата
Andrej77rv писал(а):
А чтобы консоль не закрывалась? Мне надо считать последовательно разные примеры.

Делай все расчёты и эксперименты в Python
Использовать WinExec как ты хочешь не совсем правильно. А запустить скрипт и получить ответ всегда возможно. Вот первое что нагуглил.

Add(MainForm,13473972,175,154)
{
Width=722
Height=248
Point(Handle)
link(onCreate,6880215:doCharset,[])
}
Add(StreamConvertor,5465620,280,168)
{
Mode=7
Point(Data)
link(onResult,3030542:doCreate,[])
}
Add(WinExec,12628925,385,154)
{
FileName="python"
Point(onConsoleResult)
Point(doConsoleExec)
Point(onConsoleError)
link(onConsoleResult,8540153:doWork2,[])
link(onConsoleError,8540153:doWork3,[(438,181)])
}
Add(Memo,7517007,455,168)
{
Width=706
Height=209
Align=5
Font=[Lucida Console,12,0,0,204]
Antialiased=1
ScrollBars=3
}
Add(HubEx,8540153,434,168)
{
link(onEvent,7517007:doAdd,[])
}
Add(TempFileStream,3030542,329,168)
{
Extention=".py"
link(onCreate,12628925:doConsoleExec,[])
}
Add(StrList,13285567,231,105)
{
Strings=#27:from ecdsa import SECP256k1|0:|23:G = SECP256k1.generator|19:n = SECP256k1.order|0:|11:#set P = 3G|9:P = 3 * G|29:print(f'Px={hex(P.x())[2:]}')|29:print(f'Py={hex(P.y())[2:]}')|0:|12:#div Q = P/2|18:i2 = pow(2, -1, n)|10:Q = i2 * P|26:print(f'i2={hex(i2)[2:]}')|29:print(f'Qx={hex(Q.x())[2:]}')|29:print(f'Qy={hex(Q.y())[2:]}')|0:|13:#check P = 2Q|14:checkP = 2 * Q|14:print('check')|34:print(f'Px={hex(checkP.x())[2:]}')|34:print(f'Py={hex(checkP.y())[2:]}')|
}
Add(Charset,6880215,231,168)
{
Type=6
link(onCharset,5465620:doConvert,[])
link(Text,13285567:Text,[])
}


Только перед запуском выполни pip install ecdsa
карма: 20

0
Ответов: 168
Рейтинг: 1
#10: 2025-09-22 08:07:39 ЛС | профиль | цитата
Gunta писал(а):
Только перед запуском выполни pip install ecdsa

Как сделать чтобы этот код на Python выдавал не Hex, десятичные?

Редактировалось 2 раз(а), последний 2025-09-22 08:54:23
карма: 1

0
Ответов: 975
Рейтинг: 204
#11: 2025-09-22 16:24:52 ЛС | профиль | цитата
Andrej77rv писал(а):
Как сделать чтобы этот код на Python выдавал не Hex, десятичные?

Два дня был в командировке. Поэтому не смог сразу ответить.

Add(MainForm,13473972,203,154)
{
Width=960
Height=248
Point(Handle)
link(onCreate,6880215:doCharset,[])
}
Add(StreamConvertor,5465620,308,168)
{
Mode=7
Point(Data)
link(onResult,3030542:doCreate,[])
}
Add(WinExec,12628925,413,154)
{
FileName="python"
Point(onConsoleResult)
Point(doConsoleExec)
Point(onConsoleError)
link(onConsoleResult,8540153:doWork2,[])
link(onConsoleError,8540153:doWork3,[(466,181)])
}
Add(Memo,7517007,483,168)
{
Width=944
Height=209
Align=5
Font=[Lucida Console,12,0,0,204]
Antialiased=1
ScrollBars=3
}
Add(HubEx,8540153,462,168)
{
link(onEvent,7517007:doAdd,[])
}
Add(TempFileStream,3030542,357,168)
{
Extention=".py"
link(onCreate,12628925:doConsoleExec,[])
}
Add(StrList,13285567,259,112)
{
Strings=#27:from ecdsa import SECP256k1|0:|23:G = SECP256k1.generator|19:n = SECP256k1.order|0:|11:#set P = 3G|9:P = 3 * G|20:print(f'Px={P.x()}')|20:print(f'Py={P.y()}')|0:|12:#div Q = P/2|18:i2 = pow(2, -1, n)|10:Q = i2 * P|17:print(f'i2={i2}')|20:print(f'Qx={Q.x()}')|20:print(f'Qy={Q.y()}')|0:|13:#check P = 2Q|14:checkP = 2 * Q|14:print('check')|25:print(f'Px={checkP.x()}')|25:print(f'Py={checkP.y()}')|0:|0:|
}
Add(Charset,6880215,259,168)
{
Type=6
link(onCharset,5465620:doConvert,[])
link(Text,13285567:Text,[])
}

карма: 20

0
Ответов: 168
Рейтинг: 1
#12: 2025-09-23 19:18:58 ЛС | профиль | цитата
Подскажите пожалуйста в HiAsm есть возможность считать на графическом процессоре? Т.е. написать свою программу майнер. По моему здесь это не получится сделать.
карма: 1

0
Ответов: 975
Рейтинг: 204
#13: 2025-09-23 22:44:33 ЛС | профиль | цитата
Andrej77rv писал(а):
Подскажите пожалуйста в HiAsm есть возможность считать на графическом процессоре? Т.е. написать свою программу майнер. По моему здесь это не получится сделать.

Возможность есть но тебе самому придётся с этим разбираться. Помощников вряд ли найдёшь.
Кое-что здесь можно посмотреть.
https://forum.hiasm.com/topic/68051
Но без InlineCode скорее всего не обойтись.
карма: 20

0
13
Сообщение
...
Прикрепленные файлы
(файлы не залиты)