Coba deh source code saya ini. Pada source code ini saya melakukan pembacaan password pada text file pada direcktoryu yang sama. Kalau elunya rajin dapat memodifikasinya dengan security yang lebih kuat. Kalau sudah di modifikasi tolong kirimkan kembali, saya juga pengin tau nanti jadi seperti apa source code saya ini. -----Original Message----- From: Bayu [mailto:[EMAIL PROTECTED]] Sent: 23 Januari 2000 17:02 To: Hackerlink Subject: [ Hackerlink ] Masih bingung sama ReadLn! aku udah coba ubah sourcenya, tetep gak bisa pake function readast apa saya yg salah ya? (habis gak bakat jadi programmer) :'-( kalo pake function readast, user name-nya jadi blank & gak bisa tekan tombol apa-apa... tapi kalo di-enter, muncul asterisk... ini source code yg udah diubah (tapi gak pake fucntion readast) {SOURCE CODE START FROM HERE} {$A-,B-,D-,E-,F-,G-,I-,L-,N-,O-,P-,Q-,R-,S-,T-,V-,X-,Y-} {$M 4096,0,8192} Uses Crt, Dos; Const Usera='Admin'; Userb='Family'; Passa='1234'; Passb='4321'; Procedure Name; Begin Clrscr; TextColor(15); WriteLn(' '); WriteLn('Enter user name & password to login'); End; Var UseraInput:String; UserbInput:String; PassaInput:String; PassbInput:String; Const Success:Boolean=False; Begin Name; CheckBreak:=False; Repeat TextColor(15); Write(#13+#10+' User name : '); ............................... !!! { ReadLn(UseraInput)(UserbInput); } !!! !!! { Success:=(UseraInput=Usera) or (UserbInput=Userb); } !!! ............................... {STILL CONFUSED WITH THIS PART} If Not Success Then Begin TextColor(4); WriteLn(' ** User name unknown **'); End; Until Success; If Success Then Repeat TextColor(15); Write(#13+#10+' Password : '); .................................... !!! { ReadLn(PassaInput, PassbInput); } !!! !!! { Success:=(PassaInput=Passa) or (PassbInput=Passb); } !!! ................................... {THIS PART TOO!!!} If Not Success Then Begin TextColor(4); WriteLn(' ** Access Denied **'); End; Until Success End. {END OF SOURCE CODE} jadi : gimana caranya readln & const success bisa mbaca input dari Usera dan Userb tanpa function readast? (soalnya yg diatas itu ngawur) :P Best regards, Bayu http://www.indolinux.com - Nikmati Layanan Personal INDOLINUX :: http://techscape.net/ - Webhosting: Dual T3 on Dual Pentium III 450Mhz Only US$1.95/month -> CGI SSL 5MB Unlimited Traffic & Mail FP2000 ------------------------------------------------------------------- untuk berhenti kirim email ke [EMAIL PROTECTED] untuk melihat peraturan kirim email ke [EMAIL PROTECTED] arsip berada di http://www.mail-archive.com/[email protected]
http://www.indolinux.com - Nikmati Layanan Personal INDOLINUX :: http://techscape.net/ - Webhosting: Dual T3 on Dual Pentium III 450Mhz Only US$1.95/month -> CGI SSL 5MB Unlimited Traffic & Mail FP2000 ------------------------------------------------------------------- untuk berhenti kirim email ke [EMAIL PROTECTED] untuk melihat peraturan kirim email ke [EMAIL PROTECTED] arsip berada di http://www.mail-archive.com/[email protected]
