Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: adminnaddel am 03.12.04 - 11:35:56
-
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
-
eben drum :-X
-
Äääh, sollen wir dir jetzt beim Hacken von lizenzgeschützter Software helfen, oder wie ? :o
-
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
-
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
-
habe die erste "Funktion" mal ein wenig "optimiert" ;D
Function genlc(lct As String)
lctfertig = Replace(Right(lct,8)," ","0")
End Function
und jetzt gebe ich die beiden Funktionen mal unserem Azubi ;D
-
nur der guten Ordnung halber habe ich die zweite Funktion auch mal re-coded
Function getbz(bt As String )As Integer
Dim i As Integer
getbz = 27
sString ="abcdefghijklmnopqrstuvwxyz"
i = Instr(sString, bt)
If Not i = 0 Then
getbz = i
End If
End Function
-
Ulrich, Du hast heute am Freitag wohl Langeweile ;D
Was macht denn SAP - läuft das etwa :o ;D
Andreas
-
ne, TA SBWP macht Ärger; SAP ist schon auf dem System
-
ne, TA SBWP macht Ärger; SAP ist schon auf dem System
Hab da grad mal was im Internet zu gefunden. Ich find's ganz nett gemacht.
-
ne, TA SBWP macht Ärger; SAP ist schon auf dem System
Hab da grad mal was im Internet zu gefunden. Ich find's ganz nett gemacht.
Aha, Du findest Aerger ganz nett ..... ;D ;D
-
Aha, Du findest Aerger ganz nett ..... ;D ;D
Nein, den Ärger finde ich überhaupt nicht nett. Aber dafür ist ja schließlich SAP schon auf dem System. Das ist immer beunruhigend, oder?
Ich schätze auch, daß das gefundene Dokument Ulrich nicht weiterhelfen wird. Aber ich fand es eine gelungene Darstellung, um den Usern auf zwei Seiten zu zeigen, um was es bei der SBWP geht.
Viele Grüße
Andreas
P.S:: Vielleicht sollten wir dann so langsam in den Off-Topic Bereich wechseln.
-
Der Thread war doch schon von Anfang an off topic ;D
Bernhard
-
Oh wie wahr, Bernhard ....
-
Okay, das war es!
Wir haben eine Lösung gefunden und uns in das Abfragescript mit einer MsgBox und einem Output der Lizenz aus dem ProfilDoc zwischengeschaltet!
Trotzdem danke!
lg Andy
-
Okay, das war es!
was war was ?? Du redest echt in Rätseln. Kannst du uns mal in ganzen Sätzen mitteilen, was eigentlich das Problem war ? Du willst doch wohl diese 'Killer' Funktionen nicht ernsthaft auf die Menschheit loslassen !!
Das ist ja wohl echt kranker shit, der da zusammengebraten wurde ...
-
;D @Eknori ... ich glaube fast, daß ich den falschen Teil der ScriptLib geposted!
Es gibt in einer Maske ein Feld welches zum generieren des PW gezogen aus der OU des Unternehmens erstellt wird!
Mein Problem war, daß ich nicht wusste, wie in unserer Anwendung dieser Key generiert wird, doch war diese mit der Hilfe eines Kunden und einer blöden MsgBox auszulesen, weil der "CALL" zum vergleichen der OU <> OU/Key schon in der Form passierte!
Ach egal! Das das Script umständlich geschrieben ist, darum ging es halt nicht, sondern das ich einen Weg finden musste, damit die Validierung -> Key ausgehebelt wird! Das das doch aber sooooooo einfach durch das Auslesen funktionierte, bin ich natürlich nicht drauf gekommen :'(
lg Andy
-
Trotzdem, wer programmiert so einen Mist ?
Dafür auch noch Geld zu verlangen sollte strafrechtlich verfolgt werden können ...
-
Mein Vorgänger, der von heut auf morgen über alle Berge ist >:(
lg Andy
-
Lieber Andy, wenn ich diesen Thread hier lese (und andere), dann werde ich die Befürchtigung nicht los, dass Dein Arbeitgeber zumindest im Bereich Notes / Domino zu denen gehört, die uns Professionals zwei Sorten von Kunden hinterlassen:
- Die einen, die nur schwer wieder davon zu überzeugen sind, dass ihr Problem nicht nach LND liegt, sondern an dem katastrophalen Dienstleister / Produzent, der da vorher dran war.
- Die anderen, die überglücklich sind, endlich an die richtigen geraten zu sein. Bei denen aber immer der fade Beigeschmack bleibt, dass man sie wegen ihrer vorherigen Fehlentscheidung erneut zur Kasse bitten muss.
Die Routinen, die Du gepostet hast, sind grottenschlechter Code auf dem absolut niedrigsten Niveau und - wie Ulrich schon schrieb - weitestgehend sinnentleert. Du hast von dem Tiefflieger, der das verzapft hat, den Mist übernommen. Beileid einerseits, andererseits hast Du keine Ahnung, wie diesem Primitivcode beizukommen ist. Beileid vor allem für die Kunden ! Wenn die schon mithelfen müssen, einen "Code" (hahaha) zu knacken - einfach nur peinlich.
Sorry (nö, eigentlich nicht !), wenn mir solch einem Gefrickel echt das Messer in der Tasche aufgeht ...
Wenn Du es besser machen willst als der xxxxxxx vor Dir: Stell' hier mehr prinzipielle Fragen - im Sinne Deiner Kunden und Deines Arbeitsplatzes.
Bernhard