Серый форум — AHK: Конвертация endians

Re: AHK: Конвертация endians

null@example.com (teadrinker) — Mon, 23 Jul 2018 11:27:48 +0000

Китаец какой-нибудь писал, не иначе.

Re: AHK: Конвертация endians

null@example.com (YMP) — Mon, 23 Jul 2018 10:18:38 +0000

Нашёл в winsock2.h код, который выполняет htonll.


#define _WS2_32_WINSOCK_SWAP_LONGLONG(l)            \
            ( ( ((l) >> 56) & 0x00000000000000FFLL ) |       \
              ( ((l) >> 40) & 0x000000000000FF00LL ) |       \
              ( ((l) >> 24) & 0x0000000000FF0000LL ) |       \
              ( ((l) >>  8) & 0x00000000FF000000LL ) |       \
              ( ((l) <<  8) & 0x000000FF00000000LL ) |       \
              ( ((l) << 24) & 0x0000FF0000000000LL ) |       \
              ( ((l) << 40) & 0x00FF000000000000LL ) |       \
              ( ((l) << 56) & 0xFF00000000000000LL ) )


#ifndef htonll
__inline unsigned __int64 htonll ( unsigned __int64 Value ) 
{ 
    const unsigned __int64 Retval = _WS2_32_WINSOCK_SWAP_LONGLONG (Value);
    return Retval;
}
#endif /* htonll */

Выглядит довольно громоздко, учитывая, что у процессора есть инструкция bswap, которая делает это сразу для 32- или 64-битного регистра. А здесь получается для каждого байта сдвиг и AND, да потом ещё OR между результатами. Куча инструкций.

Re: AHK: Конвертация endians

null@example.com (teadrinker) — Mon, 23 Jul 2018 07:50:43 +0000

Там, во-первых, не 32 байта, а все 64, а во-вторых, нужно не только старший и младший местами поменять, а чтобы все байты были в обратном порядке, чтобы понять, запустите этот код.

Re: AHK: Конвертация endians

null@example.com (Raven) — Mon, 23 Jul 2018 07:44:21 +0000

teadrinker Ну тогда может так?

data := (data << 32) | (data >> 32) ;меняем старший и младший байт местами

Re: AHK: Конвертация endians

null@example.com (teadrinker) — Mon, 23 Jul 2018 06:51:58 +0000

Ну да, я и смотрю, что в описании dll не указана, то-есть для нас её всё равно, что нет.
Raven, в принципе то, только надо то же самое для такого числа: 0xFFEEDDCCBBAA9988

Re: AHK: Конвертация endians

null@example.com (YMP) — Mon, 23 Jul 2018 06:48:13 +0000

teadrinker пишет:

А пример использования можете показать?

Судя по её определению,


unsigned __int64 __inline htonll(
   unsigned __int64 value
);

это инлайн-функция, т.е., по сути, макрос. Когда компилятор видит в исходнике её вызов, он туда просто вставляет её код. Поэтому в ws2_32.dll её нет, там только htonl.

Re: AHK: Конвертация endians

null@example.com (Raven) — Mon, 23 Jul 2018 05:36:44 +0000

Это не то?

data := (data << 8) | (data >> 8) ;меняем старший и младший байт местами

Re: AHK: Конвертация endians

null@example.com (Malcev) — Sun, 22 Jul 2018 21:48:23 +0000

MandarinKa02 пишет:

.. возьму предложенную Malcev'ым.

Она у вас не совсем доделанная:

msgbox % htonl_64(0x0123456789abcdef) 
htonl_64(int) { ;x86>net
	return DllCall("ntdll\RtlUlonglongByteSwap","UInt64",int,"UInt64")
	;return DllCall("Ws2_32\htonll", UInt64, int, UInt64) :NOT_WORK
}

Re: AHK: Конвертация endians

null@example.com (MandarinKa02) — Sun, 22 Jul 2018 21:06:10 +0000

Хах, "монстр" - громко сказано. Есть монстры побольше.

teadrinker пишет:

А пример использования можете показать?

Т.к. меня данная функция не работает:

htonl_64(int) {
	return DllCall("Ws2_32\htonll", UInt64, int, UInt64) ;NOT_WORK
}

.. возьму предложенную Malcev'ым.

htonl_64(int) { ;x86>net
	return DllCall("ntdll\RtlUlonglongByteSwap","UInt64",int,"UInt64")
	;return DllCall("Ws2_32\htonll", UInt64, int, UInt64) :NOT_WORK
}

