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
edited Nov 22 '18 at 7:04
Pᴇʜ
20.5k42650
asked Nov 22 '18 at 2:54
BBISCUITBBISCUIT
1
add a comment |
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
edited Nov 22 '18 at 7:04
Pᴇʜ
20.5k42650
asked Nov 22 '18 at 2:54
BBISCUITBBISCUIT
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
add a comment |
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
edited Nov 22 '18 at 7:04
Pᴇʜ
20.5k42650
asked Nov 22 '18 at 2:54
BBISCUITBBISCUIT
1
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
edited Nov 22 '18 at 7:04
Pᴇʜ
20.5k42650
asked Nov 22 '18 at 2:54
BBISCUITBBISCUIT
1
edited Nov 22 '18 at 7:04
Pᴇʜ
20.5k42650
asked Nov 22 '18 at 2:54
BBISCUITBBISCUIT
1
edited Nov 22 '18 at 7:04
Pᴇʜ
20.5k42650
edited Nov 22 '18 at 7:04
Pᴇʜ
20.5k42650
edited Nov 22 '18 at 7:04
Pᴇʜ
20.5k42650
20.5k42650
asked Nov 22 '18 at 2:54
BBISCUITBBISCUIT
1
asked Nov 22 '18 at 2:54
BBISCUITBBISCUIT
1
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
add a comment |
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
add a comment |
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
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
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
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
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
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
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
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