源文件语句如何屏蔽密码？

overing

请问源文件写一条语句  需要远程登陆、FTP等 需要输入用户名和密码 如何屏蔽密码？其他人查看到该语句无法现实密码？
谢谢

hanyu

源文件编译时DBGVIEW  设为     *NONE,编译好后,把源文件密码地方清空.
或者让用户每次使用输入密码登陆.

overing

谢谢指教
如果是CL程序,可执行反编译,那如何避免生成的源文件显示密码呢?

xuguopeng

CRTCLPGM的时候
Allow RTVCLSRC . . . . . . . . .   *YES          *YES, *NO

选*NO即可

overing

谢谢！

wuguanghe2008

原来我都没听过这些，来这里真长见识啊。
谢谢

rexwu

受教！

ux400

我的AS/400自动FTP程序（CLP）思路：

1、从配置文件中取得 FTP server IP(AS/400作为FTP CLIENT)
CALL       GETIPCFG PARM(&CFGFILE 'BATCH FILE FTP' +
            'SERVER IP' &SVRIP)
2、按配置文件的用户名和口令设置自动改 FTP 脚本
CALL       FTPSACUP PARM('MYLIB/FTPSCRIPT(S_AAA)' +      
            'MYLIB/CFG_FILE(GZ_AAA)' 'BATCH FILE FTP' +
            'FTP USER' 'FTP PSWD' &CALLMODE)
3、输入/输出重定向，执行FTP：
OVRDBF     FILE(INPUT) TOFILE(MYLIB/FTPSCRIPT) MBR(S_AAA)
OVRDBF     FILE(OUTPUT) TOFILE(QTEMP/FTP) MBR(FTPOUT)
...
CONT:        FTP        RMTSYS(&SVRIP)

4、检查输出重定向文件是否发生错误用户名或口令的情况或者网络不通的情况
CALL       PGM(CHKTXTF) PARM('QTEMP/FTP(FTPOUT)' +
           &CHKB_RC '530 Login incorrect.' 'You must +
           first issue the USER subcommand.')
...
CALL       PGM(CHKTXTF) PARM('QTEMP/FTP(FTPOUT)' +
           &CHKB_RC 'Cannot connect to host')

配置文件类似WINDOWS下的 .INI 文件，如果用户口令采用明文，那么要求生产机上有权限的人才能查看、修改。最好是采用加密、变换一下，哪怕是最简单的BASE64，也能让无关人员偷看后不明所以。