maksudnya ini gimana? random password generator yg dibuat di vb dg
hasil berupa string dan panjang max 6 huruf gitu?
kalau iya pake fungsi ini:
Function RndPassword() As String
Dim l As Long, sReturn As String
Const const_sValidString As String =
"abcdefghijklmnopqrstupwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
Randomize
Do While Len(sReturn) < 6
l = Int((122 - 65 + 1) * Rnd + 65)
If InStr(const_sValidString, Chr(l)) > 0 Then sReturn = sReturn + Chr(l)
Loop
Debug.Print sReturn
RndPassword = sReturn
End Function
ini contoh hasilnya:
MCsULH
RVXzxs
PUxsYc
RZOqxC
jTzfSD
FQcTOj
tapi kalau mau enkripsi password di mysqlnya bisa pake builtin
functionnya mysql sendiri seperti "password", "oldpassword", "md5",
"encrypt", "decrypt", "aes_encrypt", "aes_decrypt", "sha1" dll, pilih
sendiri petualanganmu :)
best regards
[wwn]
On 3/3/06, AJO GWM <[EMAIL PROTECTED]> wrote:
> maap?pa admin dan pembina
>
> saya butuh script password generator yg sederhana
> berdasarkan username aja passwordnya direndem berupa
> hurup maksimal 6 pake visual basic 6 terus nanti harus
> sesuai dengan login diphp(diwebnya)?jadi tiap orang
> sudah punya user dan password sesuai yg ada di
> password generator?
> cara menyamakan script login vb dan php
> phpnya:
> <? include("Connections/_validasi.php");
> session_start();
> if (validasi_login($username,$pass))
> {
>
> $se_level=getLevel($username);
> $se_user=$username;
> $se_pass=$pass;
> $IpAddress=$REMOTE_ADDR;
> $update_stat=mysql_query("UPDATE pemakai set
> status='1', ip_address='$IpAddress' WHERE
> username='$se_user'");
> if (!$update_stat) { echo "Gagal"; die; }
> session_register("se_user");
> session_register("se_pass");
> session_register("se_level");
> if ($_SESSION[se_level]=="admin")
> header("location: admin/index.php");
> elseif ($_SESSION[se_level]=="dokter")
> {
> $KodeDokter=mysql_fetch_array(mysql_query("SELECT
> KdDpg FROM pemakai WHERE
> username='$_SESSION[se_user]'"));
> $se_kodedokter=$KodeDokter[0];
> if (!$se_kodedokter) {
> $update_stat=mysql_query("UPDATE pemakai set
> status='0', ip_address='0' WHERE
> username='$se_user'");
> session_unregister("se_user");
> session_unregister("se_pass");
> session_unregister("se_level");
> header("location: login.php?pesan=Maaf, user
> tersebut belum aktif,<br>Silahkan hubungi
> administrator");
> }
> else {
> session_register("se_kodedokter");
> header("location: index.php");
> }
> }
> else
> header("location: index.php");
>
> }
> else
> {
> $psn="Login failed, Please try again";
> header("location:login.php?pesan=$psn");
> }
>
>
>
> ?>
>
>
>
> mungkin ada yg mau menolong saya memberikan script vb
> dan phpnya?urgent?yg simpelnya aja???/
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
