string von internet seite auslesen?

09/07/2010 21:03 Asuramaru#1
hallöle :D
wieder mal eine frage^^

kann man irgendwie einen bestimmte string auf einer internetseite suchen?

möchte in ein script ein schutz einfügen das nur diejenigen auf einen bestimmten teil drauf zugreifenkönnen bei denen der Computername auf der seite steht :D

also

$string = ....String suchen.....
If $string = @computername then
...
else
...



oder gibt es einen besseren schutz? :D
(bei einem normalen passwort könnte man es ganz leicht verbreiten)

hätte auch an Drivegetserial gedacht aber nicht jeder hat C:\ oder D:\ ^^
09/07/2010 21:50 mipez#2
Machs doch über n FTP-Server... einfach die gewünschten Namen in ne .txt, auf den FTP laden.
Das Prog lädt die dann runter, liest die Namen und löscht die .txt sofort.
09/07/2010 22:16 kknb#3
machs halt per mac adresse oder cpu id oder hdd serial und und und, gibt ja zig hardware id´s die du nutzen könntest.

für mach gibbet hier zum beispiel nen kleines script
[Only registered and activated users can see links. Click Here To Register...]

wenn du jemanden dein tool geben möchtest dann lass dir vorher die jeweilige id geben und speicher die als variable in dein script. beim starten des scriptes liest du die id einfach von dem rechner aus und vergleichst die mit der zuvor gespeicherten. wenn die übereinstimmen dann wurde das script auf dem richtigen rechner gestartet, wenn nicht
format c:/q !
09/08/2010 02:30 MrSm!th#4
Das ließe sich mit nem Zusammenspiel aus HDD Serial Sicherung, Datenbank und Php ganz gut realisieren, die Frage ist nur, ob das bei Autoit so viel Sinn macht, aufgrund der Dekompilierfreundlichkeit.
09/08/2010 15:53 Asuramaru#5
joa jetzt hab ich ein kleines problem :D

Script1:
Code:
#include <IE.au3>

$lol = DriveGetSerial(@HomeDrive)
$lol2 = _IECREATE("*****",0,0)
$lol3 =StringInStr($lol2, $lol)
msgbox (0,"",$lol2)
_IEQuit($lol2)
es kommt die antwort 0
Failure: Returns 0 if substring not found.

Script2:
Code:
$lol = DriveGetSerial(@HomeDrive)
$lol4 =StringInStr(ShellExecute("*****"), $lol)
msgbox (0,"",$lol4)
es kommt wieder als antwort 0


die seite hat die richtige Serien nummer... was mach ich also falsch? :o

oder sollte man andere befehle nutzen? ich hab nur den hier gefunden... :o
09/08/2010 17:46 kknb#6
Code:
#include <INet.au3>
$serial=DriveGetSerial(@HomeDrive)
$source=_INetGetSource("http://www.deine internetseite.de")
if StringInStr($source,$serial) Then
	MsgBox(0,"","string gefunden!")
Else
	MsgBox(16,"","string nicht gefunden!")
EndIf
bitte
09/08/2010 18:29 KingZuck#7
was ist ein string?
09/08/2010 18:30 Asuramaru#8
Quote:
Originally Posted by kknb View Post
Code:
#include <INet.au3>
$serial=DriveGetSerial(@HomeDrive)
$source=_INetGetSource("http://www.deine internetseite.de")
if StringInStr($source,$serial) Then
	MsgBox(0,"","string gefunden!")
Else
	MsgBox(16,"","string nicht gefunden!")
EndIf
bitte

danke dir ;)
wieso sagt das script bei ohost.de (eben getestet) gefunden und bei square7.de (freund hat dort .php datei hochgeladen forhin) sagt er miteinmal nicht gefunden o.ö
09/08/2010 18:32 kknb#9
guck bei deinem freund einfach mal den quelltext der seite an und schau ob die id dort drin auftaucht.
09/08/2010 19:02 PenGuin :O#10
Alternativ um Includes zu sparen:

Statt _InetGetSource kann man auch
BinaryToString(InetRead($URL)) nehmen.