راهنمایی در مورد کامل کردن سورس [بایگانی]

View Full Version : راهنمایی در مورد کامل کردن سورس

fery

دوشنبه 14 اسفند 1391, 10:29 صبح

سلام
خسته نباشین دوستان
من آشنایی زیادی با VB ندارم ممنون میشم این سورس رو برام کاملش کنین که بتونم کامپایلش کنم .

Filter.Text = ""
For i = 1 To Len(Dialog)
s = Mid(Dialog, i, 1)
Filter = Filter + Chr(Asc(s) Xor 25)
Next i

ممنون میشم تکمیل شده اینو برام قرار بدین
تشکر

AbbasVB

دوشنبه 14 اسفند 1391, 11:23 صبح

درود
Dialog چی هست
شما می خواهید این کد برای شما چه کار کند؟

fery

دوشنبه 14 اسفند 1391, 23:55 عصر

میخوام یه متن بدم خروجیش رو بگیرم

ممنون از لطفتون

setroyd

سه شنبه 15 اسفند 1391, 02:46 صبح

یعنی چی خروجی ! مبهمه منظورت !

m2011kh

سه شنبه 15 اسفند 1391, 13:48 عصر

لطفا سوالت رو با شرایط و جزئئیات و ... رو کامل توضیح بده الان خیلی گنگه.
موفق و سربلند باشید
MMD

fery

سه شنبه 15 اسفند 1391, 15:16 عصر

میخوام مثلا این تکست
Å›.*‹óåôîŒl رو بگیره و خروجی رو به صورت تکست بده
این یه پسورده که با این سورس دکریپت میشه .
متوجه منظورم شدین ؟

m.4.r.m

سه شنبه 15 اسفند 1391, 15:24 عصر

دو تا تکست باکس بزار رو فرم با یه Button این کد رو بزار داخل باتون و بعد از اجرا کردن برنامه داخل هرچی Text1 می نویسی کد شده Text1 رو برات نشون میده

Private Sub Command1_Click()
'Text1.Text = ""
For i = 1 To Len(Text1)
s = Mid(Text1.Text, i, 1)
Text2.Text = Text2.Text + Chr(Asc(s) Xor 25)
Next i
End Sub

در ضمن اگه همون جواب Text2 رو دوباره کپی کنی و به Text1 قرار بدی همون نوشته اولیه خودتو بر میگردنه در واقع به این عمل می گن Encrypt , Decrypt