مرجع سورس های ویژوال بیسیک ( درخواست سورس )

[MoBiN.R]

سلام درمورد سوال دوم چطوری متن خودم به رمز در بیارم وذخیره کنم؟
درمورد سوال سوم یه فایل روی کامپیوتر هسته می خوام براش یه رمز تعیین کنم که به وارد کردن اون پرونده باز بشه؟
سوال چهارم!چطور دوتا عکس باهم تو ویژوال بیسیک مقایسه کنم که مثل هم هستن یا نه؟

سوال اول : شما باید با الگوریتم کدگذاری متن موردنظرتون رو کد کنید .. من برای مثال یکی از الگوریتم های کدگذاری و دیکد کردن رو براتون نوشتم :

Public Function CodeStr(TextStr As String) As String
On Error Resume Next
Dim InputStr As String, OutputStr As String
For i = 1 To Len(TextStr) Step 1
OutputStr = OutputStr & Chr(Asc(Mid(TextStr, i, 1)) + 17)
Next i
CodeStr = OutputStr
End Function
Public Function DeCodeStr(TextStr As String) As String
On Error Resume Next
Dim InputStr As String, OutputStr As String
For i = 1 To Len(TextStr) Step 1
OutputStr = OutputStr & Chr(Asc(Mid(TextStr, i, 1)) - 17)
Next i
DeCodeStr = OutputStr
End Function

در مورد سوال دوم من در پست قبلی گفتم که امکان رمز گذاری مستقیم فایل در ویژوال بیسیک نیست . مگر اینکه اون فایل رو هم کد کنید ..

سوال سوم : یه نمونه سورس براتون در مورد مقایسه 2 عکس براتون آپلود کردم :