Feedback for inherited code using Xor operator












0















I'm quite new to VBA and have inherited a VBA code and the person that wrote this code protected the sheets with the below sub and function.



Is anyone able to decode the below? Seems like he is using special characters but this code is too advanced for my current understanding.



Any guidance or feedback would be appreciated.



Public Sub makeSafe(ws As Worksheet, safe As Boolean)



    If safe Then

        If Not ws.Name = "COMPLETED" Then

            ws.Columns("A:B").Locked = False

            ws.Columns("D").Locked = False

        End If

        ws.Protect XOREnc("½ ·Î½ ·", "nope")

    Else

        ws.Unprotect XOREnc("½ ·Î½ ·", "nope")

    End If



End Sub



Function XOREnc(theInput As String, theKey As String) As String



    Dim val1, val2 As Integer, out As String, temp As Integer



    For i = 1 To Len(theInput)

        val1 = Asc(Mid(theInput, i, 1))

        val2 = Asc(Mid(theKey, i Mod Len(theKey) + 1, 1))

        If val1 Xor val2 < 32 Then

            temp = 255 - (val1 Xor val2)

        Else

            temp = val1 Xor val2

        End If

        out = out & Chr(temp)

     Next i

     XOREnc = out

End Function





excel vba excel-vba xor







share|improve this question

























  • The code is trying to hide a password, -¯-_-¯-. Evidently it is not doing a good job at hiding it, given that I just told you what it is.

    – Eric
    Nov 22 '18 at 3:25











  • Thanks Eric, I forgot to check if anyone had answered and actually got to the solution.

    – BBISCUIT
    Nov 22 '18 at 5:13
















0















I'm quite new to VBA and have inherited a VBA code and the person that wrote this code protected the sheets with the below sub and function.



Is anyone able to decode the below? Seems like he is using special characters but this code is too advanced for my current understanding.



Any guidance or feedback would be appreciated.



Public Sub makeSafe(ws As Worksheet, safe As Boolean)



    If safe Then

        If Not ws.Name = "COMPLETED" Then

            ws.Columns("A:B").Locked = False

            ws.Columns("D").Locked = False

        End If

        ws.Protect XOREnc("½ ·Î½ ·", "nope")

    Else

        ws.Unprotect XOREnc("½ ·Î½ ·", "nope")

    End If



End Sub



Function XOREnc(theInput As String, theKey As String) As String



    Dim val1, val2 As Integer, out As String, temp As Integer



    For i = 1 To Len(theInput)

        val1 = Asc(Mid(theInput, i, 1))

        val2 = Asc(Mid(theKey, i Mod Len(theKey) + 1, 1))

        If val1 Xor val2 < 32 Then

            temp = 255 - (val1 Xor val2)

        Else

            temp = val1 Xor val2

        End If

        out = out & Chr(temp)

     Next i

     XOREnc = out

End Function





excel vba excel-vba xor







share|improve this question

























  • The code is trying to hide a password, -¯-_-¯-. Evidently it is not doing a good job at hiding it, given that I just told you what it is.

    – Eric
    Nov 22 '18 at 3:25











  • Thanks Eric, I forgot to check if anyone had answered and actually got to the solution.

    – BBISCUIT
    Nov 22 '18 at 5:13














0












0








0








I'm quite new to VBA and have inherited a VBA code and the person that wrote this code protected the sheets with the below sub and function.



Is anyone able to decode the below? Seems like he is using special characters but this code is too advanced for my current understanding.



Any guidance or feedback would be appreciated.



Public Sub makeSafe(ws As Worksheet, safe As Boolean)



    If safe Then

        If Not ws.Name = "COMPLETED" Then

            ws.Columns("A:B").Locked = False

            ws.Columns("D").Locked = False

        End If

        ws.Protect XOREnc("½ ·Î½ ·", "nope")

    Else

        ws.Unprotect XOREnc("½ ·Î½ ·", "nope")

    End If



End Sub



Function XOREnc(theInput As String, theKey As String) As String



    Dim val1, val2 As Integer, out As String, temp As Integer



    For i = 1 To Len(theInput)

        val1 = Asc(Mid(theInput, i, 1))

        val2 = Asc(Mid(theKey, i Mod Len(theKey) + 1, 1))

        If val1 Xor val2 < 32 Then

            temp = 255 - (val1 Xor val2)

        Else

            temp = val1 Xor val2

        End If

        out = out & Chr(temp)

     Next i

     XOREnc = out

End Function





excel vba excel-vba xor







share|improve this question
















I'm quite new to VBA and have inherited a VBA code and the person that wrote this code protected the sheets with the below sub and function.



Is anyone able to decode the below? Seems like he is using special characters but this code is too advanced for my current understanding.



Any guidance or feedback would be appreciated.



Public Sub makeSafe(ws As Worksheet, safe As Boolean)



    If safe Then

        If Not ws.Name = "COMPLETED" Then

            ws.Columns("A:B").Locked = False

            ws.Columns("D").Locked = False

        End If

        ws.Protect XOREnc("½ ·Î½ ·", "nope")

    Else

        ws.Unprotect XOREnc("½ ·Î½ ·", "nope")

    End If



End Sub



Function XOREnc(theInput As String, theKey As String) As String



    Dim val1, val2 As Integer, out As String, temp As Integer



    For i = 1 To Len(theInput)

        val1 = Asc(Mid(theInput, i, 1))

        val2 = Asc(Mid(theKey, i Mod Len(theKey) + 1, 1))

        If val1 Xor val2 < 32 Then

            temp = 255 - (val1 Xor val2)

        Else

            temp = val1 Xor val2

        End If

        out = out & Chr(temp)

     Next i

     XOREnc = out

