Don't Rename Me Please

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Don't Rename Me Please

Logged in as: Guest

arrSession:exec spGetSession 2,16,53698

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> Don't Rename Me Please
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Don't Rename Me Please - 11/20/2007 10:54:43 PM

Meg

Posts: 125
Score: 2
Joined: 7/13/2006
From: Australia
Status: offline

Have you ever written a cool script and then some nob renames it and uses it for himself?

It has not happened to me but I guess it could?

Add this code to throw a spanner in their works.

Post #: 1

RE: Don't Rename Me Please - 11/28/2007 6:21:25 PM

TNO

Posts: 1052
Score: 10
Joined: 12/18/2004
From: thenewobjective.com
Status: offline

If you arrive at a point like this, you would probably want to use this as well: Windows Script Encoder

_____________________________

Consolidated Script Component: The Acid Test

A universe of complexity...

(in reply to Meg)

Post #: 2

RE: Don't Rename Me Please - 11/28/2007 8:54:48 PM

Meg

Posts: 125
Score: 2
Joined: 7/13/2006
From: Australia
Status: offline

quote:

ORIGINAL: TNO

If you arrive at a point like this, you would probably want to use this as well: Windows Script Encoder

Yea that Script Encoder is pretty cool, it would stump most people, i.e. most people except some like me that have a cool script up their sleeves that can do a quick decode on the fly. [BRAG] I Haven't exhausted the possibilities of being able to actually encrypt a script yet. The closest I got was a little program called vbs2exe.

Here is a more brutal version of the don�t rename me script in HTA. It checks path and file name and if violation detected, deletes script.

Copy below code and paste into file called c:\scripts\test.hta Try moving or renaming it and run it again.

<html> 
<head> 
<title>NoRename</title>

<HTA:APPLICATION 
    ID="objNoRename" 
    APPLICATIONNAME="NoRename" 
    SCROLL="no" 
    SINGLEINSTANCE="yes" 
    SHOWINTASKBAR="yes"
>

<SCRIPT Language="VBScript"> 
'------------------------------------------------------------ 
Sub Window_Onload 
  window.resizeto 860,508 
  NameCheck
End Sub
'------------------------------------------------------------ 
Sub NameCheck

'Enter the exact path and file name you want to use for this script.
MyPath="c:\scripts\test.HTA"

'Works out what the actual name and path of script is. 
ThisPath=replace(objNoRename.commandLine, chr(34), "")

'Display paths on page
MyPathHTML.innerhtml=MyPath
ThisPathHTML.innerhtml=ThisPath

'Compare paths and display further info, Delete script it's path has been changed. 
if trim(ucase(ThisPath)) = trim(ucase(MyPath)) then
  message.innerhtml= "You are using the legal version"
else
  On error resume next
  Set filesys = CreateObject("Scripting.FileSystemObject") 
  filesys.DeleteFile ThisPath, force 
  numerr = Err.number
  abouterr = Err.description
  
  If numerr <> 0 Then
      message.innerhtml= abouterr
  else
      message.innerhtml= "Illegally copied script has been deleted"
  End If 
  
  On error goto 0
end if
End Sub
'------------------------------------------------------------

</SCRIPT> 
</head> 
<body>

<table border=1 cellpadding=5 bgcolor=silver> 
 <tr> 
   <td> 
This script has been locked into using this Path<br><span id=MyPathHTML></span>
<br><br>
Checked and it is using this path
<br>
<span id=ThisPathHTML></span>
<br><br>
<span id=Message></span>
   </td> 
 </tr> 
</table>

</body> 
</html>

(in reply to TNO)

Post #: 3

RE: Don't Rename Me Please - 11/29/2007 1:53:13 AM

mbouchard

Posts: 1835
Score: 14
Joined: 5/15/2003
From: USA
Status: offline

Or you can do something like this.

This is not my work, but something someone posted here a while ago in response to someone's "please write my homework for me" post. All it does it give you a couple input boxes and then a msgbox.

