Code كردن فايلها

[اوبالیت به بو]

سلام
اين برنامه رو دانلود كنيد.
من مي خوام بعد از كليد رويه دكمه Code پوشه Picture كه در برنامه قرار دادم به صورت كد شده در بياد يعني كسي نتونه بازش كنه يا حداقل اگه بازش مي كنه فايلها به صورت ناشناس باشن.
منتظر هستم.

[mpmsoft]

با این دو فانکشنی که خودم نوشتم می تونی فایل رو کد کنی


Public Function SCode1(ByVal Source As String, Code1 As String) As String
On Error Resume Next
Dim I1, I2, t As Long: I1 = 1: I2 = 1
Dim T2 As String: T2 = ""
For I1 = 1 To Len(Source)
t = Asc(Mid(Source, I1, 1)) + Asc(Mid(Code1, I2, 1))
If t > 255 Then t = t - 255
T2 = T2 & Chr$(t)
If I2 = Len(Code1) Then I2 = 1 Else I2 = I2 + 1
Next
SCode1 = T2
End Function
Public Function SDecode1(ByVal Source As String, Code1 As String) As String
On Error Resume Next
Dim I1, I2, t As Long: I1 = 1: I2 = 1
Dim T2 As String: T2 = ""
For I1 = 1 To Len(Source)
t = Asc(Mid(Source, I1, 1)) - Asc(Mid(Code1, I2, 1))
If t < 0 Then t = t + 255
T2 = T2 & Chr$(t)
If I2 = Len(Code1) Then I2 = 1 Else I2 = I2 + 1
Next
SDecode1 = T2
End Function

[اوبالیت به بو]

حالا اگر من به اين صورت آدرس دهي بدم مشكلي پيش نمياد:

Image1.Picture = LoadPicture (App.Path & "\Picture\Image.JPG"

[mpmsoft]

دوست عزیز این کد جهت کد کردن String هستش و برای نمایش فایل باید ابتدا اون رو از حالت کد شده خارج کنید و نمایش بدید

[مهران رسا]

از کد این برنامه ها می تونی استفاده کنی . فرقی نداره . من واسه کد کردن Database نوشتم شما به سلیقه خودت تغییرش بده :

http://barnamenevis.org/forum/showpost.php?p=545275&postcount=1095

[اوبالیت به بو]

ولي من مي خوام Extension فايلها براي ويندوز ناشناس بشه.

[مهران رسا]

ولي من مي خوام Extension فايلها براي ويندوز ناشناس بشه.

فکر می کنم Extension شون واسه کاربر ناشناس بشه کافیه ... :گیج: