VFP 愛用者社區

[goto-dream]

garablefile ("TRADE-20100223-0000-001","123456789")

得到是空的

[garfield]

mstr = "TRADE-20100223-0000-001"
mpassword = "123456789"
?
? '原字串=',mstr,'密碼=',mpassword
? '加密後=',garablestr(mstr,mpassword),' 加密後再還原到原字串=',garablestr(garablestr(mstr,mpassword),mpassword)

?
mstr = "如果是針對一個字串加密是用 garablestr(), 而是不是用 garablefile()"
? '原字串=',mstr,'密碼=',mpassword
? '加密後=',garablestr(mstr,mpassword),' 加密後再還原到原字串=',garablestr(garablestr(mstr,mpassword),mpassword)

?
mstr = "如果是針對整個檔案要加密不是用 garablestr(), 而是用 garablefile()"
? '原字串=',mstr,'密碼=',mpassword
? '加密後=',garablestr(mstr,mpassword),' 加密後再還原到原字串=',garablestr(garablestr(mstr,mpassword),mpassword)

?
mstr = "用中文加密會加問題嗎?"
mpassword = "許功蓋"
? '原字串=',mstr,'密碼=',mpassword
? '加密後=',garablestr(mstr,mpassword),' 加密後再還原到原字串=',garablestr(garablestr(mstr,mpassword),mpassword)

func garablestr
lpara mstr , mpassword
* 執行一次會加密, 再將加密的檔案來執行一次會解密
local i, mret, mpos
dime apassword[ len(mpassword)*2 ]
for i=1 to len(mpassword)
apassword[ i*2-1 ] = int(asc( subs( mpassword,i,1))/16)
apassword[ i*2 ] = asc( subs( mpassword,i,1)) - apassword[ i*2-1 ]*16
next

mret = ''
for i=1 to len( mstr )
mpos = mod( i , alen( apassword ) )+1
mret = mret + bytexor( subs( mstr, i,1) , apassword[ mpos ] )
next
return mret

**************
如果是針對整個檔案要加密可以利用 filetostr() 及 strtofile()
例:
func garablefile
lpara mfile, mpassword
local mstr
mstr = garablestr( filetostr( mfile) , mpassword )
return strtofile( mstr , mfile )

**************************
func bytexor &&--可用於加密
lpara mbyte, mbit
* 例: ? bytexor('A', 15 ) &&-- show chr(190)
* ? bytexor( chr(190) , 15 ) &&-- show 'A'
* mbyte = 一個英文字
* mbit = 一個16進位的數字 0 到 15
local mbit1,mbit2
mbit1 = int( asc( mbyte )/16)
mbit2 = asc( mbyte ) - mbit1*16
*? mbit1,mbit2 , chr( mbit1*16+mbit2 )
return chr( bitxor( mbit1, mbit ) * 16 + bitxor( mbit2,mbit ) )

[goto-dream]

garfield大.不好意思.我暫先用myDLL解決這部分!!
謝謝你的幫忙

[syntech]

字串加密,不就是:


字串變數 = 字串變數+'密'

[LiuRambo]

=.=
感謝syntech大大體諒今天天氣太熱
提供超級冰庫給大家解熱

[goto-dream]

再一次 測試之後.發覺是我的問題...

garfield 正確