Arşiv

Posts Tagged ‘visual basic’

VB6 ile metin şifrelemek & çözmek

14/08/2012 1 yorum

https://i0.wp.com/img805.imageshack.us/img805/1543/sifrele.jpg

Text1(multiline=true), text2(multiline=true), command1, command2 ekliyoruz

Daha fazlasını oku...

Reklamlar
Kategoriler:Kodlar Etiketler:, , , , , , , , ,

Visual Basic ile bruteforce programı yapmak

29/01/2012 1 yorum

Wordlist için, programın çalıştığı klasörde sifreler.txt dosyası oluşturun
Daha fazlasını oku…

Dosyada değişiklik varmı kontrolü yapmak (VB6)

18/12/2011 Yorum bırakın

MD5’in biraz daha hassası veri bütünlüğünü tespit etmek içindir. Dosya değiştirme tarihi, Dosya boyutu, Dosya isminde değişiklik varmı diye kontrol eder, varsa program kapanır tahribatın çük sayfasına yönlendirir

Daha fazlasını oku…

StringToHex fonksiyonu (VB6)

05/12/2011 Yorum bırakın

Girilen diziyi, hexe çevirir (Dizi>Ascii>Hex)

Private Function AsciiDonusturHexe(Ascii As String) As String
Dim hexDeger As String
For heks = 1 To Len(Ascii)
hexDeger = hexDeger & Hex(Asc(Mid(Ascii, heks, heks)))
Next heks
AsciiDonusturHexe = hexDeger
End Function

Private Sub Command1_Click()
Text1 = AsciiDonusturHexe(Text1)
End Sub

VB6 String fonksiyonları

02/12/2011 Yorum bırakın

Len fonksiyonu:

Girilen değerin uzunluğunu verir

Kullanımı:

Msgbox Len("tdsoftware") 'Dönen veri 10 olacaktır

 

 

Mid fonksiyonu:

Girilen değerin, istenilen kısmını ayıklamanızı sağlar

Kullanımı:

Msgbox Mid$("tdsoftware",1,2) 'Sonuç 'td' olacaktır, 1. karakterden 2. karaktere kadar al demektir

 

Left fonkisyonu:

Girilen değerin sol tarafını alır

Kullanımı:

msgbox Left$("tdsoftware",2) 'Sonuç 'td', girilenin sol tarafındaki 2 karakteri alır

 

Right fonkisyonu:

Girilen değerin sağ tarafını alır

Kullanımı:

msgbox Right$("tdsoftware",8) 'Sonuç 'software',sağ taraftaki 8 karakteri alır

 

Ucase fonksiyonu:

Girilen değerin tüm harflerini büyük yapar

Kullanımı:

msgbox ucase$("tdsoftware") ' Sonuç 'TDSOFTWARE'

 

Lcase fonkisyonu:

Girilen değerin tüm harflerini küçük yapar

Kullanımı:

msgbox lcase$("TDSoftware") ' Sonuç 'tdsoftware'

 

InStr fonksiyonu:

Girilen değerde karakter kontrolü yapar

Kullanımı:

MsgBox InStr("tdsoftware", "x") 'Dönen veri 0, yani x karakteri yok
MsgBox InStr("tdsoftware", "s") 'Dönen veri 3, çünkü 3. karakterimiz s
MsgBox InStr(4, "tdsoftware", "s") 'Dönen veri 0, çünkü 4. karakterden itibaren kontrole başlar
MsgBox InStr("tdsoftware", "S") 'Dönen veri 0, büyük-küçük harf algılamadı
MsgBox InStr("tdsoftware", "S", 1) 'Dönen veri 0, büyük-küçük harf algıladı
MsgBox InStr(1, "tdsoftware", "S", 1) 'Dönen veri 3, büyük-küçük algılamadı

String Fonksiyonu:
Girilen değeri istenilen kadar tekrarlar
Kullanmı:
MsgBox String$(3, "t") 'Dönen veri 'ttt'
MsgBox String$(3, 13) 'Dönen veri 3 tane enter, 13 ün asciideki karşılığı enter tuşudur

Space fonksiyonu:
Belirttiğiniz kadar boşluk koymanızı sağlar
Kullanımı:
MsgBox "TD" & Space$(1) & "Software" ' Dönen veri 'TD Software'

Replace fonksiyonu:

Girilen değeri değiştirmenizi sağlar

Kullanımı:

MsgBox Replace$("tdsoftware", "tds", "TD S") 'Sonuna 1 veya 0 koyarsanız büyük-küçük harf algılama değerini değiştirir

 

StrReverse fonksiyonu:

Girilen değeri tersten verir

Kullanımı:

MsgBox StrReverse$("xc.rt.erawtfoSDT") 'Dönen veri TDSoftware.tr.cx

 

Trim Fonksiyonu

Boşlukları siler

Kullanımı:

Girilen değerdeki tüm boşlukları siler

Msgbox Trim$(" TD Software ") 'Dönen veri 'TDSoftware'

 

Ltrim fonksiyonu:

En sol tarafta boşluk varsa siler

Kullanımı:

MsgBox LTrim$(" TD Software") 'Dönen veri 'TD Software'

 

Rtrim fonksiyonu:

En sağ tarafta boşluk varsa siler

Kullanımı:

MsgBox LTrim$("TD Software ") 'Dönen veri 'TD Software'

 

Asc fonksiyonu:

Girilen değeri ascii numarasına çevirir

MsgBox Asc("T") & "," & Asc("D") ' Dönen veri 84,68

 

Chr fonksiyonu:

Girilen ascii değerini, karaktere çevrir

Kullanılımı:

Msgbox chr("84") & "," & chr("68") 'Dönen veri T,D

Visual basic 6 ile tuş kombinasyonu kullanmak

01/12/2011 Yorum bırakın

10 saniye içinde tdsoftware yazdığınızda programı çağırır

Daha fazlasını oku…

Visual Basic 6 ile Animasyon yapmak

01/12/2011 Yorum bırakın

Masturbasyon yapan adam uygulaması. Not defterinden .frm uzantılı kayıt edebilirsiniz

Daha fazlasını oku…

Kategoriler:Kodlar Etiketler:, , , , ,