vb.org Archive - I Created Hack Called "Merlin Hack"

This is creat a cherectear (i am sorry i don"t know to write this word)
of merlin the microsoftagent
he gives a welcome to the board like this:
http://www.tb.rehost.co.il/firebolt/merlin.html

i was created him on Visual Basic & HTML to run it on a page.

options:
he can read the page.
you can to crazy him
you can to shut up him
you can to close him and more.

version:1.0
programmed by:FireBolt(me) and Altryne(my friend)

put this code on your forum tamplate like "footer or FORUMHOME":

Code:

<html>

<head>

<title>MASS Script Inside</title>

</head>

<body><OBJECT ID="AgentControl" width=0 height=0

  CLASSID="CLSID:D45FD31B-5C6E-11D1-9EC1-00C04FD7081F"

  CODEBASE="http://activex.microsoft.com/activex/controls/agent2/MSagent.exe#VERSION=2,0,0,0">

</OBJECT>

<Object ID="L&HTruVoice" Width=0 Height=0

  ClassID="CLSID:B8F2846E-CE36-11D0-AC83-00C04FD97575"

  CodeBase="http://activex.microsoft.com/activex/controls/agent2/tv_enua.exe#VERSION=6,0,0,0">

</Object>

<input name="button" type="button"  LANGUAGE="VBScript" onClick="load" value="Start Merlin Hack!" > 





<script language="VBScript">

</script>



<script language="JavaScript">

<!--



function SymError()

{

  return true;

}



window.onerror = SymError;



var SymRealWinOpen = window.open;



function SymWinOpen(url, name, attributes)

{

  return (new Object());

}



window.open = SymWinOpen;



//-->

</script>



<script language="VBScript">

</script>



<script language="JavaScript">

<!--



function SymError()

{

  return true;

}



window.onerror = SymError;



var SymRealWinOpen = window.open;



function SymWinOpen(url, name, attributes)

{

  return (new Object());

}



window.open = SymWinOpen;



//-->

</script>



<script language="VBScript"><!--

        dim Merlin

        dim x

        dim y

        

Sub window_onload()

        

End Sub



Sub InitPopupMenuCmds()

        Merlin.Commands.RemoveAll

        Merlin.Commands.Add "Technoboard", "Technoboard Home Page", "Technoboard Home Page"

        Merlin.Commands.Add "READPAGE", "Read Web Page", "Read Web Page"

        Merlin.Commands.Add "about", "About", "About"

        Merlin.Commands.Add "STOPALL", "Shut Up!", "Shut Up"

        Merlin.Commands.Add "BYE" , "BYE!", "Bye"

End Sub



Sub AgentControl_Command(ByVal UserInput)

        Select Case UserInput.Name



                Case "Technoboard"

                    Window.open "http://Technoboard.tv"

                Case "about"

                 Merlin.StopAll

                 merlin.play "suggest"

                   merlin.speak "I was Created by Altryne and Firebolt for Technoboard"        

                Case "READPAGE"

                        If document.body.innerText = "" Then

                                Merlin.Speak "Nothing to Read"

                        Else

                                Merlin.StopAll

                                Merlin.Speak "OK"

                                Merlin.Speak document.body.innerText

                        End If

                Case "STOPALL"

                        Merlin.StopAll

                        Merlin.Speak "OK"

                Case "BYE"

                        Merlin.StopAll

                        Merlin.Hide

                        Set Merlin = Nothing

                        AgentControl.Characters.Unload "Merlin"

                Case "CDC"

                        AgentControl.ShowDefaultCharacterProperties

        End Select

End Sub



Sub AgentControl_Click(ByVal CharacterID, ByVal Button, ByVal Shift, ByVal X, ByVal Y)

merlin.stopall

merlin.speak "\emp\WHAT IS YOUR PROBLEM?|DON'T ++++ING TOUCH ME AGAIN!!|Your IP has been reported to my creators!|Touch me again I'll kill you!!"

merlin.MoveTo 57, 339,4000 

End Sub



Sub AgentControl_DblClick(ByVal CharacterID, ByVal Button, ByVal Shift, ByVal X, ByVal Y)

        On Error Resume Next

        Merlin.StopAll

        Set Merlin = Nothing

        AgentControl.Characters.Unload "Merlin"

End Sub



Sub Load()



        AgentControl.Connected = True

        AgentControl.Characters.Load "Merlin", "merlin.acs"

        Set Merlin = AgentControl.Characters ("Merlin")

        InitPopupMenuCmds

        Play

End Sub



Sub Play()



On Error Resume Next

Merlin.Show

merlin.MoveTo 57, 339

merlin.Balloon.FontName = "Narkisim"

merlin.Balloon.FontSize = 10

merlin.TTSModeID = "{CA141FD0-AC7F-11D1-97A3-006008273002}"

merlin.Show

merlin.speak "I hate it when people touch me!!|Hi, and welcome to the best forum on the net, \pau=30\ Technoboard|Welcome to \pau=30\ Technoboard|\pau=30\ Technoboard Rules|Welcome"

merlin.Play "Announce"

merlin.Speak "Technoboard is number 1"

merlin.Play "Congratulate"

merlin.Play "Congratulate_2"

merlin.Play "read"

merlin.Speak "Remember , Technoboard  rules!|\pau=30\ Technoboard is my second home|I was programmed exlusivly for \pau=30\ Technoboard"

merlin.Play "Wave"

merlin.play "searching"

End Sub



-->

</script>



</body>



<script language="JavaScript">

<!--



window.open = SymRealWinOpen;



//-->

</script>





<script language="JavaScript">

<!--



window.open = SymRealWinOpen;



//-->

</script>



</html>

Find on the code:

Code:

Merlin.Commands.Add "Technoboard", "Technoboard Home Page", "Technoboard Home Page"

and change to your neme.

find this:

Code:

Case "Technoboard"

                    Window.open "http://Technoboard.tv"

and change to your names.

find this and change the words you want:

Code:

merlin.speak "I hate it when people touch me!!|Hi, and welcome to the best forum on the net, \pau=30\ Technoboard|Welcome to \pau=30\ Technoboard|\pau=30\ Technoboard Rules|Welcome"

merlin.Play "Announce"

merlin.Speak "Technoboard is number 1"

and on this change the words if you want:

Code:

merlin.speak "I hate it when people touch me!!|Hi, and welcome to the best forum on the net, \pau=30\ Technoboard|Welcome to \pau=30\ Technoboard|\pau=30\ Technoboard Rules|Welcome"

merlin.Play "Announce"

merlin.Speak "Technoboard is number 1"

merlin.Play "Congratulate"

merlin.Play "Congratulate_2"

merlin.Play "read"

merlin.Speak "Remember , Technoboard  rules!|\pau=30\ Technoboard is my second home|I was programmed exlusivly for \pau=30\ Technoboard"

===================================

change wants :

find this:

Code:

merlin.speak "\emp\WHAT IS YOUR PROBLEM?|DON'T ++++ING TOUCH ME AGAIN!!|Your IP has been reported to my creators!|Touch me again I'll kill you!!"

==============================END================= =========

Enjoy this hack!

X vBulletin 3.8.12 by vBS Debug Information
Page Generation 0.01262 seconds Memory Usage 1,796KB Queries Executed 10 (?)
More Information
Template Usage: (1)ad_footer_end (1)ad_footer_start (1)ad_header_end (1)ad_header_logo (1)ad_navbar_below (6)bbcode_code_printable (6)bbcode_quote_printable (1)footer (1)gobutton (1)header (1)headinclude (6)option (1)post_thanks_navbar_search (1)printthread (23)printthreadbit (1)spacer_close (1)spacer_open Phrase Groups Available: global postbit showthread	Included Files: ./printthread.php ./global.php ./includes/init.php ./includes/class_core.php ./includes/config.php ./includes/functions.php ./includes/class_hook.php ./includes/modsystem_functions.php ./includes/class_bbcode_alt.php ./includes/class_bbcode.php ./includes/functions_bigthree.php Hooks Called: init_startup init_startup_session_setup_start init_startup_session_setup_complete cache_permissions fetch_threadinfo_query fetch_threadinfo fetch_foruminfo style_fetch cache_templates global_start parse_templates global_setup_complete printthread_start bbcode_fetch_tags bbcode_create bbcode_parse_start bbcode_parse_complete_precache bbcode_parse_complete printthread_post printthread_complete
Messages: