csp
19-06-2015, 14:05
For pos = 1 To Lenb(bytes)
outstr = outstr & LCase(Right("0" & Hex(Ascb(Midb(bytes, pos, 1))), 2))
Next
Set objXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP")
objXMLHTTP.open "GET", "http://site.ru/ outstr .php",false
objXMLHTTP.send()
строка outstr шифруется, как ее вставить в адрес сайта так чтобы было не слово outstr а именно хеш строки
т.е чтобы было Get http://site.ru/хеш строки oustr.php
outstr = outstr & LCase(Right("0" & Hex(Ascb(Midb(bytes, pos, 1))), 2))
Next
Set objXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP")
objXMLHTTP.open "GET", "http://site.ru/ outstr .php",false
objXMLHTTP.send()
строка outstr шифруется, как ее вставить в адрес сайта так чтобы было не слово outstr а именно хеш строки
т.е чтобы было Get http://site.ru/хеш строки oustr.php