我要做个系统，系统规定，只有正确的用户名和密码才能进去，但是我不会代码，能给我吗?

只要密码验证程序吗?

是的
会吗?

请看下面这一段是我的系统里的用户和密码验证代码:
per_sysn=alltrim(thisform.cont1.text1.value)      &&用户名
per_code=alltrim(thisform.cont1.text2.value)     &&密码
code_1=per_sysn
code_2=1
code_3=''

**********下面是用户名的翻译过程*****************
do while code_2<=len(code_1)
   code_3=code_3+chr(asc(subs(code_1,code_2,1))-code_2*3)
   code_2=code_2+1
enddo
code_4=code_3
code_1=per_code

******************************************
**********下面是密码的翻译过程*************
code_2=1
code_3=''
do while code_2<=len(code_1)
   code_3=code_3+chr(asc(subs(code_1,code_2,1))-code_2*2)
   code_2=code_2+1
enddo
********打开用户密码文件***********
if used("company")
   select company
else
   use .\dbf\company
endif
if !used("company")
   quit
   return
endif

*****************验证*******************
loca all for alltrim(check1)=code_4 and alltrim(check2)=code_3
if eof() or len(alltrim(per_sysn))=0 or len(alltrim(per_code))=0
   tz_count=tz_count+1
   if tz_count>=4                        &&如果用户跟密码验证超过3次之后,退出系统
      set sysmenu to defa
      thisform.release
      clear read
      canc
      clear all
      close all
      clear program
      return
   endif
   thisform.cont1.text1.setfocus
   return
endif