Yannick
Nombre de messages : 8635
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010
 | | Sujet: re Mar 18 Nov 2014 - 17:00 | |
| Il est là :  La paternité est partagé entre Jack et Dj Peters il me semble. Le source : - Code:
-
' RecoverSource.bas
dll_on "kernel32.dll"
data 0, 22, 21, 20, 19, 18, 17, 16, 31, 30, 0, 28, 27, 0, 25, 24
data 7, 6, 5, 4, 3, 2, 1, 0, 15, 14, 13, 12, 11, 10, 9, 8
data 55, 54, 53, 52, 51, 50, 49, 48, 63, 62, 61, 60, 59, 58, 57, 56
data 39, 38, 37, 36, 35, 34, 33, 32, 47, 46, 45, 44, 43, 42, 41, 40
data 87, 86, 85, 84, 83, 82, 81, 80, 95, 94, 93, 92, 91, 90, 89, 88
data 71, 70, 69, 68, 67, 66, 65, 64, 79, 78, 77, 76, 75, 74, 73, 72
data 119,118,117,116,115,114,113,112,127,126,125,124,123,122,121,120
data 103,102,101,100, 99, 98, 97, 96,111,110,109,108,107,106,105,104
data 151,150,149,148,147,146,145,144,159,158,157,156,155,154,153,152
data 135,134,133,132,131,130,129,128,143,142,141,140,139,138,137,136
data 183,182,181,180,179,178,177,176,191,190,189,188,187,186,185,184
data 167,166,165,164,163,162,161,160,175,174,173,172,171,170,169,168
data 215,214,213,212,211,210,209,208,223,222,221,220,219,218,217,216
data 199,198,197,196,195,194,193,192,207,206,205,204,203,202,201,200
data 247,246,245,244,243,242,241,240,255,254,253,252,251,250,249,248
data 231,230,229,228,227,226,225,224,239,238,237,236,235,234,233,232
dim decoder%(255),i%,s$,n%,l%,b%,size%,ps%
for i% = 0 to 255
read decoder%(i%)
next i%
label mnu_load,mnu_save, mnu_exit,get_size
main_menu 1
sub_menu 2:caption 2,"&File":parent 2,1
sub_menu 3:caption 3,"&Load":parent 3,2:on_click 3,mnu_load
sub_menu 8:caption 8,"&Save":parent 8,2:on_click 8,mnu_save
sub_menu 4:caption 4,"-" :parent 4,2
sub_menu 5:caption 5,"&Exit":parent 5,2:on_click 5,mnu_exit
memo 6
bar_both 6
full_space 6
font_name 6,"Courier New"
open_dialog 7
filter 7,"Program|*.exe"
save_dialog 9
filter 9,"Source|*.bas"
end
mnu_load:
s$=file_name$(7)
if s$="_" then return
if 1=file_exists(s$)
caption 0,s$
clear 6
filebin_open_read 8,s$
l%=filebin_size(8)
filebin_position 8,l%-4
filebin_hexa_read 8,4,s$
if (s$<>"33422E46")
if (1<>message_warning_yes_no("You are sure it's created by Panoramic BASIC ?"))
filebin_close 8
return
end_if
end_if
filebin_position 8,l%-8
s$=""
for i%=0 to 3
filebin_read 8,b%
s$=s$+chr$(b%)
next i%
ps%=adr(s$):gosub get_size
n%=size%:size%=size%+8
filebin_position 8,l%-size%
s$=""
for i%=0 to n%-1
filebin_read 8,b%
b%=decoder%(b%)
if (b%=0)
item_add 6,s$
s$=""
else
s$=s$+chr$(b%)
end_if
next i%
if (len(s$)>0) then item_add 6,s$
filebin_close 8
end_if
return
mnu_save:
s$=file_name$(9)
if s$="_" then return
if lower$(right$(s$,4))<>".bas" then s$ = s$ + ".bas"
if 1=file_exists(s$)
if message_confirmation_yes_no("File esists. Overwrite it ?")<>1 then return
end_if
file_save 6,s$
return
mnu_exit:
terminate
get_size:
i%=DLL_CALL3("RtlMoveMemory",adr(ps%),ps%,4)
i%=DLL_CALL3("RtlMoveMemory",adr(size%),ps%,4)
return
| |
|
Calendrier
