Starstruck Emulator [R63, VB6, MySQL]

[Quackster]

Starstruck

This is a base


This was a project that I started before Aleeda was born, prjStarstruck was originally named Aleeda but then C# would be better.

This has been a recode of Amicite and supports the RELEASE 63 protocol.

Also get a VB6 torrent if you wish to edit the source
​

Snippets

Case "F_"
Dim SSO As String
SSO = Mid(data, 5)
If clsMySQL.checkExists("SELECT sso FROM members WHERE sso = '" & SSO & "'") = True Then
SendData Index, "@B" & Chr(1) '//Send fuse rights NEEDS DOING
SendData Index, "@C" & Chr(1)
SendData Index, "Ba" + "Welcome to Starstruck!" & Chr(2) & "http://winterpartys.org/" & Chr(1)
Else
SendData Index, "BKWrong sso nub" & Chr(1)
End If

Features
MySQL
Client - > SSO 100%
Naviator - > Public Rooms 25%

Also, this is not for noobs read some guides before posting.

Picture

You must be registered to see links

Database

-- ----------------------------
-- Table structure for `members`
-- ----------------------------
DROP TABLE IF EXISTS `members`;
CREATE TABLE `members` (
  `id` int(11) NOT NULL AUTO_INCREMENT,
  `name` varchar(150) NOT NULL,
  `ip` varchar(15) NOT NULL,
  `rank` int(11) NOT NULL,
  `pixels` int(11) NOT NULL,
  `sso` varchar(150) NOT NULL,
  PRIMARY KEY (`id`)
) ENGINE=MyISAM AUTO_INCREMENT=2 DEFAULT CHARSET=latin1;

-- ----------------------------
-- Records of members
-- ----------------------------
INSERT INTO `members` VALUES ('1', 'Alex', '127.0.0.1', '7', '1010', 'UniquePacket');

DOWNLOAD

You must be registered to see links

You must be registered to see links

​

​

 

[Lts]

Re: prjStarstruck Emulator [R63, VB6, MySQL]

I really think to use the source of this server to me the basis for a new server: D

 

[Quackster]

Re: prjStarstruck Emulator [R63, VB6, MySQL]

Nice. Discribe it more.

What else would you like to know?

 

[blackb0x]

Good work Alex. hmmmm maybe a virus scan?

 

[=dj.matias=]

Fixed

 

[1ntel]

What is it with all these bases? and hasn't it been proven with Privileges that VB6 is not the way forward. Its an old and unsupported code, move on to VB.NET if you wish to carry on with VB period.

 

[salah-salah]

Good work Alex. hmmmm maybe a virus scan?

He is a trust member of ragezone
So a virus scan is not required.

 

[mohje]

unfortunate that no CMS is listed it seems ok but I see nothing on only one screen?

 

[PEjump2]

Mohje / SuperMogool, It's a base, stupid.
Alex, great job, but as you already know, i fúcking hate VB6 so i won't code on this, And no B64, VL64 encoding decoding? Terrible

 

[Hejula]

PEJUMP, this is NOT your Ducking cancer thread so stop trying to be a clown stupid fagger,

ontopic: this looks great

Look out, it's the spam police. You ain't a MOD. Stop trying to be one.

This actually looks quite good, but I worry about anything based on this being as bad as Dynamic Emulator

 

[Quackster]

Mohje / SuperMogool, It's a base, stupid.
Alex, great job, but as you already know, i fúcking hate VB6 so i won't code on this, And no B64, VL64 encoding decoding? Terrible

It does have encoding :L

 

[PEjump2]

It does have encoding :L

Terrible crappy encoding from USA111 doesn't count.

---------- Post added at 02:48 PM ---------- Previous post was at 02:47 PM ----------

hello! , we keep it polite and not rude and do not feel cool we keep it quiet make no mistake

so we keep it so, respect -.- .

LolWut? Didn't understand anything of that, Could you try to explain it in proper "English" please?

 

[Hejula]

You also have to edit the source in order to change your MySQL settings, I'll release it so you only have to edit a .ini file.

---------- Post added at 07:53 AM ---------- Previous post was at 07:51 AM ----------

Also, why the duck are you comparing it to Privileges emulator?

I am not comparing it to Dynamic Emulator, I am simply stating that I worry about R63 VB6 Emulators being as bad as Dynamic Emulator. There is no comparison there. Also, there is no need to use such vulgar words as "duck".

 

[Nillus]

Case "F_"
Dim SSO As String
SSO = Mid(data, 5)
If clsMySQL.checkExists("SELECT sso FROM members WHERE sso = '" & SSO & "'") = True Then
SendData Index, "@B" & Chr(1) //Send fuse rights NEEDS DOING
SendData Index, "@C" & Chr(1)
SendData Index, "Ba" + "Welcome to Starstruck!" & Chr(2) & "http://winterpartys.org/" & Chr(1)
Else
SendData Index, "BKWrong sso nub" & Chr(1)
End If

Might want to do something about that neat little SQL vulnerability there. Allows users to execute any SQL code they want including the ability to create files on the local filesystem, create shells and take over your server.

Also. Why don't you use Java or .NET.

 

[Subway]

nice emulator + release, will test it now.

 

[soxasoras]

=S on the source there are Three Projects ò.ò

 

[St3r3o]

I don't really like r63 emulation.

But your emu base is great.

Your source is easy to understand. => great and thanks for sharing.

VB6 ruleZ.

---------- Post added at 04:03 PM ---------- Previous post was at 03:58 PM ----------

=S on the source there are Three Projects ò.ò

There is ONE project. The others are MODULES -.-

 

[Quackster]

Case "F_"
Dim SSO As String
SSO = Mid(data, 5)
If clsMySQL.checkExists("SELECT sso FROM members WHERE sso = '" & SSO & "'") = True Then
SendData Index, "@B" & Chr(1) //Send fuse rights NEEDS DOING
SendData Index, "@C" & Chr(1)
SendData Index, "Ba" + "Welcome to Starstruck!" & Chr(2) & "http://winterpartys.org/" & Chr(1)
Else
SendData Index, "BKWrong sso nub" & Chr(1)
End If

Might want to do something about that neat little SQL vulnerability there. Allows users to execute any SQL code they want including the ability to create files on the local filesystem, create shells and take over your server.

Also. Why don't you use Java or .NET.

Why not?

Case "F_"
    Dim SSO As String

    SSO = Mid(data, 5)
    SSO = Replace(SSO, "ORDER BY", "")
    SSO = Replace(SSO, "OR", "")
    SSO = Replace(SSO, "SELECT", "")
    SSO = Replace(SSO, "INSERT", "")
    SSO = Replace(SSO, "UNION", "")

If clsMySQL.checkExists("SELECT sso FROM members WHERE sso = '" & SSO & "'") = True Then
SendData Index, "@B" & Chr(1) //Send fuse rights NEEDS DOING
SendData Index, "@C" & Chr(1)
SendData Index, "Ba" + "Welcome to Starstruck!" & Chr(2) & "http://winterpartys.org/" & Chr(1)
Else
SendData Index, "BKWrong sso nub" & Chr(1)
End If

 

[Zanderx]

where i can download , VB6 for Windows 7 32 BIT

 

[Emerica]

where i can download , VB6 for Windows 7 32 BIT

mhm use Google