- (format "%d.%d.%d.%d"
- (floor (string-to-number
- (calc-eval (format "(%s / (2 ** 24)) %% 256" address))))
- (floor (string-to-number
- (calc-eval (format "(%s / (2 ** 16)) %% 256" address))))
- (floor (string-to-number
- (calc-eval (format "(%s / (2 ** 8)) %% 256" address))))
- (floor (string-to-number
- (calc-eval (format "%s %% 256" address))))))
+ (let ((float-address (string-to-number (concat address ".0"))))
+ (format "%d.%d.%d.%d"
+ (floor (mod (/ float-address 16777216) 256))
+ (floor (mod (/ float-address 65536) 256))
+ (floor (mod (/ float-address 256) 256))
+ (floor (mod float-address 256)))))