След. пример разбирает фрейм WebSocket'а.

	FIN:=(NumGet(&in_data,0,"UChar"))>>7,offset:=1
	len:=NumGet(&in_data,offset,"UChar")-128,offset+=1 ;exclude the first bit
	OPCODE:=NumGet(&in_data,0,"UChar")-(FIN?128:0)

	if (len>=0) {
		if(len<=125)
			do_nothing()
		else if(len=126)
			len:=htons(NumGet(&in_data,offset,"UShort")),offset+=2 ;16bits
		else if(len=127)
			len:=htonl_64(NumGet(&in_data,offset,"UInt64")),offset+=8 ;64bits
	} VarSetCapacity(mask,4)
	CopyBinData(&in_data+offset,&mask,4),offset+=4
	XOR_crypt(&in_data+offset,data,size:=len,mask)
	StrGet(&data+offset,size,"CP0")

+ XOR_crypt


XOR_crypt(data,ByRef out,size,ByRef key) {
    VarSetCapacity(out,size,0)
    loop % size {
        i:=A_Index-1
        num:=Abs(NumGet(data+0, i,"UChar")-1+1)^NumGet(&key+0, (i & 0x3), "UChar")
        NumPut(num, &out,i,"UChar")
    } return size
}

p.s. недостающие функции можно найти на форумах AHK, если загуглить.

Re: AHK: Конвертация endians

null@example.com (teadrinker) — Sun, 22 Jul 2018 17:41:43 +0000

MandarinKa02, ну вы просто монстр программирования, я смотрю.

MandarinKa02 пишет:

Существует - https://docs.microsoft.com/en-us/window … ck2-htonll.

А пример использования можете показать?

Re: AHK: Конвертация endians

null@example.com (MandarinKa02) — Sun, 22 Jul 2018 14:15:29 +0000

Сколько много ответов наплыло..
Протестировал еще вчера функцию со второго поста. (спасибо, что напомнили о ней)
Работает как надо.

+ открыть спойлер

ntohl(int) { ;net>x86
	return DllCall("Ws2_32\ntohl", UInt, int, UInt)
}
htonl(int) { ;x86>net
	return DllCall("Ws2_32\htonl", UInt, int, UInt)
}



ntohs(int) { ;net>x86
	return DllCall("Ws2_32\ntohs", UShort, int, UShort)
}
htons(int) { ;x86>net
	return DllCall("Ws2_32\htons", UShort, int, UShort)
}



ntohl_64(int) { ;net>x86
	return htonl_64(int)
}
htonl_64(int) { ;x86>net
	return DllCall("ntdll\RtlUlonglongByteSwap","UInt64",int,"UInt64")
	;return DllCall("Ws2_32\htonll", UInt64, int, UInt64) :NOT_WORK
}

teadrinker пишет:

Скорее всего, не существует для 64 бит.

Существует - https://docs.microsoft.com/en-us/window … ck2-htonll.
Только, начиная с Windows 8.

YMP пишет:

Не знаю, зачем вам нужны эти uint64, но на всякий случай — AutoHotkey с этим типом нормально не работает, т.к. знает только int64. Поэтому может при вычислениях число испортить.

Сам AHK - да, переменной такое большое значение не присвоишь, а вот NumPut'ы работают без проблем.
Зачем нужны? Для программы сделал Web-интерфейс и была поставлена задача - связать основной скрипт с браузером. Использовал WebSocket, здесь у каждого фрейма есть структура, и если длина фрейма больше 16-битного числа(UShort), то необходимо длину фрейма поместить в int64. И здесь предстал вопрос: почему число задом наперед?

Re: AHK: Конвертация endians

null@example.com (Malcev) — Sun, 22 Jul 2018 13:23:55 +0000

teadrinker пишет:

Скорее всего, не существует для 64 бит.

Вот из-за подобных случаев я и пользуюсь AHK 32 bit.

Re: AHK: Конвертация endians

null@example.com (YMP) — Sun, 22 Jul 2018 13:00:22 +0000

Да, NumPut, похоже, знает. Но этот разнобой и путает. Тут играем, тут не играем, тут рыбу заворачивали. В чём, интересно, проблема с общей поддержкой uint64.

Re: AHK: Конвертация endians

null@example.com (teadrinker) — Sun, 22 Jul 2018 12:04:10 +0000

YMP пишет:

т.к. знает только int64

Судя по всему, NumPut/NumGet знает UInt64, попробуй заменить в моём примере на Int64.

Re: AHK: Конвертация endians

null@example.com (YMP) — Sun, 22 Jul 2018 11:30:43 +0000

MandarinKa02
Не знаю, зачем вам нужны эти uint64, но на всякий случай — AutoHotkey с этим типом нормально не работает, т.к. знает только int64. Поэтому может при вычислениях число испортить.


SetFormat, Integer, Hex
num = 0x8070605040302010
MsgBox, % num + 0

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