|
|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Temas - Kesar
Páginas: [1]
1
« en: Viernes 27 de Agosto de 2004, 17:52 »
Antes de nada, daros las gracias a todos por leer mi post e intentar ayudarme. Mi problema es k nunca he programado en ensamblador y ahora necesito saber que es lo que hace la siguiente funcion, pero por mas que busco no doy encontrado el significado de las lineas de la misma. ¿Alguien podria traducirme a grandes rasgos las lineas mas complicadas? el resto ya lo intentare averiguar yo, gracias ... por cierto, solo es una parte del codigo que tengo, digo esto por si alguien pregunta porque esta incompleto. Gracias otra vez start: mov si,offset ParamStr mov dx,offset Usage xor ax,ax lodsb or al,al jz ExitPrint mov cx,ax mov di,si lodsb repe scasb jcxz ExitPrint mov dx,di dec dx inc cx repne scasb xor ax,ax dec di stosb mov si,dx call MD_decode mov dx,si ExitPrint: mov ah,9 int 21h ret MD_decode proc near ; In/Out: si -> string in asciz push si xor dx,dx xor cx,cx mov di,si push offset MD_xlat2 mov bx,offset MD_xlat1 loop1: xor ax,ax lodsb or al,al jz short exit xlat cmp al,'@' jnb short exit shl dx,6 add cl,6 or dx,ax cmp cl,8 jb short next sub cl,8 mov ax,dx shr ax,cl mov ah,cl ; save bx mov cx,bx ; pop bx sub al,[bx] inc bx push bx mov bx,cx ; restore bx mov cl,ah ; stosb next: jmp short loop1 exit: ; xor al,al mov al,'$'; for this realisation stosb pop bx pop si retn MD_decode endp
2
« en: Viernes 27 de Agosto de 2004, 17:44 »
Hola a todos, yo soy programador web, pero no se programar en perl  , y acaba de llegar esta funcion a mis manos y tengo k traducirla a javascript, por eso simplemente necesitaria que alguien me comentase el significado de las lineas que os marco con -------------------??, ya que creo k sabiendo el significado de esas lines yo podria entender la funcion y así podría pasarla a javascript, Muchas gracias a todos  sub decode{ $decoded = ''; $f = ''; ($y) = @_; use MIME::Base64; -------------------?? $decoded = decode_base64($y); $a = unpack("H*",$decoded);-------------------?? ## this is the offset hex table ## this simple encryption just adds/subtracts a certain value ## for each character. @off = (54,68,65,20,73,65,74,75,70,20,70,72,'6f',63,65,'9f');-------------------?? $w = 0; foreach $love (@off){-------------------?? $h = substr($a,$w,2);-------------------?? $d = hex $h;-------------------?? $l = hex $love; $letter = $d - $l; $aa = pack("I*",$letter);-------------------?? $q = substr($aa,0,1); $f = $f.$q; $w = $w + 2; } $f = substr($f,0,length($decoded)); return $f; }
Páginas: [1]
|
|
|
Mostrar Mensajes
