şifre demo

[cumhur]

arkadaşlar öle bişi yapmalıyımki excel vba yaptığım bir program başka bir bilgisayara kopyalanıp çalıştırılmasın yapılabilirmi

 

[Mahmut Bayram]

şöyle olur. sen programa bir şifre yazarsın ve o şifre makinanın (pc'nin) hard disk seri numarasını tarar veya başka bir donanımının seri numarasını alır. sende bu numarayı alırsın ve buna göre lisans ürettirirsin. tabii haliyle şifre ve lisans key bilinmeden program açılmaz açılsa bile açanın işine yaramaz makroları etkinleştiremez. Ama işi bilen biri için bunları bulmak çok zor olmasa gerek. hele elinde bir de vba kırıcı program varsa gerisini sen düşün...

 

[recep]

ama bir başka dosyaya bağlanır ve içeriği çeşitli programlarla kilirlenirse bu iş biraz daha zorlaşir. ama unutulmaması gereken tek şey excelin hiç bir zaman güvenliği yoktur. sadece güvenliği anahtarın nerede olduğunu bilemeyen açar. o yüzden en güvenli excek dosyası ganahtarı çok ve farkılı plan dosyadır.

 

[gdemir]

peki bu tıp ornerker varmı elinizde arkadaslar ?

 

[cumhur]

varda buraya nasıl ekliycez onu bilmiyom

 

[gdemir]

cevap yaz de orada atac ekleme yeri var

 

[Mahmut Bayram]

hah işte orası

 

[bistrobellman]

ben username e göre bir tane yetkilendirme yapan bir programı eklemiştim projeme.ihtiyaç duyarsan yarın yollayabilirim? 5 -6 satırlık birkod....

 

[gdemir]

bistrobellman,
iyi olur her turlu ornege acıgız
yasasın yenı seyler ogrenmek

 

[bistrobellman]

Sub Autpen()
Dim WscNetwork As Object
Set WscNetwork = CreateObject("WScript.Network")
If WscNetwork.UserName = "pc01" Then
GoTo ok
Else
MsgBox "Yetkilendirilmemiş Kullanıcı", vbDefaultButton3, "Üzgünüm": Exit Sub
Set WscNetwork = Nothing
End If

ok:
kodlarınız
.
.
.

 

[bistrobellman]

hatta exit sub komutundan önce Activeworkbook.close True
komutunu yazıp programı kapatabilirsiniz...