Jump to content

Making a password that only works on one computer?


Recommended Posts

Well alright, I will start off by saying I'm NOT selling this bot or trading it in any way. I AM though giving it to a select few friends to automate a game they play... I do not want it to get spread somehow and the entire server owns the bot and the company bans the bot or a way to make sure the bot won't work... (It's happened before... People that used one of mine got banned cause the company detected the program *somehow*)

What I want to do is make a password that works for only ONE computer that I give it to. Then another exact replica bot that has a different password, etc. If I just put a simple password the person that I give it to could easily send it to another person and tell them that password and wa lah...

Is there any way of doing this other than making a server login?

Thanks :S

Link to comment
Share on other sites

Might want to take a look at XProTec.au3

http://www.autoitscript.com/forum/index.ph...st&p=222095

8)

Wow NIFTY program... I got a question though, where could I put the coding in, in my script? (Kind of confused on that whole part)

P.S. - I just want it to make sure only 1 person per computer, how can I get rid of the other stuff (email and paypal and that stuff?)

EDIT: I suppose I can leave in the field they have to put in THEIR email cause then I can send them updates of the bot... But I really don't need the paypal stuff or any of that.

EDIT2: The more I think of it: I could use most of that... I don't need developers license (Don't even know what that is LOL) and I don't need the blacklist and not the paypal thing... If I ever do end up selling it, I would charge the 'currency' in the game my friends play and give it to them instead.

#include <NomadMemory.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <Misc.au3>

Opt("GUICloseOnEsc",1)

HotKeySet("{F5}", "On")


Dim $pointx, $pointy, $recordx, $recordy, $Paused = True, $clients=0
Global $dll = DllOpen("user32.dll"); For _IsPressed Function Below

Global Const $pointx = "0x0057F9B8";Make this Constant so it cannot be changed
Global Const $pointy = "0x0057F9BC";Make this Constant so it cannot be changed

$PID = ProcessExists("**");--- You forgot this in your script you gave me :P


#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Bot", 342, 227, 193, 125)
$Label1 = GUICtrlCreateLabel("F5 To start the bot.", 24, 24, 103, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###



While 1
    If $start Then
        WinWaitActive("**")
        $clients=$clients+1
        $Title=WinSetTitle("[ACTIVE]","",$clients);note that [ACTIVE] as a title will set the Active window to Title 1
        Sleep(1000)

            $do = 0
            Do
                If _IsPressed(1,$dll)=1 Then
                $Mem_Handle = _MemoryOpen($PID)
                Sleep(800)
                $recordx = _MemoryRead($pointx , $Mem_Handle, "")
                IniWrite("Coords.ini",$Title,$do&"x",$recordx); Pretty Self Explainatory. Records coords in a ini file which can be 
                                                ; read afterwards. Writes the $Title Number, Step Number with X and Data
                $recordy = _MemoryRead($pointy , $Mem_Handle, "")
                IniWrite("Coords.ini",$Title,$do&"y",$recordy); Pretty Self Explainatory...^ Same as ^ but with Y
                Sleep(3000)
                $do = $do + 1
                endif

;           Top line of code waits until you Left Click before it runs through those lines of code

            Until $do = 15;--- Gets 15 x, y coords recorded, then Contiunes on....
        $readx = IniRead("Coords.ini", "", "", $recordx);--- ??
        
        $xDo = 0
        Do
            If $readx < Or > $recordx Then
                MouseClick()
                Sleep(1500)
                $xDo = $xDo + 1
            EndIf
        Until $xDo = 15


        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                $ans = MsgBox(33,"Close","Do you really wish to close?")
                If $ans = 1 Then
                    Exit
                EndIf

        EndSwitch


WEnd



Func On()
    $start=NOT $start
    If $start Then
        MsgBox(0, "hey", "Bring up your conquer window")
    EndIf
EndFunc
Edited by UnknownWarrior
Link to comment
Share on other sites

I'm sorry, but I gotta bump this before I go to bed... I really really REALLY need help on this. And this program is my first hope, but I'm not sure really how to implement that into my script :mellow: .

Just fill-in the info needed, #include the XProTec.au3 and put the function at the top of your script.

8)

NEWHeader1.png

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...