LOCAL obj_id
	LOCAL field$
	LOCAL part_1$, part_2$, part_3$, part_4$, part_5$
	LOCAL part_1, part_2, part_3, part_4, part_5
	LOCAL part_1_verschl$, part_2_verschl$, part_3_verschl$, part_4_verschl$, part_5_verschl$
	LOCAL pass$, pass_id$, pass_ver$, pass_id



	LOCAL tmp, tmp$
	LOCAL obj$
	LOCAL part_verschl$[], part[], part$[]
	LOCAL modell_id_verschl$[], pass_parts$[]
	LOCAL textur_id_verschl$[], multi_id_verschl$[]
	LOCAL modell_id$[], textur_id$[], multi_id$[]
	LOCAL modell_verschl$[]
	LOCAL modell$[]


	DIM part_verschl$[6]
	DIM part$[6]
	DIM part[6]

	DIM modell_id_verschl$[6]
	DIM textur_id_verschl$[6]
	DIM multi_id_verschl$[6]

	DIM modell_id$[6]
	DIM textur_id$[6]
	DIM multi_id$[6]

	DIM modell_verschl$[6]
	DIM modell$[6]

	DIM pass_parts$[6]

			FOR tmp = 1 TO 5
			tmp$ = tmp
				obj$ = "objekt_" + tmp$
				DBReadRecord(1, id)
				part_verschl$[tmp] = DBGet$(1, "objekt", obj$)
			NEXT

	// Einlesen der verschlüsselten Passwort - ID
			DBReadRecord(1, id)
			pass_ver$ = DBGet$(1, "objekt", "pass")

			pass$ = self.getpass$(pass_ver$)

	// Entschlüsselung der Objekt - ID's

			FOR tmp = 1 TO 5
				part$[tmp] = DECRYPT$(pass$, part_verschl$[tmp])
				part[tmp] = part$[tmp]
			NEXT

	// Modellteile - ID
			FOR tmp = 1 TO 5
				IF part[tmp] > 0
					DBReadRecord(1, part[tmp])
					modell_id_verschl$[tmp] = DBGet$(1, "parts_3d", "modell")
					DBReadRecord(1, part[tmp])
					textur_id_verschl$[tmp] = DBGet$(1, "parts_3d", "textur")
					DBReadRecord(1, part[tmp])
					multi_id_verschl$[tmp]  = DBGet$(1, "parts_3d", "multi")
				// color <--->
					DBReadRecord(1, part[tmp])
					pass_parts$[tmp] = DBGet$(1, "parts_3d", "pass")

					pass$ = self.getpass$(pass_parts$[tmp])

					modell_id$[tmp] = DECRYPT$(pass$, modell_id_verschl$[tmp])
					textur_id$[tmp] = DECRYPT$(pass$, textur_id_verschl$[tmp])
					multi_id$[tmp] = DECRYPT$(pass$, multi_id_verschl$[tmp])

					DBReadRecord(1, modell_id$[tmp])
					modell_verschl$[tmp] = DBGet$(1, "modell", "file")

					DBReadRecord(1, modell_id$[tmp])
					pass_parts$[tmp] = DBGet$(1, "modell", "pass")

					pass$ = self.getpass$(pass_parts$[tmp])

					modell$[tmp] = DECRYPT$(pass$, modell_verschl$[tmp])


				ENDIF
			NEXT





			DEBUG modell$[1]











	RETURN obj_id
	ENDFUNCTION