AutoHotkey Community

; Flip string like Edxor

string = NBC   ; Start with NBC to get ±½¼      AND VICE-VERSA

flippedString =
Loop, parse, string
{
   curCharAscii := Asc(A_LoopField)   ; get the ascii value of current character

   ; get the binary equivalent of this ascii value   ; Thanks to Laszlo for the method
   VarSetCapacity(curCharBinary, 65, 0)
   DllCall("msvcrt\_i64toa", Int64, curCharAscii, Str, curCharBinary, Int, 2)

   ; ensure that curCharBinary contains 8 chars, use 0 padding on left if necessary
   curCharBinary := SubStr("00000000" . curCharBinary, -7)   ; see help for SetFormat

   ; invert each binary digit in curCharBinary
   curCharBinaryInverted =
   Loop, parse, curCharBinary
      curCharBinaryInverted .= A_LoopField = 0 ? 1 : 0

   ; now convert this inverted binary number to decimal   ; Thanks to Laszlo for the method
   invertedDecimal := DllCall("msvcrt\_strtoui64", Str, curCharBinaryInverted, Uint, 0, Int, 2, "CDECL Int64")

   ; now get ascii char of this (inverted) decimal number
   invertedAscii := Chr(invertedDecimal)

   ;MsgBox, %A_LoopField%   %curCharAscii%   %curCharBinary%   %curCharBinaryInverted%   %invertedDecimal%   %invertedAscii%
   
   flippedString .= invertedAscii
}

MsgBox, %string%   changed to   %flippedString%

curCharAscii := Asc(A_LoopField)   ; get the ascii value of current character

; and everything in between

invertedAscii := Chr(invertedDecimal)

invertedAscii:=Chr(0xff^Asc(A_LoopField))

var=Watch this string get flipped, too!
MsgBox % "Watch this string get flipped!"
 . "`n" Flip("Watch this string get flipped!")
MsgBox % var "`n" Flip(var)

Flip(Str) {
    DllCall("msvcrt\_strrev", "UInt",&Str, "CDecl")
    return Str
}

Flip(in) {
    VarSetCapacity(out, n:=StrLen(in))
    Loop %n%
        out .= SubStr(in, n--, 1)
    return out
}

Flip(Str) {
    DllCall("msvcrt\_wcsrev", "UInt",&Str, "CDecl")
    return Str
}

Flip(Str) {
    DllCall("msvcrt\_" ( A_IsUnicode ? "wcs" : "str" ) "rev", "UInt",&Str, "CDecl")
    return Str
}

; Flip string like Edxor

string = NBC   ; Start with NBC to get ±½¼      AND VICE-VERSA

flippedString =
Loop, parse, string
{
   invertedAscii:=Chr(0xff^Asc(A_LoopField))
   flippedString .= invertedAscii
}

MsgBox, %string%   changed to   %flippedString%

; Demonstration of xor ie, a ^ b
; It converts a and b to their binary equivalents, xor those binary numbers, and converts the result back to decimal

a = 100
b = 300

xorResult := a ^ b

; get the binary equivalents
VarSetCapacity(a_binary, 65, 0)
DllCall("msvcrt\_i64toa", Int64, a, Str, a_binary, Int, 2)

VarSetCapacity(b_binary, 65, 0)
DllCall("msvcrt\_i64toa", Int64, b, Str, b_binary, Int, 2)

VarSetCapacity(xorResult_binary, 65, 0)
DllCall("msvcrt\_i64toa", Int64, xorResult, Str, xorResult_binary, Int, 2)

; zero-pad each binary number to 16 digits (good upto 65535, binary 1111111111111111)
zeroPad := "0000000000000000"
a_binary := SubStr(zeroPad . a_binary, -15)
b_binary := SubStr(zeroPad . b_binary, -15)
xorResult_binary := SubStr(zeroPad . xorResult_binary, -15)

; now check yourself whether the xor result is correct or not
MsgBox,
(
a = %a%      bin   %a_binary%
b = %b%      bin   %b_binary%

a ^ b = %xorResult%   bin   %xorResult_binary%
)

; Flip string like Edxor

string = NBC   ; Start with NBC to get ±½¼      AND VICE-VERSA

flippedString =
Loop, parse, string
   flippedString .= Chr(0xff^Asc(A_LoopField))

MsgBox, %string%   changed to   %flippedString%

flippedString .= Chr((0xff^Asc(A_LoopField))+1)

; generate ascii table

; decimal > asciiChar > flippedAsciiChar > flippedBack2AsciiChar
; compare ascii character to flippedBack2Ascii character
#NoEnv
#SingleInstance, ignore

decimalValue = 0
output =
While, decimalValue <= 255
{
   char := Chr(decimalValue)
   
   flippedChar := flip(char)
   flippedDec := Asc(flippedChar)
   
   flippedBackChar := flip(flippedChar)
   
   If (char = flippedBackChar)
      testCheck = OK
   Else
   {
      testCheck = Failed
      MsgBox, %decimalValue%  %char% flip mismatch.   ; prompt in case of mismatch
   }
      
   output .= decimalValue . "`t" . char . "`t" . flippedChar . "`t" . flippedBackChar . "`t" . flippedDec . "`t" . testCheck . "`n"
   
   decimalValue++
}

; Examine the output file manually
FileAppend, %output%, ascii.txt

flip(string)
{
   flippedString =
   Loop, parse, string
      ;flippedString .= Chr(0xff^Asc(A_LoopField))         ; Leef_me expression
      flippedString .= Chr((0xff^Asc(A_LoopField))+1)      ; nick expression
      
   Return, %flippedString%
}