Login ASP men kun fra ét bestemt computer ID...

<%
if not (request.ServerVariabels() = din specificerede ip) then response.redirect(default.asp)
end if
%>
Læg dette stykke kode ind i starten af dit script...
Så virker det, men jeg er ikke helt sikker på det dersens serverVariabels er skerevet rigtigt, det vender jeg lige tilbage med...

du kan krypter med komponenten AspCrypt

http://www.serverobjects.com/products.htm#free

jeg ved ikke med computer-ID

ellebaek>> Ja den har jeg selv været forbi, men det er ikke én bestemt computer, men kan være mange forskellige computere i samme virksomhed!

hirays>> Takker men vores udbyder understøtter ikke AspCrypt :(

Jeg har en løsning, men kan ikke få den med til dig før i morgen,...

Løsningen er at definere mac-addressen,..

Jeg har et script der kan gøre dette... det ligger bare hjemme!, finder det til i morgen!

ellebaek>> Det lyder båre dæjligt - venter på dig...

Jeps - det var også min ide.

Ned og aflæse MAC værdien brændt ind på dit netkort, men hvordan aflæser vi en ARP tabel i LAN et udefra det store iInternet.

Jeg er med på en lytter.

Henrik

jeg er også med på en lytter.. vidste ikke at man kunne hente mac-adressen

Jeg er ret sikker på det ikke er muligt at hente mac-adressen - hvis det var, så var der jo pludselig ikke flere problemer med unik genkendelse af brugere osv. Men jeg lytter da interesseret med.

<%     

        strIP = Request.ServerVariables(\"REMOTE_ADDR\")
        strMac = GetMACAddress(strIP)
        Browser = Request.ServerVariables(\"HTTP_USER_AGENT\")
       
        Function GetMACAddress(strIP)
        Set net = Server.CreateObject(\"wscript.network\")
        Set sh = Server.CreateObject(\"wscript.shell\")
        sh.run \"%comspec% /c nbtstat -A \" & strIP & \" > c:\\windows\\skrivebord\\getmac\\\" & strIP &         \".txt\",0,true
        Set sh = nothing
        Set fso = createobject(\"scripting.filesystemobject\")
        Set ts = fso.opentextfile(\"c:\\windows\\skrivebord\\getmac\\\" & strIP & \".txt\")
        macaddress = null
        Do While Not ts.AtEndOfStream
        data = ucase(trim(ts.readline))
        If instr(data,\"MAC ADDRESS\") Then
        macaddress = trim(split(data,\"=\")(1))
        Exit Do
        End If
        loop
        ts.close
        Set ts = nothing
        fso.deletefile \"c:\\\" & strIP & \".txt\" \'Used to delete the         temp file
        Set fso = nothing
        GetMACAddress = macaddress
        End Function
       
        if not macaddress = Din deffinerede
        response.redirect(default.asp)
        end if
       
   
    %>
Den henter computerens macaddresse, så skal du bare skrive hvordan siden skal se ud efter end if til sidst, så virker det (går jeg ud fra)...
-Ellebæk
www.fotx.net/ellebaek

det må jeg nok sige.. det er sku en lækker script!

det er lige før jeg OGSÅ har lyst til at give dig point.. ;)

-- xs

Det virker vist kun fra din localhost og
c:\\windows\\skrivebord\\getmac\\
skal vist bare være
C:\\

Det ville også forurolige mig, hvis jeg kunne gå ind på en fremmed asp side og denne havde adgang til at oprette en fil på min harddisk og asp siden bagefter kunne tappe oplysninger ud af mit system - UHA.

Henrik

Der er forhåbentlig ingen, der kan bruge fra en side udefra nettet - vel ???

jeg er åben for forslaget med at give mig points :-)

hnteknik -> den linie du referere til er linien hvor den placere filen på serveren...
det har ikke noget med din computer at gøre...
Men scriptet kan hente oplysninger på din computer...

om igen...
det er linien hvor filen er placeret på serveren, altså biblioteket...

Scriptet har på ingen måde mulighed for at komme ind på din HDD...

Denne her fejler, da den forsøger at køre nbtstat på min maskine og dumpe det på min maskine.

sh.run \"%comspec% /c nbtstat -A \" & strIP & \" > c:\\windows\\skrivebord\\getmac\\\" & strIP .....

Denne her forsøger at åbne en fil på serveren:

Set ts = fso.opentextfile(\"c:\\windows....

Det lykkedes kun ved localhost testen, at serveren er min egen maskine. kan du selv få det til at virke ved at placere scriptet ude på en fremmed server og køre det på din egen maskine ??
Det ville heller ikke være så godt, hvis du kunne dumpe filer på ISPen windowsområde.

Det er et fint script, men ded går ette granberg

Henrik

jeg kan faktisk også kun få den til at virke på localhost..

virker ikke ude på webhotel

jeg ved ikke om det virker på webhotel, men jeg kan sagtens få det til at virke, hvis jeg ligger det på min PWS....

Det der sker (endnu engang) er at scriptet starter med at finde computerens IP...
derefter starter den en funktion der hedder getMACAddresse ud fra strengen(IP)...

Function GetMACAddress(strIP)
        Set net = Server.CreateObject(\"wscript.network\")
        Set sh = Server.CreateObject(\"wscript.shell\")
        sh.run \"%comspec% /c nbtstat -A \" & strIP & \" > c:\\windows\\skrivebord\\getmac\\\" & strIP &        \".txt\",0,true
\'her kører scriptet en nbtstat på IP\'en... resultaterne af denne nbtstat findes i filen c:\\windows\\skrivebord\\getmac0, hvis den ligger på din localhost skal det ændres til: c:\\inetpub\\wwwroot\\ så ligger den filerne der istedet for, ved det er en tekstfil med navnet, der er ipaddressen...

        Set sh = nothing
        Set fso = createobject(\"scripting.filesystemobject\")
        Set ts = fso.opentextfile(\"c:\\windows\\skrivebord\\getmac\\\" & strIP & \".txt\")
\'tekstfilen åbnes, så der er mulighed for at finde Macaddressen...

        macaddress = null
        Do While Not ts.AtEndOfStream
        data = ucase(trim(ts.readline))
        If instr(data,\"MAC ADDRESS\") Then
        macaddress = trim(split(data,\"=\")(1))
        Exit Do
        End If
        loop
        ts.close
        Set ts = nothing
        fso.deletefile \"c:\\windows\\skrivebord\\getmac\" & strIP & \".txt\" \'Used to delete the temp file
\'den ovenstående linie bruges til at slette filen igen... Prøv at remme denne linie ud, så kan du se det er på serveren filerne bliver lagt...

        Set fso = nothing
        GetMACAddress = macaddress
        End Function
       
        if not macaddress = Din deffinerede
        response.redirect(default.asp)
        end if
       
det sidste er noget jeg har bygget på så der er en mulighed for at udelukke alle andre computere end den foruddefinerede...

-Jeg har testet dette script fra flere forskellige computere, men altid på en pws...
Jeg har ikke haft nogen problemer med at få det til at virke...
Men en vigtig ting hvis det skal virke på en webserver er at den du har skrive adgang til mappen på serveren, og samtidig ved hvor på servren din mappe er placeret...

   

ellebaek> Det ser sgu lidt for godt ud :)

Jeg kan også sagtens få den til at danne txt filen på et webhotel, men i filen står der kun følgende:
 
Local Area Connection:
Node IpAddress: [195.41.82.152] Scope Id: []
    Host not found.

...vil det sige, at det ikke kan lade sig gøre \"in real life\" ??? :(

Hvis der er lukket for NETBIOS over TCP/IP virker NBTSTAT ikke... !!!

Alle bør have lukket for NETBIOS da det giver ringe sikkerhed... bl.a. kan det ses her hvordan man kan identificere via MAC-adresser... Det er umulig at blokere for og stadig bruge NETBIOS - i modsætning til f.eks. cookies.

NETBIOS bruger port 137, 138 og 139.

Bruger man en router til sit internet kan man derfor lukke for disse porte og stadig bruge NETBIOS på sit interne netværk.

Hm synes ikke rigtig der var noget der virkede... øv :(