MD5 code genereren hoe begrijp vf taal niet

Status
Niet open voor verdere reacties.

tmling76

Nieuwe gebruiker
Lid geworden
3 nov 2008
Berichten
2
Heb een programma waarmee ik met de md5 een string moet genereren om de programma teactiveren. Wanneer ik de programma opstart krijg ik een code die ik dan met een andere code moet activeren. Nu heb ik de uitleg van de .dll maar kan ik het niet in normale taal verstaan wie heeft er verstand van en kan uitleggen hoe ik md5 string kan maken met behulp van deze uitleg
Stel voor ik heb de code 6QE0NFAT van de programma gekregen wel code kan ik maken om het tegebruiken om in de md5 programma een code tegenereren?
vf code is:

DECLARE STRING getserial IN 'JUNWEI.DLL' INTEGER
DECLARE STRING MD5String IN 'JUNWEI.DLL' AS MD5JM STRING, INTEGER
DECLARE STRING GetCpuID IN 'JUNWEI.DLL'
LNSERIALNUMBER = '3JV8835B3'
LC_HARDSN = WORKJM (LNSERIALNUMBER, 'ZS')
MESSAGEBOX(LC_HARDSN)

PROCEDURE WorkJm
PARAMETER YOURID, JMSTR
YOURID = JMSTR - UPPER(ALLTRIM(YOURID)) - 'KALEN'

LOCAL CURRENTID
CURRENTID = ''
FOR IDNAME = LEN(YOURID) TO 1 STEP -2
CURRENTID = CURRENTID + SUBSTR(YOURID, LEN(YOURID) - IDNAME,1)
ENDFOR
FOR IDNAME = LEN(YOURID) TO 0 STEP -2
CURRENTID = CURRENTID + SUBSTR(YOURID, LEN(YOURID) - IDNAME,1)
ENDFOR
CurrentId=MD5JM ([&CurrentId.], Len(CurrentId))
RETURN (CURRENTID)
ENDPROC
 
Wat is de MD5 en wat heeft je vraag met VBA te maken ?
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan