(15/12/2008, 15:23)alpeki99 yazdı: Ben bir programın aktivasyon işlemlerinde hangi kaynaklar kullanılabilir diye anlamıştım Aktivasyon Lisans Üretme programında

Kod:

For x = 1 To Len(sTemp)
        TempVar = TempVar & Format((Int(Mid(sTemp, x, 1)) * 8), "00")
    Next x

kısmında yer alan * 8 ifadesi yerine kendiniz başka bir şey kullanabilirsiniz. Bunun dışında da şeyler var ancak en basiti bu olabilir.

hocam bu anında ve hızlı cevabınız için çok teşekürler.

---

key jeneratöründe dedeğiniz ifadeyi buldum ve diyelimki değiştirdim

serial formun uyumlu ve sadece o key jeneratörüne bağlı olması için
serial Vba da

Private Sub ACTİVE_KeyPress(KeyAscii As Integer)
If (KeyAscii > 44 And KeyAscii < 58) Or (KeyAscii > 64 And KeyAscii < 123) Then
KeyAscii = Asc(UCase(Chr(KeyAscii)))
ElseIf KeyAscii = 8 Then
KeyAscii = 8
Else
KeyAscii = 0
End If
End Sub

burdaki 8 değerlerini değiştirmemmi gerekiyor yani keyjeneratöründe ne yaptı isem buradiki değer de aynımı olmalı veya hangi değerler aynı olmalı ?
bu konuda bilgi verirseniz çok mutlu olacağım.
aksi halde bu key jenertörü elinde olan herkes benim yaptığım ve dağıttığım programa key verebilir duruma geliyor. amacım bunu önlemek .
teşekürler.