Script nur auf bestimmten Rechnern erlauben

Hallo, ich möchte ein Script machen, was nur auf Rechnern läuft, wo ich es will

habe mir es so vorgestellt

mache ein Tool was eine Art code erstellt, dieses Prog bekommt derjenige wo später das Script laufen soll.

ich prüfe dann in Hauptprogramm ob dieser Code drinnen ist=> Programm läuft los, oder code nicht enthalten=>Programm beendet sich

Ich dachte da zb an Mac Adresse, fällt aber weg, da dann das Script bei der Firewall anschlägt, erregt bei manchen ein ungutes Gefühl

Windows Key soll auch außen vor bleiben, da ich diese dann bekommen, das möchte ich nicht

Gibt es keine andere Möglichkeit?

irgendein ein code denn man aus der Hardware generieren kann

Grüße

mhh finde nix passendes von xenobiologist erstellten themen

danke, dir, bin glaube ich fertig mit dem was ich wolltebin auf die idde von hier gekommen

if -- elseif -- ifend

und habe einfach am anfang meines scriptes das angefangen

$C=DriveGetSerial("C:\")
if $C = "6758*3964" Then
aio()
endif
if $C = "3682***7" Then
aio()
endif

wie schaffe ich es, das ich von allen Laufwerken die dejenige hat, die serial bekomme, (ok das leicht), aber wie binde ich diese dann sauper in das script ein, weil es so an 10 leute auwärtsgeht, send ne menge if fragen drinnen

ist das einfachste, oder was denkst?

noch ne frage, wie gebe ich eine msgbox aus wenn kein Treffer erzielt wurde und derjenige demzufolge keine Berechtigung hat?

jo mac adresse, bin ich weg, kann man zu leicht fälschen

was dieschara gepostet hat gefällt mir sehr gut

Zitat

[autoit][/autoit] [autoit][/autoit] [autoit]

$var = DriveGetSerial( StringLeft( @ScriptDir, 3 ))
$var2 = @OSLang
$var = $var & $var2
$var = StringReplace($var, "0", "E")
$var = StringReplace($var, "1", "J")
$var = StringReplace($var, "2", "W")
$var = StringReplace($var, "3", "Z")
$var = StringReplace($var, "4", "R")
$var = StringReplace($var, "5", "C")
$var = StringReplace($var, "6", "V")
$var = StringReplace($var, "7", "S")
$var = StringReplace($var, "8", "H")
$var = StringReplace($var, "9", "A")
$var = "SF12-" & $var

[/autoit] [autoit][/autoit] [autoit]

If $var <> "SF12-VEHSWEWWAERES" Then
MsgBox(0, "Fehler", "Diese Version laeuft ausschliesslich auf einem pc. Sorry")
Exit
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

damit hängst es einfach an die HAdwareID deines Sticks dran

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Code um hadwareid rauszufinden:

[/autoit] [autoit][/autoit] [autoit]

;
$var = DriveGetSerial( "c:\" )
$var2 = @OSLang
$var = $var & $var2

[/autoit] [autoit][/autoit] [autoit]

$var = StringReplace($var, "0", "E")
$var = StringReplace($var, "1", "J")
$var = StringReplace($var, "2", "W")
$var = StringReplace($var, "3", "Z")
$var = StringReplace($var, "4", "R")
$var = StringReplace($var, "5", "C")
$var = StringReplace($var, "6", "V")
$var = StringReplace($var, "7", "S")
$var = StringReplace($var, "8", "H")
$var = StringReplace($var, "9", "A")

[/autoit] [autoit][/autoit] [autoit]

$var = "SF12-" & $var

[/autoit] [autoit][/autoit] [autoit]

MsgBox(4096, "Hardware ID", $var)

[/autoit] [autoit][/autoit] [autoit][/autoit]

Alles anzeigen

aber Problem ist eben, das es wohl besser ist für jedes Lauferk des benutzes die id hier einzufügen, wird aber dann sehr groß, oer gibt es nen kleinen code, der zum Beispiel 50 codes überprüfen kann,, und wenn einer richtig bei ist weitermacht?

mit fällt da gerade

if $Hardwareid = "id2" or "id2" or "id3" usw

Zitat

Original von Xenobiologist
Hi,

was fehlt die denn an meinen Funktionen?

So long,

Mega

nun ob was fehlt weiß ich nicht, aber wie du weißt kenne ich mich zu meinen bedauern nicht mit englisch aus

serial abfrage habe ich, jetzt möchte ich intern die serials abfragen und vergleichen

Zitat

Original von .::Mignon::.
wenn ich dich richtig verstanden habe brauchst du das hier:

[autoit]

if _serial() = 1 then
_anweisungen()
elseif _serial() = 0 then
exit
endif

[/autoit] [autoit][/autoit] [autoit]

func _serial()
$serial = drivegetserial("C:\")
if $serial = "123456789" then
return 1
else
return 0
endif
endfunc

[/autoit] [autoit][/autoit] [autoit]

func _anweisungen()
;hier dein script...
endfunc

[/autoit]

wenn du was anderes gemeint haben solltest dann tut es mir leid.

Alles anzeigen

ja so ind der art, nir der teil if $serial ="123456789" then

dort müssen mehr hin, da es auf verschiedenen Rechnern laufen soll, also mehr serials überprüfen wenn nen eine richtige bei ist startet es

jop ich versuchs mal

Irgendwie nen fehler drinnen, er verlang ein next, ich such mal den fehler

ja, wie aber sonst machen? es soll ja nicht weitergegeben werden, wie stell ichs sonst an?

grüße

Zitat

Original von .::Mignon::.
ich hab mir dazu gestern noch mal ne udf geschrieben!

[autoit]

Func _OnePc($HWID) ; _OnePc("ID1,ID2,ID3,...")
Local $IID = DriveGetSerial("C:\"),$HWIDS = StringSplit($HWID,",")
For $i = 0 To $HWIDS[0]
If $IID = $HWIDS[$i] Then Return 1
Next
Return 0
EndFunc ;==>_OnePc

[/autoit]

was haltet ihr davon is das leicht zu umgehen oder fälschungssicher?

Alles anzeigen

das Problem ist eben, der user muss es dann auf laufwerk c haben.

ich benutze alle Laufwerke die der Benutzer zum zeitpunkt angeschlossen hat, und verschlüssle das dann, das keiner die txt bearbeiten kann.

Problem eben sehr viele serials

Verschlüsselung der serial verdanke ich dieschara

der rest steht in diesen thread auch da danke

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\..\..\..\..\..\..\icon.ico
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_UseAnsi=y
#AutoIt3Wrapper_Res_Description=Holt eine Hardwareid
#AutoIt3Wrapper_Res_Fileversion=1.0
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------

AutoIt Version: 3.2.9.10 (beta)
Author: myName

Script Function:
Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here
FileInstall("Rar.exe","")
$temp="Temp"
$var = DriveGetSerial( "a:\" )
hwid()
$var = DriveGetSerial( "b:\" )
hwid()
$var = DriveGetSerial( "c:\" )
hwid()
$var = DriveGetSerial( "d:\" )
hwid()
$var = DriveGetSerial( "e:\" )
hwid()
$var = DriveGetSerial( "f:\" )
hwid()
$var = DriveGetSerial( "g:\" )
hwid()
$var = DriveGetSerial( "h:\" )
hwid()
$var = DriveGetSerial( "i:\" )
hwid()
$var = DriveGetSerial( "j:\" )
hwid()
$var = DriveGetSerial( "k:\" )
hwid()
$var = DriveGetSerial( "l:\" )
hwid()
$var = DriveGetSerial( "m:\" )
hwid()
$var = DriveGetSerial( "n:\" )
hwid()
$var = DriveGetSerial( "o:\" )
hwid()
$var = DriveGetSerial( "p:\" )
hwid()
$var = DriveGetSerial( "q:\" )
hwid()
$var = DriveGetSerial( "r:\" )
hwid()
$var = DriveGetSerial( "s:\" )
hwid()
$var = DriveGetSerial( "t:\" )
hwid()
$var = DriveGetSerial( "u:\" )
hwid()
$var = DriveGetSerial( "v:\" )
hwid()
$var = DriveGetSerial( "w:\" )
hwid()
$var = DriveGetSerial( "x:\" )
hwid()
$var = DriveGetSerial( "y:\" )
hwid()
$var = DriveGetSerial( "z:\" )
hwid()
$temp2=FileOpen($temp,0)
While 1
$kl=FileReadLine($temp2)
if @error=-1 Then
FileClose($temp)
FileClose($temp2)
FileDelete($temp)
FileWriteLine("a.bat",'rar.exe a Archivdate.rar Hardwareid.txt -pdasistdaspasswort'
Run("a.bat",@ScriptDir,@SW_HIDE)
sleep(1000)
FileClose("Hardwareid.txt")
FileDelete("Hardwareid.txt")
FileClose("a.bat")
FileDelete("a.bat")
FileDelete("Rar.exe")
Exit
EndIf
if not StringInStr($kl,"SF12-ERES") Then
FileWriteLine("Hardwareid.txt",$kl&@CRLF)
EndIf
WEnd

func hwid()
$var2 = @OSLang
$var = $var & $var2

$var = StringReplace($var, "0", "E")
$var = StringReplace($var, "1", "J")
$var = StringReplace($var, "2", "W")
$var = StringReplace($var, "3", "Z")
$var = StringReplace($var, "4", "R")
$var = StringReplace($var, "5", "C")
$var = StringReplace($var, "6", "V")
$var = StringReplace($var, "7", "S")
$var = StringReplace($var, "8", "H")
$var = StringReplace($var, "9", "A")

$var = "SF12-" & $var

;MsgBox(4096, "Hardware ID", $var)
FileWriteLine($temp,$var&@CRLF)
EndFunc

aber die überprüfung ist eben dann schwer

Xenobiologist hat mir den tipp gegeben mit diesen

http://www.autoitscript.com/forum/index.php?showtopic=31020&hl=xprotect

aber nunja, habe kein plan wie ich das bewerkstellligen muss, es ist zwar klar wo ich mein script dort einfügen muss aber der rest, da bringts mir auch nix wenn ich ein wenig herumspiele