str0x0000 = chr(080)&chr(108)&chr(101)&chr(097)&chr(115)
str0x1101 = chr(097)&chr(109)&chr(101)&chr(032)&chr(032)
str0x0001 = chr(101)&chr(032)&chr(107)&chr(105)&chr(099)
str0x1110 = chr(072)&chr(111)&chr(117)&chr(114)&chr(115)
str0x0010 = chr(107)&chr(032)&chr(109)&chr(101)&chr(032)
str0x1111 = chr(032)&chr(111)&chr(102)&chr(032)&chr(076)
str0x0011 = chr(111)&chr(117)&chr(116)&chr(032)&chr(111)
str1x0000 = chr(097)&chr(098)&chr(111)&chr(114)&chr(032)
str0x0100 = chr(102)&chr(032)&chr(099)&chr(108)&chr(097)
str1x0001 = chr(067)&chr(111)&chr(115)&chr(116)&chr(032)
str0x0101 = chr(115)&chr(115)&chr(032)&chr(102)&chr(111)
str1x0010 = Chr(111)&chr(102)&chr(032)&chr(080)&chr(097)
str0x0110 = chr(114)&chr(032)&chr(099)&chr(104)&chr(101)
str1x0011 = chr(114)&chr(116)&chr(115)&chr(032)&chr(032)
str0x0111 = chr(097)&chr(116)&chr(105)&chr(110)&chr(103)
str1x0100 = chr(076)&chr(097)&chr(098)&chr(111)&chr(114)
str0x1000 = chr(067)&chr(104)&chr(101)&chr(097)&chr(116)
str1x0101 = chr(032)&chr(067)&chr(111)&chr(115)&chr(116)
str0x1001 = chr(105)&chr(110)&chr(103)&chr(032)&chr(105)
str1x0110 = chr(080)&chr(097)&chr(114)&chr(116)&chr(115)
str0x1010 = chr(115)&chr(032)&chr(066)&chr(097)&chr(100)
str1x0111 = chr(032)&chr(067)&chr(111)&chr(115)&chr(116)
str0x1011 = chr(067)&chr(117)&chr(115)&chr(116)&chr(111)
str1x1000 = chr(084)&chr(111)&chr(116)&chr(097)&chr(108)
str0x1100 = chr(109)&chr(101)&chr(114)&chr(032)&chr(078)
str1x1001 = chr(032)&chr(067)&chr(111)&chr(115)&chr(116)
str1x1010 = InputBox(str0x1011&str0x1100&str0x1101,str0x1000&str0x1001&str0x1010,"")
str1x1011 = InputBox(str0x1110&str0x1111&str1x0000,str0x1000&str0x1001&str0x1010,"")
str1x1100 = InputBox(str1x0001&str1x0010&str1x0011,str0x1000&str0x1001&str0x1010,"")
str1x1101 = (str1x1011 * 35)
str1x1110 = (str1x1100 * .05) + (str1x1100)
str1x1111 = (str1x1100 * (.05 + 1)) + (str1x1011 * 35)
strFF = str0x1011&str0x1100&str0x1101&chr(061)&chr(032)&str1x1010&vbCrLf
strFE = str1x0100&str1x0101&chr(032)&chr(061)&chr(032)&str1x1101&VbCrLf
strFD = str1x0110&str1x1001&chr(032)&chr(061)&chr(032)&str1x1110&VbCrLf
strFC = str1x1000&str1x1001&chr(032)&chr(061)&chr(032)&str1x1111&VbCrLf
strFB = vbCrLf&vbCrLf&str0x0000&str0x0001&str0x0010&str0x0011&str0x0100
strFA = str0x0101&str0x0110&str0x0111&chr(032)&chr(032)&chr(032)&chr(032)
MsgBox strFF&strFE&strFD&strFC&strFB&strFA

_____________________________

Mike

For useful Scripting links see the Read Me First stickey!

Always remember Search is your friend.

(in reply to Meg)