Yazılım Geliştirme Uzmanı & E-Ticaret Danışmanı
Classic Asp , Excel , Ms Project, Excel VBA , E-Ticaret , Mobil , Desktop
Tel : 0 534 797 31 21 , Mail : baranseren@gmail.com

Kategoriler

Sitelerim

Önerdiklerim

Hurriyet Haber Decoder

Hurriyet Haber Decoder 26.3.2011 00:27:51

Hurriyet Haber Decoder Hürriyet.Com.Tr sistesinden haberleri alamamanız için hazılmış olan spanlar ile yazıları karıştıran ve kopyala yapıştır yaptığınızda bin türlü saçmalık gelen sistemin algoritmasının deşifre edilmiş hali alttadır. 2 adet RichTextBox ekleyin ve bir adet Command button rich1 e kopyaladığınız veriyi girin alın size temiz hali. :) Çözülmeyecek şifre kırılmayacak program girilmeyecek ev yoktur. 

Private Sub Command1_Click()
On Error Resume Next
veri = RichTextBox1.Text
veri = Replace(veri, """", "`")

While Not InStr(veri, "")
    silinecekveri = Mid(veri, kucukyeri, buyukyeri - kucukyeri + 6)
    veri = Replace(veri, silinecekveri, "")
Wend

RichTextBox2.Text = veri
End Sub


Yazının Devamı

Tags :