[wtbw]

well, someone asked me about this today and I haven't seen anything about it before, so here's some pseudocode to work out the user id number thing, the thing at X:\Documents and Settings\User\Application Data\Microsoft\MSN Messenger\123123123 or so.

apologies if someone's done it before.

string=<passport email all in lowercase>
x=0;
c=<first character in string (unicode, so 2 bytes)>
while (c!=0){
x=x*101;
x=x+c;
c=<next character in string (unicode, so 2 bytes)>
}
return x;

seems to use 2 bytes hardcoded, god knows what it does with unicode of 4 bytes (or even 8 these days? dunno.)

hope this helps people, gimme a shout in the about box or so if you use it in yr progs if you feel like it.

peace,

Will

edit: erm, big point i forgot to mention... use a 32-bit integer and let it wrap around.

edit 2: and unsigned, obviously.

[noroom says:]
we appreciate the use of code tags. next time add them yourself

This post has been edited by noroom: 13 September 2003 - 04:23 PM

[ecko_complex]

Any way to reverse that? Lets say I want to find out who the hell 3497497874 is :blink:...

[Doggie]

how would u go about doing it in vb ? try methods but i cant get it right.. any ideas?

[Daniel]

Wow... thanks! works like a charm :D

[wtbw]

ecko mate, ya can't go back (easily) cos information is lost, it keeps overflowing and losing the info beyond 32-bit.

Will

[noroom]

doggie, on Sep 13 2003, 07:17 PM, said:

how would u go about doing it in vb ? try methods but i cant get it right.. any ideas?

i think i can port that to VB.

having some problems with the "(unicode, so 2 bytes)" bit, though :huh:

[Keenie]

same problem i had, i couldnt figure out what to do for it. :unsure:

[wtbw]

well, it certainly takes it two bytes at a time, but i've never seen a msn address with unicode characters (i'm pretty certain they arent allowed) so i'd just say f*ck it and deal with it as a normal ascii string if it makes it easier :)

Will

[Daniel]

I was thinking that too, this is what Ive done in c++.
With doing it in vb, im having problemo's with unsigned int, which isnt a var type in vb..
Someone else must know

int getUserId(LPTSTR user)
{
	unsigned int x = 0;

	for (int i = 0; i < strlen(user); i++) {
		x = x * 101;
		x = x + user[i];
	}

	return x;
}

char* msgboxdata;
wsprintf(msgboxdata, "User Id: %u", getUserId("bob@hotmail.com"));
MessageBox(NULL, msgboxdata, NULL, NULL);

[ginge]

Private Sub Command1_Click()
MsgBox LongString(Calculate(LCase$(InputBox$("Type in user name"))))
End Sub

Public Function LongString(i As Variant) As String
LongString = i & ""
End Function

Public Function Calculate(id As String) As Variant
Calculate = CDec(0)
Dim i As Integer
For i = 1 To Len(id)
    Calculate = AddWrap(MulWrap(Calculate, CDec(101)), CDec(Asc(Mid$(id, i, 1))))
Next
End Function

Private Function ToLong(a As Variant) As Variant
Dim MaxVal As Variant: MaxVal = CDec(4294967296#)
ToLong = a
Do While ToLong > MaxVal
    ToLong = ToLong - MaxVal
Loop
End Function

Private Function MulWrap(a As Variant, b As Variant) As Variant
MulWrap = ToLong(a * b)
End Function

Private Function AddWrap(a As Variant, b As Variant) As Variant
AddWrap = ToLong(a + b)
End Function

Definately not as easy as it is in C++, but I've tried this on quite a few test cases, and it gets them all right. I did have a working implementation with longs, but when compiled the behaviour of the code changed - so anyone looking at doing it that way should be very careful

(technical details - it seems you CAN'T trap overflow errors in N-Code compiled .exe's, but you can in the debugger. The error gets raised still, but causes an unhandled message box and shuts your program)

[EDIT]Btw. GZ, you must first make the input string lowercase, i.e.

x = (x * 101) + towlower(user[i]);

[/EDIT]

This post has been edited by ginge: 14 September 2003 - 07:17 PM

[noroom]

omg, that works. :pray:

[Snakerboy]

omg, see GZ if only we knew some math. We might of been able to figure this out ourselfs, anyway great code!

[Doggie]

i was trying to figure out that but i am too slow :P.. well done with the good mate :)

[jaime]

nice, i just finish a color changer ;)

is in spanish, but you will understand it
http://oberst.ibitso...olorchanger.zip

[Doggie]

well to make a running conversion, just use this code on txtconverted_change event for eg;

txtconverted.Text = LongString(Calculate(LCase$(txtEmail.Text)))

This post has been edited by doggie: 15 September 2003 - 04:34 AM

[Doggie]

Extort, on Sep 15 2003, 07:06 PM, said:

wth is a msn6 user id?

coded version of ur email address and the dir where holds ur config XML file, display pics etc eg
doggie@hotmail.com = 1645190282
so hense making a dir
c:\documents and settings\username\application data\microsoft\msn messenger\1645190282

[freestyler]

doggie, on Sep 15 2003, 11:55 AM, said:

coded version of ur email address and the dir where holds ur config XML file, display pics etc eg
doggie@hotmail.com = 1645190282
so hense making a dir
c:\documents and settings\username\application data\microsoft\msn messenger\1645190282

Ahh so thats what it is.

I was wondering what the hell this thread was about.
Hey nice work guys, this is useful info :)

[ginge]

How useful would it be to go from the number to the string? it may be possible to do in some cases, but would be a bit of work. If its very useful I'll give it a go...

[DJMystic]

Erm it's a hash...
If you would give every number in the alphabet a number (eg a-z = 1-26),
and you would count up all the numbers in a string (hello = h+e+l+l+o = 8+5+12+12+15),
Would you be able to convert that back?
No, of course not! because it is just a total of a few numbers :)
If i'd do 3+1=4, and then want to get back 3+1, there would be different possibilities:
3+1
1+3
2+2

Now imagine that with more than 2 numbers,
yes! you're getting the point now aren't you :D
IT'S IMPOSSIBLE!!! :D