Döküman: AND operatörü VB ile uyumluluk Seviye: X86 - AT&T Assembly Asm yüzeysel & VB yüzeysel Yazar: paravirtual-life. Merhabalar, VB'de mantıksal operatörler kullanarak nasıl bir form şifreleyici yapılır, işte size kendim yaptığım bir kaç örnek; bununla beraber formunuza serial koyup yani programı hem trial hemde serialli olarak dağıtabilirsiniz işte mantıksal operatörlerin Assembly'den vb'ye gelişi Özelliklerimiz : 2 Form 2 Adet TextBox 2 Adet Label 2 Adet Command Button Not: Örnek form gösteremiyorum elimde windowslu bir bilgisayar bulunmamakta. Birinci buton: Kod: Private Sub Command1_Click If Text1. Text = "Kullanıcı adı" And Text2. Text = "Şifre" Then Form2. Show ' Form2 sifrelenmis formumuzdur Else MsgBox "Hatalı kullanıcı adı veya parola" End If End Sub MANTIKSAL OPERATÖR: Bariz ve belli AND operatörüdür. Bu operatör şu ve şu doğrumu mantığı ile çalışır. Yani kısacası her ikiside doğru ise sonucu doğru ver. ÇOK ÖNEMLİ : AND ile sadece iki şeyi karşılaştırabilirsiniz İkinci buton: Kod: Private Sub Command2_Click Text1. Text = "" Text2. Text = "" End Sub Burası bariz temizleme işlemi yapmakta. Şimdi serial işine geçelim aynı işlem sadece labeller değişecek, önemli nokta bunun sayesinde sanki sadece sizin bildiğiniz bir şifre gibi serial koyacaksınız. Yani normal bir cracker bir deneme yaptığında çok daha zor şonuç alacaktır belkide alamayacaktır. Özellikler; 2 Form 2 Command Buton 2 label 2 Text Box tamam gene benzer kodu yazalım Kod: Private Sub Command1_Click If Text1. Text = "Serial numarasi" And Text2. Text = "Aktivasyon kodu" Then Form2. Show ' Hem korumalı hem paralı olan formumuz Else MsgBox "Üzgünüz yazdığınız serial ve aktivasyon kodu geçersiz, lütfen tekrar deneyiniz" End If End Sub Serial numarasi, aktivasyon kodu yazan yerlere kendiniz sayılar yazınız. Trial buton kodu yazmasamda olurdu ama yazalım genede Kod: Private Sub Command2_Click Form3. Show End Sub NOT: BU TRIAL BUTONU!! İşimiz tamamdır artık ya parola kullanıcı adı isteyen formumuz hemde serial ve aktivasyon kodu isteyen kodumuz var Form numaralarını karıştırmayın sonra adamın karşısına korumalı olan form çıkmasın, veya parolalı olan form Not: Döküman benim tarafımdan hazırlanmıştır ve denenmiştir, bunu sadece Assembly'nin unutulmaması gerektiği için yazdım, çoğunuz bunu gördüğünde aaa ne kolay diye bilir, belki birilerinin aklına böyle birşey gelmemiştir daha zorunu yapmışlardır. Sadece öylesine yazdığım bir dökümancık. Asıl amaçlarıımdan biride VB'nin assembly ile uyumluluğu idi, ve Assembly bölümünü bu sebepten dolayı önermekti. Biliyorsunuz ki assembly her dilden verimli ve sağlamdır. Neyse umarım beğenirsiniz, saygılar... DİPNOT: Mantıksal operatörler 4 tanedir. XOR, OR, AND, NOT. Bunlarıda farklı kombinasyonlarda VB'de kullanabilirsiniz.. OR Birisi doğru ise sonuç doğru XOR Biri doğru biri yanlış ise sonuç olumlu olacak AND İkisi doğru sonuç olumlu NOT Olay olumsuz sonuç olumlu -

dostum tesekkurler ancak milletin kafasi karisabilir, x86 mimarisinden bahsetmissin ancak vb6 anlatiyorsun yani basit bir if komutu yazan adam zaten xor larla ilgilenmez, ki yok bunlar temel dersen basit bir if komutu inan cok kolay bypass edilir, ben tersine muhendislikten anlamam ancak bukadar basit birseyi flaglari degistirerk ya da basitce JNZ komutunu JMP yaparak bile gecebilirsiniz... arkadaslar unutmayin programlarinizin onemli bolumlerinde boyle basit if komutlariyla gecmeyin, nag ekranlari koyun, server kontrol yapin , crackleri önleyebilecek register windowlar kullanin ve en önemli packerlar kullanin... saygilar, bu arada konuya denk geldi acikladim biraz sakin yanlis anlama amacim paylasim sevkini kirmak degil bilgi vermektir...

Private Sub Command1_Click If Text1 = "Kullanıcı Adı" And Text2 = "Parola" Then MsgBox Form2. Show Form1. Hide ElseIf Text1 = "" And Text2 = "" Then MsgBox ElseIf Text1 = "" Then MsgBox ElseIf Text2 = "" Then MsgBox Else MsgBox End If End Sub veri tabanı kullanarak dahada geliştirilebilir.