Blow I have given a code that can be convert in to SQL query ?

Question

1.00/5 (1 vote)

See more:

Public Sub Proc_Data

  Dim var_17C As String
 var_90 = CStr(Ucase(Left(Format(DateAdd("m", CSng((Format(Date, "MM") Mod 4)), Date), "MMMM"), 3)))
 For var_178 = 1 To CInt(Len(var_90)): MemVar_27041A0 = var_178 'Integer
   var_8C = CStr(CVar(vbNullString) & Chr(CLng((&H41 + (Asc(CStr(Mid(var_90, CLng(MemVar_27041A0), 1))) Mod &H1A)))))
  If (MemVar_27041A0 < 3) Then
     var_17C = CStr(Mid(CStr(Format(DateAdd("M", CSng((Format(Date, "YY") * Format(Date, "MM"))), Date), "YY")), CLng(MemVar_27041A0), 1))
     var_8C = var_8C & CStr(((((Asc(var_17C) * &H4D) * MemVar_27041A0) + 7) Mod &HA))
   Else
     var_8C = CStr(CVar(var_8C) & Chr(CLng((&H41 + ((Asc(CStr(Mid(var_90, CLng(MemVar_27041A0), 1))) + 7) Mod &H1A)))))
   End If
 Next var_178 'Integer
 var_88 = CStr(LCase(var_8C))
 Exit Sub
End Sub

What I have tried:

I tried to make a sql query but i could't succeed.

Posted 24-Aug-19 5:28am

Member 13976508

Updated 27-Aug-19 0:28am

Add a Solution

3 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

OriginalGriff · Answer 1 · 2019-08-24T05:35:00

Quote:
I tried to make a sql query but i could't succeed.

I'm not surprised. I can't make head or tail of that: it looks like de-obfuscated code and is deliberately hard to work out.

I'd go back to where you got that and see if they can explain exactly what that is supposed to do ... but as SQL? Since that doesn't appear to process any database data I can see, probably not ...

Patrice T · Answer 2 · 2019-08-24T10:06:00

Quote:
I tried to make a sql query but i could't succeed.

I agree with OG, this code have been obfuscated, this mean that the code have been made deliberately difficult to read and understand for humans.
This means that analyzing the code is a real job, even for a little piece of code like that.
Understanding the code is a prerequisite for translating as things are not done the same way from a language to another.

Note that the values of variables defined outside of this code can mean a lot and make it impossible to understand because it is a missing information.

Maciej Los · Answer 3 · 2019-08-27T00:28:00

Seems, it's VB6 code instead of VB.NET...

We can't help you, because there's a lot of variables which were defined out of scope of Proc_Data procedure, for example: var_90, MemVar_27041A0, var_8C, var_88.

BTW: This piece of code is ugly... I'm serious. It's not a joke!
Note, that below line of code makes unnecessary calls of several VB functions:

VB

var_90 = CStr(Ucase(Left(Format(DateAdd("m", CSng((Format(Date, "MM") Mod 4)), Date), "MMMM"), 3)))

It can be simplify to this form:

VB

var_90 = UCase(Format(DateAdd("m", CSng((Format(Date, "MM") Mod 4)), Date), "MMM"))

So, CStr() and Left() function calls are redundant!

Blow I have given a code that can be convert in to SQL query ?

3 solutions

Solution 1

Solution 2

Solution 3

Add your solution here

Preview 0