secure you Script

[Starstar]

thanks to all.....................

[Starstar]

thank to all

[water]

What happened that you feel the urge to thank us again after 3 months?

[water]

What did you try in the meantime? How did it work?

[Starstar]

What happened that you feel the urge to thank us again after 3 months?

i need some more advices so i think it is necessary to tell all friends i am here for getting aid.

[Starstar]

What did you try in the meantime? How did it work?

i wrote a script of PPPoE login creater for xp some time ago and i want to learn some thing new therefor i planed to add some more comands in it.

[ksr000]

Use serial system

[water]

Use serial system

Can you please elaborate on what you are talking about?

[Starstar]

Use serial system

i can also set serial system i want to get system id like Hwid mac address etc.if something like this is in your knowledge please tell me i shall appreciate you.........................My Friend Edited March 30, 2013 by adnanbaloch

[JohnOne]

[Starstar]

There is simple Script Friends after a lot of hard work.we are going to make it secure.our plane is that when the script will run it will get " HWID" in text file and save it in any partition and hide text file by cmd (attrib +h c:text.txt) now let $HWold ="Text.txt"$HWnew = text2.txt .If $HWold <> $HWnew then Erorr "you cannot use script.else ............................

when someone will copy script and past it in another computer.our Script will easily give error..........and script will not run firefox.

#include <String.au3>
$path = "D:\Hardwhere id.txt"
$HWnew= _HWID()
$HWold = $path

MsgBox(64, "Haredwhere ID:", "Your HWID is: " &$HWnew, 3)
GUICtrlRead($path)
If StringLen($HWold) <> $HWnew Then
MsgBox(64, "AdnanBaloch", "You are not allowed to use this tool", 3)
Else
$iPID = Shellexecute(@DesktopCommonDir & '\Mozilla Firefox.lnk');Mozilla Firefox will run if present.
ConsoleWrite($iPID & "-" & @error & @CRLF)
Exit
EndIf

Func _HWID()
$osdrive = StringLeft(@SystemDir, 5)
$original = "0"& @CPUArch & @KBLayout & DriveGetSerial("C:\") & StringUpper(DriveGetType($osdrive)) & DriveSpaceTotal ($osdrive)
$string2 = StringMid($original, Round(StringLen($original)/2), Round(StringLen($original)/2))
$string2_mod = _StringToHex(_StringReverse($string2))
$original = _StringEncrypt(1, $original, $string2_mod, 1)
Return $original
EndFunc

work on it please. Edited April 2, 2013 by adnanbaloch

[Starstar]

thx for your feedback!

[Starstar]

please................Tell..........me something.......i have been waiting for 1 hours for feedback..........

[water]

Please be patient

This is no 24 hours support forum!

[Starstar]

Are you like or dislike my script??? tell me please...........What change can be...........what is possible by us?

Edited April 2, 2013 by adnanbaloch

[Starstar]

Ok no problem in be patient.........

Edited April 1, 2013 by adnanbaloch

[Melba23]

adnanbaloch,

You are beginning to be a nuisance and perturbing the smooth running of the forum - start behaving in a sensible manner please.

M23