VB Script for HTML

[claymen]

Вот решил открыть свою страницу в сети, но запаролировать ее только для некоторых пользователей. Как и какой скрипт мне надо написать для ентого?
На странице я вставил поля ввода LOGIN и PASSWORD и кнопку ENTER.
Кто знает как мне обратится к файлу USERS.LST на некотором FTP, в котором текст примерного содержания:
************************************************************
Administrator 12345
Masha 555666
Igor 666555
************************************************************
Т.е. поля LOGIN и PASSWORD должны совподать инфой из етого файла.
В противном случае выкидывать на страницу типа ACCESS DENIED.

[keks-n]

claymen
Я наверное тебя не понял: ты что собираешься делать защиту, выполняющуюся не на сервере, а у клиента?

[Павлуша]

keks-n
нее.
он хочет, чтобы защита выполянлась вообще на стороне.
ему надо после нажатия на кнопку ЕНТЕР лезть на некоторый ФТП (причем лезет скрипт, насколько я понял) и проверять сначала наличие данного файла, а потом сортировать содержимое для каждого пользователя, если совпадает, то возвращать значение ТРУ и пропускать его на страницу.
только вот такой способ защиты изврат какой-то...

[Antonariy]

А что помешает пользователю просмотреть код страницы, потом залезть на этот ftp и вытащить users.list?

[claymen]

Antonariy
Пока я об ентом еще не думал...
...надо подумать.

[vvs_adm]

А что помешает пользователю просмотреть код страницы, потом залезть на этот ftp и вытащить users.list?

Его совесть замучает

[Павлуша]

vvs_adm
я думаю до такого додумается только администратор

[ALX_2002]

Ну тут по типу без сервака с поддержкой серверных скриптов не обойтись.

ASP / PHP / CGI или чё нить такое должно на нём выполняться. Тогда код страницы никто поглядеть не сможет.

А лучше всего естессено настроить права на уровне сервера.

IIS / APPACHE



Как мне кажется

[zaf]

Я вот как делаю!

Написал PHP скрипт в котором есть регистрация
Прога открывает страницу:
http://gigaru.ru/-warez-/lagin.php?username=ЛОГИН&password=ПАРОЛЬ&userlogin=Log%20in
Если логин пароль верный тогда вывожу ON

Попробуйте зайти сюда
[url]http://gigaru.ru/-warez-/lagin.php?username=ЛОГИН&password=ПАРОЛЬ&userlogin=Log%20in[/url]
Логин z1z
Пароль z1z

Вот код моей первой формы

Код: Выделить всё

Dim temp

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = 0 Then Cancel = 1
End
End Sub

Private Sub Command1_Click()
txtUrl.Text = "http://gigaru.ru/-warez-/lagin.php?username=" & Text1 & "&password=" & Text2 & "&userlogin=Log%20in"
Timer1.Enabled = True
End Sub

Private Sub Command4_Click()
txtUrl.Text = "http://gigaru.ru/-warez-/ragister.php?username=" & Text3 & "&password=" & Text4 & "&passretype=" & Text4 & "&email=" & Text5 & "&emailretype=" & Text5 & "&icq=" & Text7 & "&location=" & Text8 & "@username=" & Text3 & "&password=" & Text4 & "&passretype=" & Text4 & "&email=" & Text5 & "&emailretype=" & Text5 & "&icq=" & Text7 & "&location=" & Text8 & "&adduser=Submit Registration"
Timer1.Enabled = True
End Sub

Private Sub Command5_Click()
txtUrl.Text = "http://gigaru.ru/-warez-/fargetpass.php?email=" & Text6 & "&sendpass=Send"
Timer1.Enabled = True
End Sub

Private Sub Command6_Click()
Frame1.Visible = False
Frame2.Visible = True
Frame3.Visible = False
End Sub





Private Sub Command7_Click(Index As Integer)
Frame1.Visible = False
Frame2.Visible = False
Frame3.Visible = True
End Sub


Private Sub Command9_Click()
Picture1.Print "123"
End Sub

Private Sub Command8_Click(Index As Integer)
Frame1.Visible = True
Frame2.Visible = False
Frame3.Visible = False
End Sub

Private Sub Form_Load()
Frame2.Visible = True
End Sub

Private Sub Timer1_Timer()
txtRes.Text = ""
Inet1.Protocol = icHTTP
Inet1.Execute CStr(txtUrl), "get /"
While Inet1.StillExecuting
DoEvents
Wend
temp = Inet1.GetChunk(1000)
While temp <> ""
txtRes.Text = txtRes.Text + temp

temp = Inet1.GetChunk(1000)
Wend

' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
If txtRes = "ERROR~ON" Then
MsgBox "Ошибка проверьте правильнось введенных данных!"
Else
    If txtRes = "ON" Then
    MsgBox "Все ОК!!!"
    Form1.Visible = False
    Form2.Show
    Else
        If txtRes = "OK~ON" Then
        MsgBox "Регистрация удачно пройдена!"
        Else
         If txtRes = "MAIL" Then
         MsgBox "Письмо отправлено на указанный при регистрации E-mail!"
           Else
            MsgBox txtRes
         End If
     End If
    End If
End If
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Timer1.Enabled = False
End Sub