End Function





excel vba excel-vba xor




excel vba excel-vba xor






share|improve this question















share|improve this question













share|improve this question




share|improve this question








edited Nov 22 '18 at 7:04









Pᴇʜ

23.1k62950




23.1k62950










asked Nov 22 '18 at 2:54









BBISCUITBBISCUIT

1




1













  • The code is trying to hide a password, -¯-_-¯-. Evidently it is not doing a good job at hiding it, given that I just told you what it is.

    – Eric
    Nov 22 '18 at 3:25











  • Thanks Eric, I forgot to check if anyone had answered and actually got to the solution.

    – BBISCUIT
    Nov 22 '18 at 5:13



















  • The code is trying to hide a password, -¯-_-¯-. Evidently it is not doing a good job at hiding it, given that I just told you what it is.

    – Eric
    Nov 22 '18 at 3:25











  • Thanks Eric, I forgot to check if anyone had answered and actually got to the solution.

    – BBISCUIT
    Nov 22 '18 at 5:13

















The code is trying to hide a password, -¯-_-¯-. Evidently it is not doing a good job at hiding it, given that I just told you what it is.

– Eric
Nov 22 '18 at 3:25





The code is trying to hide a password, -¯-_-¯-. Evidently it is not doing a good job at hiding it, given that I just told you what it is.

– Eric
Nov 22 '18 at 3:25













Thanks Eric, I forgot to check if anyone had answered and actually got to the solution.

– BBISCUIT
Nov 22 '18 at 5:13





Thanks Eric, I forgot to check if anyone had answered and actually got to the solution.

– BBISCUIT
Nov 22 '18 at 5:13












0






active

oldest

votes











Your Answer






StackExchange.ifUsing("editor", function () {
StackExchange.using("externalEditor", function () {
StackExchange.using("snippets", function () {
StackExchange.snippets.init();
});
});
}, "code-snippets");

StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "1"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});

function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});


}
});














draft saved

draft discarded


















StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53423230%2ffeedback-for-inherited-code-using-xor-operator%23new-answer', 'question_page');
}
);

Post as a guest















Required, but never shown

























0






active

oldest

votes








0






active

oldest

votes









active

oldest

votes






active

oldest

votes
















draft saved

draft discarded




















































Thanks for contributing an answer to Stack Overflow!


  • Please be sure to answer the question. Provide details and share your research!

But avoid …



  • Asking for help, clarification, or responding to other answers.

  • Making statements based on opinion; back them up with references or personal experience.


To learn more, see our tips on writing great answers.




draft saved


draft discarded














StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53423230%2ffeedback-for-inherited-code-using-xor-operator%23new-answer', 'question_page');
}
);

Post as a guest















Required, but never shown





















































Required, but never shown














Required, but never shown












Required, but never shown







Required, but never shown

































Required, but never shown














Required, but never shown












Required, but never shown







Required, but never shown







Popular posts from this blog

Can a sorcerer learn a 5th-level spell early by creating spell slots using the Font of Magic feature?

Image
28 6 $begingroup$ Per the Font of Magic feature, sorcerer can use Flexible Casting to create 5th-level spell slots at level 7, even though they are not typically available until level 9. You can transform unexpended sorcery points into one spell slot as a bonus action on your turn. The Creating Spell Slots table shows the cost of creating a spell slot of [5th level is 7] If such a sorcerer levels up while still having this 5th-level spell slot, can they choose a 5th-level spell as the spell they gain upon levelling up? The Spellcasting feature states: Additionally, when you gain a level in this class, you can choose one of the sorcerer spells you know and replace it with another spell from the sorcerer spell list, which also must be of a level for which you have spell slots.
Read more

Does disintegrating a polymorphed enemy still kill it after the 2018 errata?

Image
up vote 13 down vote favorite 1 After the 2018 errata, the disintegrate spell description now reads: A creature targeted by this spell must make a Dexterity saving throw. On a failed save, the target takes 10d6 + 40 force damage. The target is disintegrated if this damage leaves it with 0 hit points. If you were to polymorph an enemy into a rat and then disintegrate it, would the enemy be disintegrated or would it just return to its original form? I know that for Druids, it’s not an instant kill anymore, but is this the case for polymorph as well? dnd-5e spells polymorph errata share | improve this question edited 18 hours ago
Read more

A Topological Invariant for $pi_3(U(n))$

Image
3 3 $begingroup$ Recently, I saw a construction of topological invariant for $pi_3(U(n))$ with $ngeq 2$ : $$ N=frac{1}{24pi^2}int_{S^3} d^3x epsilon^{ijk} Tr[(U^{-1}partial_{x_i}U)(U^{-1}partial_{x_j}U)(U^{-1}partial_{x_k}U)] , $$ where $Uin U(n)$ depends on $boldsymbol{x}=(x_1,x_2,x_3)in S^3$ , $epsilon^{ijk}$ is the Levi-Civita symbol, $i,j,k=1,2,3$ , and the duplicated indexes are summed over. It is claimed that $N$ is an integer, but why? Update 02/02/2019 I think I got an argument for $n=2$ . In this case, $U=e^{i varphi} q$ with $qin SU(2)$ . Due to the trace and the Levi-Civita symbol in $N$ , $varphi$ does not contribute to $N$ . As $Tr[q^{dagger}partial_i q]=0$ and $(q^{dagger}partial_i q)^{dagger}=-q^{dagger}partial_i q$ , $q^{dagger}partial_i q$ in geneeral has the form $q^{dagger}partia
Read more