Я получил код, который будет декодировать выделенный URL в base64.
Теперь мне нравится кодировать подсвеченный шестнадцатеричный код в base64, но я не могу заставить его работать: /
Например, у нас есть шестнадцатеричное число: 3648af61e4473d60d85481bf822a6d04316615efd6cd903d6bdc05b8c9ae58bfbabbb154099e345e4e12d770a774ad599420af221c26a7e0f21f9f1fc43a6d14
В результате я получаю
MzY0OGFmNjFlNDQ3M2Q2MGQ4NTQ4MWJmODIyYTZkMDQzMTY2MTVlZmQ2Y2Q5MDNkNmJkYzA1YjhjOWFlNThiZmJhYmJiMTU0MDk5ZTM0NWU0ZTEyZDc3MGE3NzRhZDU5OTQyMGFmMjIxYzI2YTdlMGYyMWY5ZjFmYzQzYTZkMTQ=
но это должно быть NkivYeRHPWDYVIG/giptBDFmFe/WzZA9a9wFuMmuWL+6u7FUCZ40Xk4S13CndK1ZlCCvIhwmp+DyH58fxDptFA==
Код, который у меня есть,
#SingleInstance, Force
;***********Decode URL*******************
!d:: ;Alt+d will Decode highlighted text from URL to base64
gosub Store_Clipboard_Copy_Selected_Text
Clipboard:=URiDecode(clipboard) ;Decode URL
Gosub Paste_and_Restore_Stored_Clipboard ;restore clipboard
return
;***********Decode HEX*******************
!f:: ;Alt+f will Encode highlighted text from Hex to base64
gosub Store_Clipboard_Copy_Selected_Text
Clipboard:=Base64Encode(clipboard) ; Encode HEX
Gosub Paste_and_Restore_Stored_Clipboard ;restore clipboard
return
;*******Store Clipboard- save for restoring, and copy selected text to clipboard****************
Store_Clipboard_Copy_Selected_Text:
Store:=ClipboardAll ;Store full version of Clipboard
clipboard = ; Empty the clipboard
SendInput, ^c ;changd from Send 11/23
ClipWait, 1
If ErrorLevel ;Added errorLevel checking
{
MsgBox, No text was sent to clipboard
Return
}
return
;**********************restore clipboard*********************************
Paste_and_Restore_Stored_Clipboard: ;put back original content
SendEvent , ^v
Clipboard:=Store
return
uriDecode(str) {
Loop
If RegExMatch(str, "i)(?<=%)[\da-f]{1,2}", hex)
StringReplace, str, str, `%%hex%, % Chr("0x" . hex), All
Else Break
Return, str
}
Base64Encode(String)
{
static CharSet := "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
VarSetCapacity(Output,Ceil(Length / 3) << 2)
Index := 1, Length := StrLen(String)
Loop, % Length // 3
{
Value := Asc(SubStr(String,Index,1)) << 16
| Asc(SubStr(String,Index + 1,1)) << 8
| Asc(SubStr(String,Index + 2,1))
Index += 3
Output .= SubStr(CharSet,(Value >> 18) + 1,1)
. SubStr(CharSet,((Value >> 12) & 63) + 1,1)
. SubStr(CharSet,((Value >> 6) & 63) + 1,1)
. SubStr(CharSet,(Value & 63) + 1,1)
}
Length := Mod(Length,3)
If Length = 0 ;no characters remaining
Return, Output
Value := Asc(SubStr(String,Index,1)) << 10
If Length = 1
{
Return, Output ;one character remaining
. SubStr(CharSet,(Value >> 12) + 1,1)
. SubStr(CharSet,((Value >> 6) & 63) + 1,1) . "=="
}
Value |= Asc(SubStr(String,Index + 1,1)) << 2 ;insert the third character
Return, Output ;two characters remaining
. SubStr(CharSet,(Value >> 12) + 1,1)
. SubStr(CharSet,((Value >> 6) & 63) + 1,1)
. SubStr(CharSet,(Value & 63) + 1,1) . "="
}
Я не вижу, как получить правильный результат и что не так с кодом? :(