急求加密解密文件源代码~vb写的，加密器和解密器分开~

具体的要求这样的：加密器和解密器分开的，也就是说是两个exe文件~
加密器支持选中多个文件分别进行加密，但是解密器只能一次解密单个的文件（- -！）
加密器生成的加密文件就保存在被加密文件的文件夹下，但是解密出来的文件要指定放到桌面上去（也就是说不能跟加过密的文件在一起，- -！）
看上面的要求就知道俺导师多变态了 啊……………………
加密的算法就是简单的凯撒加密法，其他的算法也可以，高手自行决定~
高手们！！！拜托你们啦~
===========
最好直接给我源文件，顺便生成两个exe直接运行就好了，急死我了……
我的邮箱是：fanglin001@yahoo.com.cn
===========
我先放上100分，要是有好的我再加100分。
已经放了200分了
请大家看清楚要求啊，各位给的都不符合要求啊

＋
＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
CommonDialog1.ShowOpen
If Len(CommonDialog1.FileName) > 0 Then List1.AddItem CommonDialog1.FileName
End Sub

Private Sub Command2_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
Open List1.List(i) For Binary As 1
Open List1.List(i) & ".加密" For Binary As 2
Dim t1 As String * 1, t2 As Integer
Do While EOF(1) = False
Get 1, , t1
t2 = IIf(Asc(t1) + 55 > 128, Asc(t1) + 55 - 128, Asc(t1) + 55)
Put 2, , t2
Loop
Close
Next
MsgBox "加密完毕"
End Sub
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
－
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
CommonDialog1.ShowOpen
If Len(CommonDialog1.FileName) > 0 Then
Open CommonDialog1.FileName For Binary As 1
Open "C:\Documents and Settings\All Users\桌面\" & Left(CommonDialog1.FileTitle, Len(CommonDialog1.FileTitle) - 3) For Binary As 2