PureBasic Forums - English

Many thanks everyone for the nice ideas and especially infratec for your great solution!
Thanks to the community there is always something to learn here.

I'm trying to obtain the same result as this command:


echo "SUPERBIGSECRET" | openssl enc -aes-128-cbc -base64 -iv 20002000200020002000200020002000 -nosalt

(output should be "VRWqHjP23NtfjqhgWpVsXg==")

Can anyone see what I'm doing wrong? Thanks.




;; just an educational exercise
;; echo ...

breeze4me: very clever, thanks.

first solution works great for me! (the second one has no effect here for some reason, maybe I should update my PB version)

Another failed attempt :)


OpenWindow(0, 0, 0, 405, 240, "Round-Borderless!", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ContainerGadget(10, 10, 10, 390, 220) ;; only needed to make custom color window look good ;)

SetWindowColor(0, $565656)
SetGadgetColor(10, #PB_Gadget_BackColor ...

Struggling to get this to work... (for Windows)

This is my code right now:


OpenWindow(0, 0, 0, 405, 240, "Rounded corners and Borderless", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ContainerGadget(10, 10, 10, 390, 220) ;; only needed to make custom color window look good ...

Fred: It's an undocumented API call (I think) and it's not really an easy to use solution

wombats: Both approaches are interesting, thanks for sharing.

I have this color issue within editorgadget scrollbars when using dark mode (Windows 11):
Any ideas to make the white part dark?



OpenWindow(0, 30, 30, 500, 400, "Demo1", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget)
SetWindowColor(0, 0)

EditorGadget(1, 120, 60, 300, 100)

SetGadgetText(1 ...

SetGadgetState


OpenWindow(0, 100, 100, 400, 300, "Splitter Example", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)

StringGadget(1, 0, 0, 0, 0, "Left Panel", #PB_Text_Center)
StringGadget(2, 0, 0, 0, 0, "Right Panel", #PB_Text_Center)

SplitterGadget(3, 10, 10, 380, 180, 1, 2, #PB_Splitter ...

dark mode version (still working on it):

Thanks for the feedback, glad you like it

Just a quick experiment. Each run will produce a different layout.


; Random Gadget Layout Generator (Grid-Aligned)

#WindowWidth = 880
#WindowHeight = 600
#MaxGadgets = 40
#MinSize = 120
#MaxSize = 450
#MaxTries = 300
#GridSize = 120

Structure GadgetRect
x.i
y.i
w.i
h.i
EndStructure

Global ...

Try this out:
(heavily based on old code by Rashad!)




Procedure WndProc(hWnd, uMsg, wParam, lParam)
itemh = SendMessage_(GadgetID(6), #LB_GETITEMHEIGHT, 0, 0)

Select uMsg
Case #WM_CONTEXTMENU
Select wParam
Case GadgetID(6)
GetCursorPos_(p.POINT)
ScreenToClient_ (GadgetID(6), @p ...

Little John wrote: Mon Mar 31, 2025 9:12 pm see https://www.purebasic.fr/english/viewtopic.php?t=64947

Thanks, wasn't aware of this!

Solved! After asking ChatGPT again (and fixing a few things) :)


Define emoji.s = "🐘" ; Elephant emoji
Define highSurrogate, lowSurrogate, unicodeValue

; Extract UTF-16 surrogate pair
highSurrogate = Asc(emoji) ; First character (could be high surrogate)
lowSurrogate = Asc(Mid(emoji, 2, 1 ...

Elephant emoji is character 128024. (I found this by googling for it.)
How can I find this number using PureBasic?

In other words I'm looking for the reverse function of STARGÅTE's UnicodeChr procedure.

I asked ChatGPT but it seems it can't get the correct result!



Procedure.s UnicodeChr ...