Fosters

Does
mptr++^=0x96969696 (C++)
=
mptr=mptr + (mptr XOR &H96969696) (VB)

?
help appreciated.

super_si

Where's Marko when you actually need him

Fosters

I think it's right, I just need someone to say.

I've found some C++ code to extract VSS passwords - just translating it to VB.

dharbige

I don't think you're quite right. The "++" would just add 1 (albeit after the XOR):

mptr = (mptr XOR &H96969696) + 1

But are you sure you've got the original code correct?
The code as it stands would not compile in c++, as the mptr++ evaluates to a "real" value, not a variable, so it cannot then have a value assigned to it.

What seems more likely is
*(mptr++) ^= 0x96969696

...which would XOR the value pointed to by mptr with the constant value, then increment the pointer onto the 'next' value.
The is a bit more complex in VB, as VB does not use pointers, and so you would have to write the code quite differently.

David H.

Fosters

Ahh, I see! cheers.

I've already had to write a << >> equivalent
Function BitShift(lIn As Long, bLeft As Boolean, lBits As Long) As Long
BitShift = (lIn * IIf(bLeft, 2, 0.5)) And ((2 ^ lBits) - 1)
End Function
3 lines of code to replace 2 characters!!

stevencotton

I bet you can knock up a cutesy little furry animal to guide a newbie through the opening of a file in 1 line of VB though

Fosters

StringVariable = FileText("c:\autoexec.bat")

Function FileText(ByVal filename As String) As String
Dim handle As Integer
If Len(Dir$(filename)) = 0 Then Err.Raise 53
handle = FreeFile
Open filename$ For Binary As #handle
FileText = Space$(LOF(handle))
Get #handle, , FileText
Close #handle
End Function

1 line... ish

stevencotton

I don't think I'd have the patience to type all that to open a file

GaryK

nor would I,

just do-

AStringList := TStringList.Create;
AStringList.LoadFromFile('C:\autoexec.bat');

Sorted!

Gary

stevencotton

Looks like you're using a library, that would be cheating

GaryK

Nah,

using Delphi not VB!!!

stevencotton

I can tell that from the variable assignments, having a function to load from a file is quite high level. Verbosity is what puts me off learning Java, Perl has made me way too lazy

IWatkins

Hey Gary, don't forget to .Free it afterwards

(From someone who has been chasing an exception in a Delphi ISAPI DLL all day)

Cheers

Ian

GaryK

Ian,

I use Sleuth QA Suite for all my debugging/testing/mem. checking and its awesome. What you may not know is Turbopower who sell the tool are putting *all* their software out as GPL lots of cool stuff you had to pay for is now free! Just do a search for Turbopower on sourceforge.net !

Cheers

Gary