بهم ریختن سورس برنامه

[Apache66]

سلام

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


منظورم از دستکاری محافظت شود اینه که اینقدر بهم ریخته و نامنظم باشه که طرف دیکه بیخیال تغییر توی کدها شود

[مهران رسا]

شاید اون طور که شما مد نظرتون هست نشه این کار رو کرد ولی مثلاً میشه کاری کرد که کد برنامه برای برنامه نویسان یک کمی سخت تر بشه ...

برای مثال می تونید فاصله بین خطوط رو حذف کنید و از : استفاده کنید ...

مثلاً اینطوری :




Private Sub Command1_Click(): End: End Sub




راه حل دیگه اینکه از Dll استفاده کنید تا کسی متوجه دستورات اصلی و کلیدی برنامتون نشه ...


موفق باشید .

[SeyedMoosavi]

میشه راه Dll کردن کد رو به من یاد بدین؟
یه توضیح کلی هم اگر بدین ممنون میشم

[Apache66]

میشه راه Dll کردن کد رو به من یاد بدین؟
یه توضیح کلی هم اگر بدین ممنون میشم


منهم همین طور اگه لطف کنید ممنون میشم

[mpmsoft]

دوست عزیز من پیشنهاد می کنم کل برنامتو بزن رو فایل زیپ بعد اون فایل رو Encrypt کن

باینری فایلتو بده تو Source و رمزی که می خوای باهاش کد بشه بده تو Code1
و برای Decode کردنش هم به همین صورت مقادیرو پاس بده




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