Encode و Decode کردن در ویبی

[Netsky]

سلام دوستان .
من میخام یه رشته متنی رو که داخل یه تکست نوشته شده رو به صورت کد شده در بیارم و بعد با یه فرمول اونو Decode کنم .
اگه لطفا چیزی در این مورد میدونید راهنمایی کنید .
خیلی فوری هستش .........................
با تشکر........................

[.:KeihanCPU:.]

جستجو Encode

[egproje]

سلام دوست عزيز
من همچين برنامه اي رو نوشتم
الگوريتمي كه استفاده كردم اينجوري بود::
1-)يك سري عدد تصادفي توليد كردم با استفاده از زمان سيستم
2-) اونارو تبديل به حروف كردم
3-)در متني كه بايد كد ميشد بعد از هر حرف 2 تا از اون حروف تصادفي رو قرار دادم و درجا ريختم توي آرايه(البته طول آرايتو بزرگ در نظر بگير)

4-) بعد كل آرايه رو ريختم تو فايل متني
5-)موقع decodeكردن طول فايل متني رو گرفتم در حلقه for گذاشتم بعد step حلقه رو 3 گذاشتم كه حروف اصلي رو بگيره نه تصادفي ها رو بعد دوباره ريختم تو آرايه و توي فايل متني و بعد توي يك textbox نشونش دادم

اگه تو هر قسمتيش مشكل داشتي بگو كدي رو كه نوشتم برات بزارم البته برنامم يكم حرفه ايي تره با كلمه عبور كد ميكنه و با همون كلمه عبو هم بازش ميكنه
موفق باشي دوست عزيز

بخشودگي اهل گنه در صف محشر.........وابسته به يك گردش چشمان حسين است

[roya_hh]

سلام دوست عزيز
من همچين برنامه اي رو نوشتم
الگوريتمي كه استفاده كردم اينجوري بود::
1-)يك سري عدد تصادفي توليد كردم با استفاده از زمان سيستم
2-) اونارو تبديل به حروف كردم
3-)در متني كه بايد كد ميشد بعد از هر حرف 2 تا از اون حروف تصادفي رو قرار دادم و درجا ريختم توي آرايه(البته طول آرايتو بزرگ در نظر بگير)

4-) بعد كل آرايه رو ريختم تو فايل متني
5-)موقع decodeكردن طول فايل متني رو گرفتم در حلقه for گذاشتم بعد step حلقه رو 3 گذاشتم كه حروف اصلي رو بگيره نه تصادفي ها رو بعد دوباره ريختم تو آرايه و توي فايل متني و بعد توي يك textbox نشونش دادم

اگه تو هر قسمتيش مشكل داشتي بگو كدي رو كه نوشتم برات بزارم البته برنامم يكم حرفه ايي تره با كلمه عبور كد ميكنه و با همون كلمه عبو هم بازش ميكنه
موفق باشي دوست عزيز

بخشودگي اهل گنه در صف محشر.........وابسته به يك گردش چشمان حسين است

سلام . ببخشید میشه لطف کنید و برنامه ای را هم که نوشیتد اینجا بذارید؟ منم یک همچین کاری باید انجام بدم اما بلد نیستم.

[egproje]

سلام . ببخشید میشه لطف کنید و برنامه ای را هم که نوشیتد اینجا بذارید؟ منم یک همچین کاری باید انجام بدم اما بلد نیستم.




سلام دوست عزيز اين برنامه رو چون ما براي فروش نوشتيم(پروژه دانشجويي) نميتونم بذارم تو سايت در ضمن مدير انجمن هم نميذاره./
اين آدرس ماست سوالي دارين ميتونم كمكتون كنم و روش رو براتو توضيح كامل بدم
elecomp.gorgan@gmail.com

[scarce]

دوست عزیز می تونی از کد زیر استفاده کنی



Public Function Encode(strdata As String) As String
On Error Resume Next

Dim i

For i = 1 To Len(strdata)
Encode = Encode & Chr(296 - Asc(Mid(strdata, i, 1)))
Next i
End Function
'###########
' Coded By ScarCe
'############
'
Public Function Decode(strdata As String)
On Error Resume Next
Dim i
For i = 1 To Len(strdata)
Decode = Decode & Chr(296 - Asc(Mid(strdata, i, 1)))
Next i
End Function


Private Sub Command1_Click()
Text2 = Encode(Text1)
end sub

[ehsan-avr]

دوست عزیز اگه شما فقط می خواهید رشته ی مورد نظر رو کد گذاری کنید می توانید
از توابع Api استفاده کنید.
این تابع رشته ی مورد نظر رو رمز گذاری میکنه:

Private Declare Function EncryptFileA Lib "advapi32.dll" (ByVal lpFileName As String) As Boolean

این تابع هم رشته ی رمز گذاری شده رو به حالت اول بر میگردونه:

Private Declare Function DecryptFileA Lib "advapi32.dll" (ByVal lpFileName As String, ByVal dwReserved As Long) As Boolean

در ضمن کدی که دوست عزیزegproje نوشتن یه مشکل کوچولو داره و اون هم اینه که حجم فایل خروجی یه خورده زیاد میشه

[egproje]

دوست عزيزم ehsan-avr ممنونم كه ايشون رو راهنمايي كردي ./
درسته حجم فايل خروجي زياد ميشه ولي بايد دقت كنيم كه ما داريم يك متن رو كد ميكنيم
و نبايد هر كي از راه رسيد بتونه متن اصلي رو تشخيص بده و كدگشايي كنه دوست خوب من ./ موفق باشي


بخشودگي اهل گنه در صف محشر.........وابسته به يك گردش چشمان حسين است

[karbon2010]

سلام
scarce عزیز
میشه بیشتر درباره این کد توضیح بدید
ممنون

[parselearn]

http://www.barnamenevis.org/forum/showthread.php?t=197862