Funkcja porównująca dwa hasła.

Article View: pl.comp.bazy-danych.msaccess

Article #137561

Back to pl.comp.bazy-danych.msaccess Previous Next

#137561

From: minfo
Date: Mon, 13 Nov 2017 18:24

38 lines
1930 bytes

Witam,
Popełniłem funkcję sprawdzającą 2 hasła.
Wprowadzone z klawiatury z drugim w kodzie aplikacji.

Czy widzicie jakieś braki w tej funkcji?
Nie przewidziane działanie?


______________________________
Public Function CzyPoprawne(vHaslo, vComp) As Boolean

If Len(vHaslo) <> Len(vComp) Then
CzyPoprawne = False
GoTo Exit_CzyPoprawne
End If

For i = 1 To Len(vHaslo)
If Asc(Mid(vHaslo, i, 1)) <> Asc(Mid(vComp, i, 1)) Then
CzyPoprawne = False
GoTo Exit_CzyPoprawne
End If
Next i

CzyPoprawne = True

Exit_CzyPoprawne:
Exit Function

End Function



************


Proszę o komentarze.

MF

Technical Details

Message-ID: <4491d454-550b-4465-8a5d-3b498a731fb6@googlegroups.com>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!news.nask.pl!news.nask.org.pl!news.unit0.net!weretis.net!feeder6.news.weretis.net!feeder.usenetexpress.com!feeder-in1.iad1.usenetexpress.com!border1.nntp.dca1.giganews.com!border2.nntp.dca1.giganews.com!nntp.giganews.com!p44no159137qtj.0!news-out.google.com!t48ni196qtc.1!nntp.google.com!p44no159136qtj.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail

Show Full Headers

Complete Article Headers

X-Received: by 10.55.65.70 with SMTP id o67mr15456120qka.29.1510597465220;        Mon, 13 Nov 2017 10:24:25 -0800 (PST)
X-Received: by 10.31.48.78 with SMTP id w75mr1082058vkw.12.1510597465005; Mon, 13 Nov 2017 10:24:25 -0800 (PST)
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!news.nask.pl!news.nask.org.pl!news.unit0.net!weretis.net!feeder6.news.weretis.net!feeder.usenetexpress.com!feeder-in1.iad1.usenetexpress.com!border1.nntp.dca1.giganews.com!border2.nntp.dca1.giganews.com!nntp.giganews.com!p44no159137qtj.0!news-out.google.com!t48ni196qtc.1!nntp.google.com!p44no159136qtj.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: pl.comp.bazy-danych.msaccess
Date: Mon, 13 Nov 2017 10:24:24 -0800 (PST)
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=79.163.129.231; posting-account=vYGi6woAAAA6NlWlzOm2dBNZ6sPJDKfx
NNTP-Posting-Host: 79.163.129.231
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <4491d454-550b-4465-8a5d-3b498a731fb6@googlegroups.com>
Subject: Funkcja porównująca dwa hasła.
From: minfo@onet.pl
Injection-Date: Mon, 13 Nov 2017 18:24:25 +0000
Lines: 37
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit