key jeneratörde sorun yok
For x = 1 To Len(sTemp)
TempVar = TempVar & Format((Int(Mid(sTemp, x, 1)) * 8), "00")
Next x
burda bulunan iki adet aynı kodu iki yerden "8"rakamını 1 veya 6 yapıyorum ve bu şekilde çalışıyor.

amcak serial programında Modserial'de
For X = 1 To Len(TempPart) / 2
TempVar = TempVar & Int(Mid(TempPart, (X * 2) - 1, 2)) / 8
Next X
iki yerde bu değer var her ikisinide veya teker teker değiştiriyorum

her seferinde serial açılmıyor ve rutime 13 type mismach uyarısı veriyor tüm kombinasyonları denedim hep aynı hatayı veriyor bir sefrinde açtı lisans tarihi 30 aralık 1899 olarak gösterdi ancak bu sefer yeni lisans verme için menüler aktif olmuyor kilitli kalıyor.


hatam nerede acaba ? neyi beceremedim ? yardımcı olurmusunuz aslında gayet açık yazmışsınız ama beceremedim .