PureBasic Forums - English

Maybe someone need it.

Structure winsize
ws_row.w ; rows
ws_col.w ; columns
EndStructure

#STDIN_FILENO = 0 ; file descriptor of standard input
#TIOCGWINSZ = $5413 ; IOCTL request to get terminal window sizes

OpenConsole()

ws.winsize

If ioctl_(#STDIN_FILENO, #TIOCGWINSZ, @ws) = 0
PrintN ...

Does it work on Linux?

It was bash scrpit with this comments that I used. Comments from that script are unchanged. I understand code, but this algo is so strange and this is reason of this comments

My dirty realization of ping in Linux

Note:
you need liboping to be installed (sudo apt install oping)
timeout.d in procedure in seconds


ImportC "/lib/x86_64-linux-gnu/liboping.so.0"
ping_construct()
ping_host_add(*obj, *host)
ping_send(*obj)
ping_destroy(*obj)
ping_setopt(*obj, opt.i, *val ...

I've created md5crypt (salted) algorythm
Maybe someone need


DeclareModule md5crypt
UseMD5Fingerprint()
Declare.s md5crypt(pass$, salt$)
Declare HexToBuffer(in.s)
EndDeclareModule

Module md5crypt
Procedure.s stringToHex(in.s)
For x = 1 To Len(in)
out.s + Hex(Asc(Mid(in, x, 1)))
Next ...