PROCEDURE chrsed PARAMETER AAA LOCAL C , I , J C = '' J = 1 FOR I = 1 TO LEN(AAA) C = C + CHR(BITXOR(ASC(SUBSTR(AAA,I,1)),J ** 2)) J = J + 1 J = IIF(J > 8,1,J) ENDFOR RETURN C ENDPROC *------ PROCEDURE getdiskno PARAMETER _SROOT DECLARE INTEGER GetVolumeInformationA IN kernel32.dll STRING , STRING , INTEGER , ; INTEGER @ , INTEGER , INTEGER , STRING , INTEGER LSERIALNUM = 0 STORE REPLICATE(CHR(0),255) TO STRLABEL , STRTYPE = GETVOLUMEINFORMATIONA(_SROOT,@STRLABEL,255,@LSERIALNUM,0,0,@STRTYPE,255) LSERIALNUM = IIF(LSERIALNUM < 0,4294967295 + LSERIALNUM + 1,LSERIALNUM) + 1024 CLEAR DLLS RETURN LSERIALNUM ENDPROC

*****上面的这段程序不太明白是什么意思，有没有高手能给小弟讲一讲，跪谢了。