Domino 9 und frühere Versionen > Entwicklung

Lizenzkey

(1/4) > >>

adminnaddel:
Hallo liebe Gemeinde,

ich benötige bitte dringend Hilfe:

Die beiden Function gehören zur ScriptLib "Lizenz" und machen mir Sorgen bzgl. der Eingabe! Ich möchte diese Lib übergehen, ist mir aber nicht möglich! Also:

Wer kann mir bitte folgendes dazu sagen?

1. Function

Function genlc(lct As String)
   lct = Right(lct, 8)      
   l = Len(lct)
   lct = Space(8 - l) & lct
   
   z = 0
   While z < 8
      z = z + 1      
      b = Mid(lct, z, 1)
      If b = " " Then
         b = "0"
      End If
      lctfertig = lctfertig & b
   Wend
   lct = lctfertig
End Function

2. Function

Function getbz(bt As String, bz As Double)
   Select Case bt
   Case "a"
      bz = 1
   Case "b"
      bz = 2
   Case "c"
      bz = 3
   Case "d"
      bz = 4
   Case "e"
      bz = 5
   Case "f"
      bz = 6
   Case "g"
      bz = 7
   Case "h"
      bz = 8
   Case "i"
      bz = 9
   Case "j"
      bz = 10
   Case "k"
      bz = 11
   Case "l"
      bz = 12
   Case "m"
      bz = 13
   Case "n"
      bz = 14
   Case "o"
      bz = 15
   Case "p"
      bz = 16
   Case "q"
      bz = 17
   Case "r"
      bz = 18
   Case "s"
      bz = 19
   Case "t"
      bz = 20
   Case "u"
      bz = 21
   Case "v"
      bz = 22
   Case "w"
      bz = 23
   Case "x"
      bz = 24
   Case "y"
      bz = 25
   Case "z"
      bz = 26
   Case Else
      bz = 27
   End Select
   
End Function

lg Andy

eknori:
eben drum  :-X

Driri:
Äääh, sollen wir dir jetzt beim Hacken von lizenzgeschützter Software helfen, oder wie ?  :o

koehlerbv:
Hm, ich würde sagen, da ist jemand nach der Anzahl der Codezeilen bezahlt worden. Die Function getbz ist ja wohl der Hammer  ;D

Bernhard

eknori:
Naddel !! kannst du uns zur Belustigung auch noch den Rest dieser ScriptLib posten, bitte ?? Die Funktionen sind echt genial; vor allen Dingen so vollkommen zweckfrei  ;D

Navigation

[0] Themen-Index

[#] Nächste Seite