Autor Thema: Lizenzkey  (Gelesen 6826 mal)

Offline adminnaddel

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 819
  • Geschlecht: Männlich
  • What a wonderful girl, so beautiful und se....;-)
Lizenzkey
« 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
« Letzte Änderung: 03.12.04 - 17:46:28 von adminnaddel »

Offline eknori

  • @Notes Preisträger
  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 11.728
  • Geschlecht: Männlich
Re: Lizenzkey
« Antwort #1 am: 03.12.04 - 11:41:21 »
eben drum  :-X
Egal wie tief man die Messlatte für den menschlichen Verstand auch ansetzt: jeden Tag kommt jemand und marschiert erhobenen Hauptes drunter her!

Driri

  • Gast
Re: Lizenzkey
« Antwort #2 am: 03.12.04 - 11:43:09 »
Äääh, sollen wir dir jetzt beim Hacken von lizenzgeschützter Software helfen, oder wie ?  :o

Offline koehlerbv

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 20.460
  • Geschlecht: Männlich
Re: Lizenzkey
« Antwort #3 am: 03.12.04 - 11:49:13 »
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

Offline eknori

  • @Notes Preisträger
  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 11.728
  • Geschlecht: Männlich
Re: Lizenzkey
« Antwort #4 am: 03.12.04 - 12:31:40 »
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
Egal wie tief man die Messlatte für den menschlichen Verstand auch ansetzt: jeden Tag kommt jemand und marschiert erhobenen Hauptes drunter her!

Offline eknori

  • @Notes Preisträger
  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 11.728
  • Geschlecht: Männlich
Re: Lizenzkey
« Antwort #5 am: 03.12.04 - 12:41:03 »
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
Egal wie tief man die Messlatte für den menschlichen Verstand auch ansetzt: jeden Tag kommt jemand und marschiert erhobenen Hauptes drunter her!

Offline eknori

  • @Notes Preisträger
  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 11.728
  • Geschlecht: Männlich
Re: Lizenzkey
« Antwort #6 am: 03.12.04 - 12:56:00 »
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

Egal wie tief man die Messlatte für den menschlichen Verstand auch ansetzt: jeden Tag kommt jemand und marschiert erhobenen Hauptes drunter her!

Glombi

  • Gast
Re: Lizenzkey
« Antwort #7 am: 03.12.04 - 13:49:24 »
Ulrich, Du hast heute am Freitag wohl Langeweile  ;D
Was macht denn SAP - läuft das etwa  :o ;D

Andreas

Offline eknori

  • @Notes Preisträger
  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 11.728
  • Geschlecht: Männlich
Re: Lizenzkey
« Antwort #8 am: 03.12.04 - 13:57:11 »
ne, TA SBWP macht Ärger; SAP ist schon auf dem System
Egal wie tief man die Messlatte für den menschlichen Verstand auch ansetzt: jeden Tag kommt jemand und marschiert erhobenen Hauptes drunter her!

Offline fritandr

  • Global Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 742
  • Geschlecht: Männlich
  • Höre nie auf besser zu werden...
    • KAMMACHI Consulting GmbH
Re: Lizenzkey
« Antwort #9 am: 03.12.04 - 14:51:24 »
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.

Andreas Fritz

Offline Semeaphoros

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.152
  • Geschlecht: Männlich
  • ho semeaphoros - agr.: der Notesträger
    • LIGONET GmbH
Re: Lizenzkey
« Antwort #10 am: 03.12.04 - 15:04:36 »
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
Jens-B. Augustiny

Beratung und Unterstützung für Notes und Domino Infrastruktur und Anwendungen

Homepage: http://www.ligonet.ch

IBM Certified Advanced Application Developer - Lotus Notes and Domino 7 und 6
IBM Certified Advanced System Administrator - Lotus Notes and Domino 7 und 6

Offline fritandr

  • Global Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 742
  • Geschlecht: Männlich
  • Höre nie auf besser zu werden...
    • KAMMACHI Consulting GmbH
Re: Lizenzkey
« Antwort #11 am: 03.12.04 - 15:13:31 »
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.
Andreas Fritz

Offline koehlerbv

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 20.460
  • Geschlecht: Männlich
Re: Lizenzkey
« Antwort #12 am: 03.12.04 - 15:16:46 »
Der Thread war doch schon von Anfang an off topic  ;D

Bernhard

Offline Semeaphoros

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.152
  • Geschlecht: Männlich
  • ho semeaphoros - agr.: der Notesträger
    • LIGONET GmbH
Re: Lizenzkey
« Antwort #13 am: 03.12.04 - 15:20:20 »
Oh wie wahr, Bernhard ....
Jens-B. Augustiny

Beratung und Unterstützung für Notes und Domino Infrastruktur und Anwendungen

Homepage: http://www.ligonet.ch

IBM Certified Advanced Application Developer - Lotus Notes and Domino 7 und 6
IBM Certified Advanced System Administrator - Lotus Notes and Domino 7 und 6

Offline adminnaddel

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 819
  • Geschlecht: Männlich
  • What a wonderful girl, so beautiful und se....;-)
Re: Lizenzkey
« Antwort #14 am: 03.12.04 - 17:47:46 »
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
« Letzte Änderung: 03.12.04 - 17:49:59 von adminnaddel »

Offline eknori

  • @Notes Preisträger
  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 11.728
  • Geschlecht: Männlich
Re: Lizenzkey
« Antwort #15 am: 03.12.04 - 17:57:48 »
Zitat
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 ...
Egal wie tief man die Messlatte für den menschlichen Verstand auch ansetzt: jeden Tag kommt jemand und marschiert erhobenen Hauptes drunter her!

Offline adminnaddel

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 819
  • Geschlecht: Männlich
  • What a wonderful girl, so beautiful und se....;-)
Re: Lizenzkey
« Antwort #16 am: 03.12.04 - 18:14:54 »
 ;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

Offline eknori

  • @Notes Preisträger
  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 11.728
  • Geschlecht: Männlich
Re: Lizenzkey
« Antwort #17 am: 03.12.04 - 18:22:58 »
Trotzdem, wer programmiert so einen Mist ?
Dafür auch noch Geld zu verlangen sollte strafrechtlich verfolgt werden können ...
Egal wie tief man die Messlatte für den menschlichen Verstand auch ansetzt: jeden Tag kommt jemand und marschiert erhobenen Hauptes drunter her!

Offline adminnaddel

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 819
  • Geschlecht: Männlich
  • What a wonderful girl, so beautiful und se....;-)
Re: Lizenzkey
« Antwort #18 am: 03.12.04 - 18:24:44 »
Mein Vorgänger, der von heut auf morgen über alle Berge ist  >:(

lg Andy

Offline koehlerbv

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 20.460
  • Geschlecht: Männlich
Re: Lizenzkey
« Antwort #19 am: 04.12.04 - 00:47:22 »
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

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz