SHARE
TWEET

Untitled

a guest Jun 19th, 2017 42 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.     LOCAL obj_id
  2.     LOCAL field$
  3.     LOCAL part_1$, part_2$, part_3$, part_4$, part_5$
  4.     LOCAL part_1, part_2, part_3, part_4, part_5
  5.     LOCAL part_1_verschl$, part_2_verschl$, part_3_verschl$, part_4_verschl$, part_5_verschl$
  6.     LOCAL pass$, pass_id$, pass_ver$, pass_id
  7.  
  8.  
  9.  
  10.     LOCAL tmp, tmp$
  11.     LOCAL obj$
  12.     LOCAL part_verschl$[], part[], part$[]
  13.     LOCAL modell_id_verschl$[], pass_parts$[]
  14.     LOCAL textur_id_verschl$[], multi_id_verschl$[]
  15.     LOCAL modell_id$[], textur_id$[], multi_id$[]
  16.     LOCAL modell_verschl$[]
  17.     LOCAL modell$[]
  18.  
  19.  
  20.     DIM part_verschl$[6]
  21.     DIM part$[6]
  22.     DIM part[6]
  23.  
  24.     DIM modell_id_verschl$[6]
  25.     DIM textur_id_verschl$[6]
  26.     DIM multi_id_verschl$[6]
  27.  
  28.     DIM modell_id$[6]
  29.     DIM textur_id$[6]
  30.     DIM multi_id$[6]
  31.  
  32.     DIM modell_verschl$[6]
  33.     DIM modell$[6]
  34.  
  35.     DIM pass_parts$[6]
  36.  
  37.             FOR tmp = 1 TO 5
  38.             tmp$ = tmp
  39.                 obj$ = "objekt_" + tmp$
  40.                 DBReadRecord(1, id)
  41.                 part_verschl$[tmp] = DBGet$(1, "objekt", obj$)
  42.             NEXT
  43.  
  44.     // Einlesen der verschl├╝sselten Passwort - ID
  45.             DBReadRecord(1, id)
  46.             pass_ver$ = DBGet$(1, "objekt", "pass")
  47.  
  48.             pass$ = self.getpass$(pass_ver$)
  49.  
  50.     // Entschl├╝sselung der Objekt - ID's
  51.  
  52.             FOR tmp = 1 TO 5
  53.                 part$[tmp] = DECRYPT$(pass$, part_verschl$[tmp])
  54.                 part[tmp] = part$[tmp]
  55.             NEXT
  56.  
  57.     // Modellteile - ID
  58.             FOR tmp = 1 TO 5
  59.                 IF part[tmp] > 0
  60.                     DBReadRecord(1, part[tmp])
  61.                     modell_id_verschl$[tmp] = DBGet$(1, "parts_3d", "modell")
  62.                     DBReadRecord(1, part[tmp])
  63.                     textur_id_verschl$[tmp] = DBGet$(1, "parts_3d", "textur")
  64.                     DBReadRecord(1, part[tmp])
  65.                     multi_id_verschl$[tmp]  = DBGet$(1, "parts_3d", "multi")
  66.                 // color <--->
  67.                     DBReadRecord(1, part[tmp])
  68.                     pass_parts$[tmp] = DBGet$(1, "parts_3d", "pass")
  69.  
  70.                     pass$ = self.getpass$(pass_parts$[tmp])
  71.  
  72.                     modell_id$[tmp] = DECRYPT$(pass$, modell_id_verschl$[tmp])
  73.                     textur_id$[tmp] = DECRYPT$(pass$, textur_id_verschl$[tmp])
  74.                     multi_id$[tmp] = DECRYPT$(pass$, multi_id_verschl$[tmp])
  75.  
  76.                     DBReadRecord(1, modell_id$[tmp])
  77.                     modell_verschl$[tmp] = DBGet$(1, "modell", "file")
  78.  
  79.                     DBReadRecord(1, modell_id$[tmp])
  80.                     pass_parts$[tmp] = DBGet$(1, "modell", "pass")
  81.  
  82.                     pass$ = self.getpass$(pass_parts$[tmp])
  83.  
  84.                     modell$[tmp] = DECRYPT$(pass$, modell_verschl$[tmp])
  85.  
  86.  
  87.                 ENDIF
  88.             NEXT
  89.  
  90.  
  91.  
  92.  
  93.  
  94.             DEBUG modell$[1]
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.     RETURN obj_id
  107.     ENDFUNCTION
RAW Paste Data
Top