الگوریتم های کد گذاری

[javaweb341]

با سلام
من تعدادی روش برای کد گذاری می خواستم اگه ممکنه یه چنتایی بدید:لبخند:
با تشکر:قلب:

[darknes666]

خب میتونی مثلا هر حرف رو برابر یه چیز فرض کنی مثلا e رو 32pz هرچی تعداد حروف متناظر بیشتر باشه رمز گشاییش سخت تره.
موفق باسی.

[javaweb341]

با سلام و تشکر
خیلی ممنون دوست عزیز ولی اگر از الگوریتم های مشهور دارید قرار دهید ممنون می شم.
اگر در اون الگوریتم دست ببرم و خروجی شو تغییر بدم امنیتش بهتره،یه چنتایی خودم دارم Base65 و MD5 ولی می خوام یه چنتا از اینا با تغیرات خودم در هر یک از اینها کاری کنم که کرکره بی خیال بشه:قهقهه:
با تشکــــــــــــــــــــــ ـــــر:قلب:

[darknes666]

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

نمیشه جلوی کرک کردن رو گرفت.
شما گروه روسیه ای SKIDROW رو بررسی کنین متوجه می شین هیچ پروتکتور یا پکری نتونسته جلوی اینا رو بگیره.(این گروه همه ی بازی ها رو اکثرا تو روز اول کرک میکنه)

[darknes666]

خب حالا توصیه ی من به شما اینه که:
1)از پروتکتور استفاده کنین
2)از پکر استفاده کنین
3)محافظت رو به یه شرکت دیگه بسپارین

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

[javaweb341]

با سلام و تشکر
درست می گید توی ایران خودمونم خیلی کرکر های خوبیه ولی این گروه SKIDROW کرک کنه بهتره یا یکی مثل خودم که دو ورزه داره کار می کنه؟:قهقهه:
اگر لینک الگوریتم خوب دارید ممنون می شم:چشمک:
با تشکر

[سید حمید حق پرست]

سلام
بنظر من بهترین راه استفاده از قفل سخت افزاریه هرچند این روش هم میشه دور زد اما از خیلی از روشهای دیگه بهتر و مداومتره و دور زدنشون به این اسونیها نیست
موفق باشید
یا علی (ع)

[m.4.r.m]

بیا از این استفاده کن

[javaweb341]

با سلام دوست عزیز
من اینو دان کردم ولی اول یه ocx می خواد که نیست
105633
بعد اون ماژول چیز خاصی نیست چنتا api که به صورت توضیح درآمدن
بعد به این کد گیر میده

Dim j_DLL As New jay_Encrypt_Decrypt
اینم که فایلش نیست
ببخشید مشکل از منه یا از برنامه؟
با تشکــــــــــــــــــــــ ـــــــــــــ:قلب:ــــــــ ـــــــــــــــــــــــــ ر

[vb-sosol]

Private Sub cmdEncode_Click()
part1 = StrReverse(Left(txtOriginal, (Len(txtOriginal) \ 2) + 1))
part2 = StrReverse(Right(txtOriginal, Len(txtOriginal) - Len(part1)))
txtCode.Text = ""
For i = 1 To Len(part1)
x = Mid(part1, i, 1)
z = Format(Asc(x), "000")
txtCode.Text = txtCode.Text & StrReverse(z)
Next i

If Len(part2) = 0 Then Exit Sub
For i = 1 To Len(part2)
x = Mid(part2, i, 1)
z = Format(Asc(x), "000")
txtCode.Text = txtCode.Text & StrReverse(z)
Next i
End Sub



دوستان روال Decoding چطوری میشه؟

[javaweb341]

با سلام دوست عزیز
من تابع Decodingاینو نوشتم خیلی باحال بود یه چیزی تو مایه های بازی ریاضی:تشویق:
دوست عزیز من ابتدا اون کد شما را در یک تابع قرار دادم مانند زیر
تابع Encode :

Private Function Encode(Original As String)
Dim Code As String
part1 = StrReverse(Left(Original, (Len(Original) \ 2) + 1))
part2 = StrReverse(Right(Original, Len(Original) - Len(part1)))
For i = 1 To Len(part1)
x = Mid(part1, i, 1)
z = Format(Asc(x), "000")
Code = Code & StrReverse(z)
Next i

