Dostum kendin kodla demişsin nasıl olacak bu iş ben otomatik bir program istiyorum yazıyı yazdığımda decode ve encode edebilecek bir program sayıların yan yana gelmesini yazmışsın onu da sen düşün sence nasıl bişi yapılabilir. Arkadaşlar lütfen yardım bekliyorum $aban matrix reloaded

: anlayamadımki ne yapmaya çalıştığını mesela a yerine 1 b yerine 2 c yerine 3 sen a b c ye basınca 123 olcak adam da onu abcye çevircek. ama 12 ve 3 olursa ne olur bilemem. yani bi 12 bi de 3 kodu varsa. hepsinin başınca 0 olcak mesela 010203 şeklinde. o zmn işe yarar... anla yani... kendin kodlasan daha kolay olur arkadasım This time, action must speak louder than words...

eğer büyük metinletde hız işlem real time işlme yapmak istersen Sub Classing bir çzüm olabilir.. Form'a bir adet text box koy... Private Sub Form_Load ReDim Stat(0 To 2) As Long Stat(0) = SetWindowLong(Text1. hWnd, (-4), AddressOf TextProc) Stat(1) = 1 Stat(2) = 1 End Sub Private Sub Form_QueryUnload SetWindowLong Text1. hWnd, (-4), Stat(0) End Sub Bir adet module ekle... Option Explicit Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" As Long Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" As Long Public Stat As Long Public Function TextProc As Long If (uMsg = 257) Then If (wParam >= &H30) Or (wParam <= &H39) Then Stat(1) = 0 frmmain. Text1. Text = frmmain. Text1. Text & Chr(wParam + &H12) frmmain. Text1. SelStart = Len(frmmain. Text1. Text) frmmain. Text1. SelLength = 0 TextProc = 0 Else Stat(1) = 1 TextProc = CallWindowProc(Stat(0), hWnd, uMsg, wParam, lParam) End If ElseIf (uMsg = 258) Then If Stat(1) = 1 Then TextProc = CallWindowProc(Stat(0), hWnd, uMsg, wParam, lParam) If Stat(2) = 1 Then Stat(2) = 0 frmmain. Text1. Text = Mid(frmmain. Text1. Text, 2, Len(frmmain. Text1. Text) - 1) End If Else TextProc = 0 End If Else TextProc = CallWindowProc(Stat(0), hWnd, uMsg, wParam, lParam) End If End Function

Selam arkadaşlar bana harf yerine sayı basacak ve bu sayıları tek tuşla encode edecek. Sayılarıda harfe çevirecek Visual basic kodu lazım. Yardımlarınızı bekliyorum. $aban matrix reloaded

MD5 Encryption algoritması değildir. Bir hash algoritmasıdır . Büyük metin dosyalarını, binary dosyaları ya da stringleri bunlara nazaran küçük sayılara dnüştürmeye yarar. Checksum gibi bir şey. Şifre için de kullanılabilir, o ayrı konu.

anlayamadımki ne yapmaya çalıştığını Düşünüyorum, o halde varım.

Al bakalım. Normalde kasmam ama biraz da ne yapabileceğimi gstereyim dedim: Bir adet text box, bir command button, bir label ve bir timer koy ve kodu kopyala yapıştır. EN SON HALİ: Dim spec As Integer Private Sub Command1_Click On Error GoTo olmadı If Len(Text1) Mod 3 <> 0 Then GoTo olmadı For i = 0 To Len(Text1) / 3 - 1 Label1 = Label1 + Chr$(Mid$(Text1, i 3 + 1, 3)) Next Text1 = Label1 Label1 = "" Exit Sub olmadı: Label1 = "" MsgBox "Bu kod geçersizdir", vbInformation + vbOKOnly, "Hata" End Sub Private Sub Form_Load Text1 = "" Label1 = "" Label1. Visible = True Timer1. Enabled = False Timer1. Interval = 10 Command1. Caption = "Şifreyi Çz" End Sub Private Sub Text1_KeyPress On Error Resume Next spec = spec + 1 Timer1. Enabled = True If Val = 8 Then Exit Sub End If If Len(Trim$ = 1 Then keycode2$ = "00" & Trim$(Str$ If Len(Trim$ = 2 Then keycode2$ = "0" & Trim$(Str$ If Len(Trim$ = 3 Then keycode2$ = Trim$(Str$ Text1 = Text1 + keycode2$ End Sub Private Sub Timer1_Timer On Error Resume Next Text1 = Right$(Text1, Len(Text1) - spec) spec = 0 Timer1. Enabled = False End Sub İmzasız kahraman

: Dostum kendin kodla demişsin nasıl olacak bu iş ben otomatik bir program istiyorum yazıyı yazdığımda decode ve encode edebilecek bir program sayıların yan yana gelmesini yazmışsın onu da sen düşün sence nasıl bişi yapılabilir. Arkadaşlar lütfen yardım bekliyorum abi sen şifrelememi istiyorsun?. o zaman hex komutunu kullan. rneğin 2 textbox ve 1 command button ekle ve şunu yapıştır private sub command1_click text2. text = "" for i = 1 to len (text1. text ) text2. text = text2. text & hex (mid (text1. text, i,1) next i end sub Düşünüyorum, o halde varım.

crypt istiyorsan en iyisi md5 encryp tir. ama bu şifre girişleri için. diğerlerinde kullanılmaz Düşünüyorum, o halde varım.

mesele cyrpt değil, harf yerine sayı basmak. Bunun güvenilir olması istenmemiş İmzasız kahraman

Eğer formun ismini frmmain olarak değiştirmezsen bu kod Visual Basic'i kapatıyor. Her neyse, bu kod istediği şey değil sanırım. İmzasız kahraman