Encode butonuna bastıgınızda yazınızı şifrelenmiş olarak Text2 de gosterir Decode butonuna bastığınızda Text2 deki şifrelenmiş olan kodu de-kod eder ve gercek olan yazı / sayıyı gosterir. Tek sorun 2. yapışınızda text boxların temizlenmemesi oda ugrasmadıgım icin fazla.. kısa bir kod ama decode encode ihtiyacı olanlar icin iyi birşey. Bana genellikle cok lazım oluyor

isteyene kod olarak veriyorum:
-3 adet Text box ekleyin.
-3 adet Buton
1. buton : Encode
2. buton : Decode
3. buton : Clear
Kod:
Const cyph = 1 Private Sub Command1_Click() On Error GoTo Nero For i = 1 To Len(Text1) nxt = Left(Text1, i) Text2 = Text2 + Chr(Asc(Right(nxt, 1)) + cyph) Next i Exit Sub Nero: MsgBox "Please fill in all fields", vbCritical, "Oops!" End Sub Private Sub Command2_Click() On Error GoTo Nero For i = 1 To Len(Text1) nxt = Left(Text2, i) Text3 = Text3 + Chr(Asc(Right(nxt, 1)) - cyph) Next i Exit Sub Nero: MsgBox "Please fill in all fields", vbCritical, "Oops!" End Sub Private Sub Command3_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" End Sub
Download: megaupload.com/?d=KXXEMEYW
(Rar Pass: Nero)

__________________