🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.javascript
Article #70

Password script

#70
From: Mariusz G.
Date: Thu, 27 Dec 2001 11:18
73 lines
3126 bytes
Witam

Mam kmolejny problem. Na stronce umiscilem script ktory dziala na zasadzie
ochrony danych. Wpisujesz Login i pass i laczy sie ze strona pw + login +
pass +.htm
Wszystko spoko dziala. O to ten script:

<script LANGUAGE="JavaScript">
<!--start stealth
//-----------------------------------------
//Login Script writed by SQUAD team in 1999
//-----------------------------------------

 function Getstats() {
  window.status=('Attempting to Login to user area.')

  var AccId;
  var iName;
  AccId = document.iAccInput.iAccID.value
  iName = document.iAccInput.iName.value


// end hiding -->
 <!--- Hide from old browsers

     if (AccId == "" || iName == "")
        {
         alert('\nERROR\n\n\nYou must enter ALL Details,\nto enter secret
scene zone.\n');
         window.status=('Missing data or Invalid.  Check spelling and Ensure
Names are in Correct Case.')
        }
    else
        {

         var location=("pw" + iName + AccId + ".htm");
         this.location.href = location;
window.status=('   Verifying:  ' + iName + '-' + AccId + '  Please
wait........');
        }
        }

     function Verifyacc2() {
       window.status=('Please enter your Username and Account ID...');
        var oName = prompt("Enter your User Name: \n(Case Sensitive)\n", "")
         window.status=('   UserName = ' + oName);
        var oAccID = prompt("Enter your account ID: \n(Case Sensitive)\n",
"")
          window.status=('   Account ID = ' + oAccID);
           if (oAccID == "" || oName == "" || oAccID == "null" || oName ==
"null")
                {
                 alert('\nERROR\n\nYou must enter ALL Details,\nto logon.');
                 window.status=('Missing data or Invalid.  Check spelling
and Ensure Names are in Correct Case.');
                }
           else {
                 window.status=('   Verifying:  ' + oName + '-' + oAccID + '
Please wait........');
                 var location=("pw" + oName + oAccID + ".htm");
                 this.location.href = location.htm;
                }
                           }
//-->
</script>

Tylko mam pytanie. Co w nim zmienic, aby bylo tak:
(przedstawie to w Delphi)
If iName <> 'UserID' Then WebBrowser1.Navigate ('adenied.htm');
Moze ktos mi pomoc?
plz

THX
Technical Details
Message-ID: <a0f06h$deg$1@news.tpi.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!warszawa.rmf.pl!newsfeed.tpinternet.pl!news.tpi.pl!not-for-mail

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!warszawa.rmf.pl!newsfeed.tpinternet.pl!news.tpi.pl!not-for-mail
From: "Mariusz G." <cyclops@go2.pl>
Newsgroups: pl.comp.lang.javascript
Subject: Password script
Date: Thu, 27 Dec 2001 12:18:46 +0100
Organization: tp.internet - http://www.tpi.pl/
Lines: 76
Message-ID: <a0f06h$deg$1@news.tpi.pl>
NNTP-Posting-Host: users1.rtk.net.pl
X-Trace: news.tpi.pl 1009452050 13776 217.97.232.33 (27 Dec 2001 11:20:50 GMT)
X-Complaints-To: usenet@tpi.pl
NNTP-Posting-Date: Thu, 27 Dec 2001 11:20:50 +0000 (UTC)
X-Newsreader: Microsoft Outlook Express 6.00.2600.0000
X-MSMail-Priority: Normal
X-Priority: 3
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 7bit