[VB6-317] Basic login handling
Hey guys,
I still had a old project i once made.
Its far from being done or anything but you can login.
And read the username and password from the client.
Its made in no not java but vb6..
Yeah i know but yet here it is..
The code is added to a early version of Basic-Server.
A server base i normaly use in vb6 the latest has error handling sql handling and normal packet handling.
And even better socket handling then this version its added to.
But here it is so have fun ? or something?
Download!
Re: [VB6-317] Basic login handling
Haha well done Thugie, I never thought anyone would get around to trying to make a base in VB6. Ofcourse the are so many reasons for this I won't think to list them, you've actually gone and done it :thumbup:
So what are your plans, will you attempt the rest of the server? Or leave it here, to prove it could atleast be done :ott1:
Re: [VB6-317] Basic login handling
Oh jeez! Where have you been jerk?!
I remember you mentioned this before, and I see it never got finished. That's how it goes for me as well xD
Thanks for the release, I'm the VB boys will like the attention
Re: [VB6-317] Basic login handling
Yeah i found it on a old harddrive.
Removed a few bugs as it didnt read the username and pass.
So i fixed that up and though why not share people might like it.
And for finishing it that will never happen.
Might continue a bit more but will have to convert the crypt..
And where have i been all around doing about just anything + mostly real life work gf and stuff :).
Re: [VB6-317] Basic login handling
I feel ya man, I got a lot of work goin on and stuff too. If you need, I have the packet documentation and the protocol for login if you want it, rather than looking through an ugly client class.
crypt is ripped anyways, so a rewrite will really improve it's performance
Re: [VB6-317] Basic login handling
Awww come now, this masterpiece needs finishing Thugie! Don't let the dream die :lol:
Someone might actually find a use for it, I'd be interested to see what they do with that aswell!
Gah, you're not allowed a real life, well atleast you're still popping in and out mate, just make it more frequent :wink:
Re: [VB6-317] Basic login handling
If you check my profile you can see I'm still active on rz :).
And for the cryption i will probably just convert it though.
And yeah if you got a clear document that would really help ghost :)
1 Attachment(s)
Re: [VB6-317] Basic login handling
This is as much info as I got, I formatted it a bit to make it easier to read. The last section is packet information
Cheers, mate
Re: [VB6-317] Basic login handling
Psht ain't we all? Problem is we need to be more active here. But yeah, we all got distracted I think. Sad times.
Well I'll be interested to see just how far you get with this, butI imagine performance is nothing to write home about?
Re: [VB6-317] Basic login handling
Well that mostly depends on how you code it isn't it ?
Code:
Dim cryptVar1 As Integer, cryptVar2 As Integer, cryptVar3 As Integer
Dim cryptArray(256) As Integer, keySetArray(256) As Integer, keyArrayIdx As Integer
Private Function generateNextKeySet()
Dim i As Integer, j As Integer, k As Integer
cryptVar2 = cryptVar2 + (cryptVar3 + 1)
For i = 0 To 255
j = cryptArray(i)
If (i & 3) = 0 Then
cryptVar1 = cryptVar1 ^ ShiftLeft(cryptVar1, 13)
ElseIf (i & 3) = 1 Then
cryptVar1 = cryptVar1 ^ ShiftRight(cryptVar1, 6)
ElseIf (i & 3) = 2 Then
cryptVar1 = cryptVar1 ^ ShiftLeft(cryptVar1, 2)
ElseIf (i & 3) = 3 Then
cryptVar1 = cryptVar1 ^ ShiftRight(cryptVar1, 16)
End If
cryptVar1 = cryptVar1 & cryptArray(i + 128)
k = cryptArray(ShiftRight((j & "&H3FC"), 2) + cryptVar1 + cryptVar2)
cryptArray(i) = k
cryptVar2 = cryptArray(ShiftRight(ShiftRight(k, (8 & "&H3FC"))), 2) + j
keySetArray(i) = cryptVar2
End Function
A begin not tested or even looked over twice.
I guess its a begin right ?
Re: [VB6-317] Basic login handling
looks good to me. Of course, I am not versed in VB. but from snippets I've seen, it looks good
When I go over the Stream and Cryption classes, if I manage to refactor em properly (mainly for legality sake), I'll make sure to hand you a copy
Re: [VB6-317] Basic login handling
Looks sweet, will download now and take a look.
Re: [VB6-317] Basic login handling
Btw isn't there a way to disable the whole isaac cipher ?
It seems you can bypass it but then you wont obtain username + password so thats useles :p.
Re: [VB6-317] Basic login handling
well it's completely possible to disable it, I mean it's just like RSA... The only problem is you're increasing the risk there man.
wait, I don't think the user and pass are ciphered
As far as I remember, it's just plain text. Or rather, the user and password are converted to longs and then split up into a byte array and passed to the server. Shit I gotta look this up. Going to bed, I'll have a proper answer for you in the mornin'
Re: [VB6-317] Basic login handling
The username and pass are just plain text as the rsa is disabled.
But for easy use and the boredom of converting the isaaccipher.
I just wanted to disable it for until a later time :p.
Damn converting the isaac cipher is a pain!
Nobody wanna do it for me ? 8(
btw i guess i have disabled it in my client just no server to test it on :D.