daily pastebin goal
43%
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
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top