If Len(part2) = 0 Then Exit Function
For i = 1 To Len(part2)
x = Mid(part2, i, 1)
z = Format(Asc(x), "000")
Code = Code & StrReverse(z)
Next i
Encode = Code
End Function
برای استفاده از تابع Encode :

Private Sub Command1_Click()
Text2.Text = Encode(Text1.Text)
End Sub
حالا تابعی که من نوشتم
تابع Decode :

Private Function Decode(Original As String)
Dim Code As String
Dim Code1 As String
Dim Code2 As String
part1 = Left(Original, (Len(Original) \ 2) + 1)
part2 = Right(Original, Len(Original) - Len(part1))
For i = 1 To Len(part1) Step 3
c = Mid(part1, i, 3)
If Len(c) < 3 Then
If Len(c) = 2 Then
c2 = c2 + c + Mid(part2, 1, 1)
part2 = Mid(part2, 2, Len(part2))
ElseIf Len(c) = 1 Then
c2 = c2 + c + Mid(part2, 1, 2)
part2 = Mid(part2, 3, Len(part2))
End If
Else
c2 = c2 + c
End If
Next i
part1 = c2
For i = 1 To Len(part1) Step 3
x = StrReverse(Mid(part1, i, 3))
z = Chr(x)
Code1 = Code1 & z
Next i

If Len(part2) = 0 Then Exit Function
For i = 1 To Len(part2) Step 3
x = StrReverse(Mid(part2, i, 3))
z = Chr(x)
Code2 = Code2 & z
Next i
Code = Code2 & Code1
Decode = StrReverse(Code)
End Function
دوست عزیز اینو می شه تمیزتر نوشت:قهقهه:
نحوه ی استفاده :

Private Sub Command2_Click()
Text1.Text = Decode(Text2.Text)
End Sub
بفرما با این کدهای بالا و قرار دادن دو text و دو تا Command می توانید رشته ای را رمز و رمز گشایی نمایید

:قلب:

[javaweb341]

خوب دوسنتان بیاییم اینجا الگوریتم های کد گذاری رو قرار بدیم تا همه از اون ها استفاده کنن:چشمک:
دوستان الگوریتم رمز گزاری MD5 یک الگوریتم هش است که نمی توان آن را بعد از کد کردن به حالت اول بازگرداند
مثلا شما رمز ورود را کد می کنید و در دیتابیس ذخیره می کنید بعد رمز را از کاربر گرفته و کد می کنیم بعد با اون رمزی در در دیتابیس دارم مقایسه می کنیم اگر درست بود اجازه ی ورود می دهیم

[javaweb341]

خوب دوستان الگوریتم Base64
با این الگوریتم هم می توانید رشته ها را Encode و Decode نمایید.
آپ کردم دان نمایید

[javaweb341]

دوستان این الگوریتم رشته ی شما را با استفاده از یک کلید رمز می کند و برای رمز گشایی باید با همون کلیدی که شما مشخص کردید استفاده نمایید در غیر این صورت به رشته ی اصلی نمی رسید:چشمک:

[javaweb341]

دوستان این الگوریتم رشته ی شما را کارکتر به کارکتر به Hex تبدیل می کند و به هم می چسباند
تابع Encode :
Public Function Encode(str As String) As String
For I = 1 To Len(str)
Dim K As String
L = Mid(str, I, 1)
A = Asc(L)
coding = coding + Hex(A)
Next
End Function
خو ب برای استفاده :
مثلا رمز عبور sadegh است و ما رمز را از درون یک text دریافت می کنیم.
ابتدا sadegh را رمز کرده که می شود 736164656768 حال ورودی کاربر را هم رمز می کنیم و با 736164656768 مقایسه می کنیم اگر درست بود اجازه ی ورود می دهیم
If coding(txtPWD.Text) = "736164656768" Then '----txtPWD.text = "sadegh"
' کد های مربوط به ورود
End If

[vbhamed]

سلام
اين تاپيك رو هم ببينيد
http://barnamenevis.org/showthread.php?360885-%D8%A7%D8%B5%D9%88%D9%84-%D8%B1%D9%85%D8%B2%D9%86%DA%AF%D8%A7%D8%B1%D9%8A&highlight=%D8%B1%D9%85%D8%B2%D9%86%DA%AF%D8%A7%D8% B1%D9%8A