Soyez le premier à donner votre avis sur cette source.
Vue 9 606 fois - Téléchargée 326 fois
.586 .model flat,stdcall option casemap:none include windows.inc include user32.inc include kernel32.inc includelib user32.lib includelib kernel32.lib BUFLENGTH equ 1024 .data e2a db 0, 1, 2, 3,156, 9,134,127,151,141,142, 11, 12, 13, 14, 15 db 16, 17, 18, 19,157,133, 8,135, 24, 25,146,143, 28, 29, 30, 31 db 128,129,130,131,132, 10, 23, 27,136,137,138,139,140, 5, 6, 7 db 144,145, 22,147,148,149,150, 4,152,153,154,155, 20, 21,158, 26 db 32,160,161,162,163,164,165,166,167,168, 91, 46, 60, 40, 43, 33 db 38,169,170,171,172,173,174,175,176,177, 93, 36, 42, 41, 59, 94 db 45, 47,178,179,180,181,182,183,184,185,124, 44, 37, 95, 62, 63 db 186,187,188,189,190,191,192,193,194, 96, 58, 35, 64, 39, 61, 34 db 195, 97, 98, 99,100,101,102,103,104,105,196,197,198,199,200,201 db 202,106,107,108,109,110,111,112,113,114,203,204,205,206,207,208 db 209,126,115,116,117,118,119,120,121,122,210,211,212,213,214,215 db 216,217,218,219,220,221,222,223,224,225,226,227,228,229,230,231 db 123, 65, 66, 67, 68, 69, 70, 71, 72, 73,232,233,234,235,236,237 db 125, 74, 75, 76, 77, 78, 79, 80, 81, 82,238,239,240,241,242,243 db 92,159, 83, 84, 85, 86, 87, 88, 89, 90,244,245,246,247,248,249 db 48, 49, 50, 51, 52, 53, 54, 55, 56, 57,250,251,252,253,254,255 szINPUTFAIL db 'Le fichier d''entree n''a pas ete trouve',0 szOUTPUTFAIL db 'Le fichier de sortie n''a pas pu être créé',0 szJOBDONE db 'Conversion terminée',0 szAppName db 'Ebcdic2Ascii',0 szWORKING db 'Working',0 szIFilename db "input.txt",0 szOFilename db "output.txt",0 .data? iFile dd ? oFile dd ? buffer db BUFLENGTH dup (?) .code start: invoke CreateFile,addr szIFilename, GENERIC_READ,FILE_SHARE_READ,NULL,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0 cmp eax, INVALID_HANDLE_VALUE jnz short @F invoke MessageBox,NULL, addr szINPUTFAIL, addr szAppName, MB_ICONERROR or MB_OK push 1 call ExitProcess @@: mov iFile , eax invoke CreateFile,addr szOFilename, GENERIC_WRITE,FILE_SHARE_WRITE or FILE_SHARE_READ , NULL, OPEN_ALWAYS ,FILE_ATTRIBUTE_NORMAL,0 cmp eax, INVALID_HANDLE_VALUE jnz short @F invoke MessageBox,NULL, addr szOUTPUTFAIL, addr szAppName, MB_ICONERROR or MB_OK push 1 call ExitProcess @@: mov oFile, eax lea ebx, [esp] push NULL push ebx push BUFLENGTH push offset buffer push iFile call ReadFile mov eax, [ebx] test eax, eax jz short @endw mov esi, offset buffer @while: xor edx, edx mov ebx, offset e2a push eax mov ecx, eax @@: dec ecx mov dl,[esi+ecx] mov eax,[ebx+edx] mov [esi+ecx], al jnz @B pop eax lea ebx, [esp] push NULL push ebx push eax push offset buffer push oFile call WriteFile lea ebx, [esp] push NULL push ebx push BUFLENGTH push offset buffer push iFile call ReadFile mov eax, [ebx] test eax, eax jnz short @while @endw: push oFile call CloseHandle push iFile call CloseHandle invoke MessageBox,NULL, addr szJOBDONE, addr szAppName, MB_OK or MB_ICONINFORMATION push 0 call ExitProcess end start
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.