decrypt & encrypt (RC4)

[muadeep]

Hab da mal wieder ein Problem

wir wollen/müssen Daten nach dem RC4 (Ron's Cipher 4) auf der AS400 verschlüssen/entschlüsseln!

hab auch schon mal Mr. "google" gefragt und dann folgendes Programm gefunden!


H DFTACTGRP(*NO) BNDDIR('QC2LE') option(*SRCSTMT: *NODEBUGIO)

D pstring s 20A
D encrypt s 1A
D key s 16A varying inz('CrypTEDkEy')
D InpString s 21
D OutString s Like(InpString)

D RC4_Controls ds
D funct_id 2A
D datalen 5U 0
D operation 1A
D reserved 11A
D p_key_ctx *

D key_ctx ds
D stream 256A
D len 5U 0
D reserved2 6A
D cipher PR extproc('_CIPHER')
D receiver *
D control 32A
D source *

D p_recv s *
D p_src s *


C *Entry PList
C Parm pstring
C Parm encrypt

* The following will store a null-terminating byte
* at the end of InpString as required by the C API _CIPHER.
C Eval %str(%addr(InpString) :
C %len(%trim(pstring)) + 1) = pstring

* The following will encrypt or decrypt "InpString" using the RC4
* algorithm with the secret key "key", and place the result
* into "OutString"

C Eval key_ctx = *ALLx'00'
C Eval stream = *ALLx'00'
C Eval reserved2= *ALLx'00'
C Eval %subst(stream:1:%len(key)) = key
C Eval len = %len(key)

C Eval RC4_Controls = *ALLx'00'
C Eval funct_id = x'0013'
C Eval datalen = %size(InpString)

C Select
C When encrypt = 'E'
C Eval operation = x'00'
C When encrypt = 'D'
C Eval operation = x'01'
C EndSl
C Eval reserved = *ALLx'00'
C Eval p_key_ctx = %addr(key_ctx)

C Eval p_recv = %addr(OutString)
C Eval p_src = %addr(InpString)

C CallP cipher( p_recv: RC4_Controls: p_src)

C Seton LR

Dieses Pgm. soll ab V5.2 laufen (wir haben V5.3)

Umwandeln funkt auch prima, nur wenn ich das Programm aufrufe/debuge, dann bekomme ich bei:

C CallP cipher( p_recv: RC4_Controls: p_src)
folgende Fehlermeldung:
Die angeforderte Funktion ist ungültig oder nicht verfügbar auf der Maschine

cipher bzw. _cipher soll angeblich ein API sein !!!!

Hat jemand Erfahrung damit o. kann mir jemand weiterhelfen was ich falsch mache, bzw. wo ich dieses API herbekomme!

[Fuerchau]

a) du musst den Kryptografie-Support installieren
b) es gibt dann CMD's und einfache API's:
http://publib.boulder.ibm.com/infocenter/iseries/v5r3/topic/apis/catcrypt.htm

[Frank Hildebrandt]

CIPHER ist eine MI Instruktion, auf die in ILE Programmen über den MI Build-In _CIPHER zugegriffen werden kann. Unter V5R1 kann man über CIPHER nach dem DEA, TDEA, RC4 bzw. dem AES Algorithmus Daten verschlüsseln. Ab V5R2 kann man nach Installation der folgenden PTF`s die von Fürchau beschriebenen API`s verwenden.


SI10060 - Common Cryptographic APIs
SI10105 - Common Cryptographic API includes
MF31101 - Common Cryptographic API fix

Ab V5R3 sind diese API`s Bestandteil der Basisinstallation und damit immer verfügbar.

Voraussetzung für eine Verschlüsselung nach DEA, TDEA, RC4 bzw. AES ist immer die zusätzliche Installation des folgenden Lizenzprogrammes und zwar für alle V5RX Releases.


5722-AC3 -- Cryptographic Access Provider 128-bit for AS/400

Das Programm ist leider ein wenig unsauber programmiert, da man über die MI Instruktion MATMATR ermitteln kann, ob eine Verlüsselung nach RC4 auf der Maschine überhaupt möglich ist. Und wenn nicht möglich, dann hätte man eine Meldung bringen müssen und _CIPHER erst gar nicht aufrufen. Aber was solls.

[muadeep]

habe heute die:

5722-AC3 -- Cryptographic Access Provider 128-bit for AS/400
und
5722-AC4 -- Cryptographic Access Provider 128-bit for AS/400

a) reicht es wenn ich nur "5722-AC3" installiere, oder müssen beide installiert werden?

b) wo liegt eingentlich der Unterschied zwischen beiden?

[Frank Hildebrandt]

AC4 ist mir völlig unbekannt. Es läßt sich auch nichts an Informationen finden. Ich würde AC3 installieren. Das wird bestimmt laufen. Steht denn auf der CD wirklich 5722-AC4 drauf?

[muadeep]

ups sorry, sollte eigentlich so heißen:

5722-AC3 -- Cryptographic Access Provider 128-bit for AS/400
und
5722-CE3 -- Client Encryp 128) for AS/400


????

[muadeep]

ups sorry, sollte eigentlich so heißen:

5722-AC3 -- Cryptographic Access Provider 128-bit for AS/400
und
5722-CE3 -- Client Encryp 128 for AS/400


????

[Frank Hildebrandt]

Auf der AS/400 installierst Du das AC3. Das CE3 ist für den PC. Das brauchst Du aber nur dann auf einem PC zu installieren, wenn Du auf diesem PC Client Access mit der Funktion 'Operations Console' nutzen willst. Für das, was Du mit Deiner ursprünglichen Frage bewirken willst reicht AC3.